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W enn wir Menschen es doch so 
leicht hätten: Jemand würde 
sagen, er möchte jetzt die oder 
die Sprache mit Ihnen sprechen, gäbe 
Ihnen eine Pille und kurze Zeit später 
könnten Sie sich fließend in Japanisch 
unterhalten. Ein Wunschtraum? Sicher¬ 
lich. Computer haben es da schon 
leichter. Diskette rein, Programm laden 
und schon kann die Unterhaltung be¬ 
ginnen. Zugegeben, sehr einseitig, und 
immer wieder sind wir Menschen die 
Schwachstelle, weil wir diese Sprache 
erst lernen müssen. Gegenüber dem 
Erlernen einer »menschlichen« Sprache in der Schule gibt es 
jedoch einige große Vorteile: Computersprachen sind 
wesentlich einfacher (da künstlich), und das Lernen dieser 
Sprache macht sehr viel mehr Spaß. Warum eigentlich? Viel¬ 
leicht, weil man schneller Erfolgserlebnisse hat. Man sieht 
seine Kenntnisse schneller wachsen, erhält sofort die Bestä¬ 
tigung, ob etwas verkehrt oder richtig war, weil der 
»Gesprächspartner« zwar pingelig, aber unendlich geduldig 
ist. 

Der Faszination, eine neue, bessere und schnellere Spra¬ 
che zu lernen, kann man sich kaum entziehen. Allerdings gibt 
es eine ganze Reihe von Programmen für den C64 und den 
CI28, die auch nicht gerade kostenlos sind. Eine Auswahl 
sollte daher schon getroffen werden. Aus diesem Grund 
haben wir in diesem Sonderheft versucht, Ihnen soviel wie 
möglich Informationen zu liefern. Welche Programmierspra¬ 
che die richtige ist, hängt hauptsächlich vom Einsatzgebiet 
ab. Pascal ist - nach Basic - wohl die beliebteste und verbrei- 
teste höhere Programmiersprache. Mit ihr kann fast jede Pro¬ 
grammieraufgabe gelöst werden. Deshalb haben wir Ihnen 
einen riesigen Pascal-Kurs anzubieten, der vor allem die Pro¬ 
grammierpraxis erläutert. Zwei weitere Artikel gehen speziell 
auf Pascal mit dem C 64 und Turbo-Pascal auf dem C128 ein. 
Eine Mischung aus Basic und Pascal wurde mit Comal 
geschaffen und wird daher von vielen Schulen, vor allem im 
norddeutschen Raum, gefördert und eingesetzt. Wirerklären 
Ihnen, wie mit Comal gearbeitet wird und warum diese Spra¬ 
che so interessant ist. Weiterhin geben wir Ihnen ausführli¬ 
che Informationen zu C (interessant vor allem für Systempro¬ 
grammierer), zu der maschinennahen Sprache Forth und zu 
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Prolog, die vor allem im Zusammenhang 
mit künstlicher Intelligenz genannt wird. 

Gerade für C128-Besitzer tut sich 
mit dem Betriebssystem CP/M eine 
neue Welt auf. Sprachen wie Cobol und 
Fortran werden in der Industrie immer 
noch in großem Umfang eingesetzt. Wir 
zeigen Ihnen, was diese Oldtimer auf 
dem C128 leisten und ob mit Ihnen ver¬ 
nünftig gearbeitet werden kann. 

Eine Programmiersprache, die sich 
auf dem professionellen Markt durch¬ 
gesetzt hat und zu den meistverkauften 
gehört, ist dBase. dBase ist datenbank¬ 
orientiert und wird da eingesetzt, wo irgendwelche Daten zu 
verwalten sind. dBase ist relativ einfach zu erlernen, besitzt 
aber sehr leistungsfähige Befehle, die Sie mit anderen Pro¬ 
grammiersprachen sehr umständlich oder gar nicht realisie¬ 
ren können. Wie man in und mit dBase programmiert, zeigen 
wir Ihnen in einem interessanten und ausführlichen Kurs. 

Der zweite Teil dieses Sonderheftes befaßt sich mit der 
nach Basic am meisten genutzten Programmiersprache, mit 
Assembler. Und da haben wir einige besondere Leckerbis¬ 
sen für Sie herausgesucht. Sicher kennen Sie die in letzter 
Zeit immer häufiger auftauchenden Pull-down-Menüs. 
Schritt für Schritt erklären wir Ihnen, wie diese interessanten 
Menüs programmiert werden. Ein komplettes Programm zum 
Abtippen ist natürlich dabei. Über Sortierroutinen wurde 
schon viel geschrieben und es gibt eine ganze Reihe guter 
Programme. In diesem Sonderheft stellen wir Ihnen jedoch 
zwei Sortierprogramme vor, die in puncto Schnelligkeit und 
Vielseitigkeit alles bisher Dagewesene in den Schatten stel¬ 
len. Lassen Sie sich überraschen! Wer schon etwas Gutes 
hat, hat nichts dagegen, etwas noch Besseres zu bekom¬ 
men. Der Maschinensprachemonitor Promon ist ein Beispiel 
dafür. Er ist ein stark verbesserter und erweiterter SMON, 
den viele Basic- und Assemblerprogrammierer schätzen ge¬ 
lernt haben. Promon 64 wird auch Sie begeistern! 

Selbstverständlich finden Sie neben diesen Grundlagen, 
Besprechungen und Super-Listings auch wieder eine ganze 
Menge Tips&Tricks, und wir hoffen, daß Ihnen dieses Son¬ 
derheft gefallen wird. Wir würden uns freuen, wenn Sie uns 
ein paar Zeilen schreiben würden. 

Georg Klinge, leitender Redakteur 
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Programme aus früheren 64’er-Ausgaben 

TOP-Listings dieser Ausgabe: 

Ausgabe 

Bestell-Nr. 


DM sFr. 

öS 

Promon 64 - 

10/86 

L6 86 10D 

Diskette 

29,90' 24,90 

299,00* 

9/86 

L6 86 09D 

Diskette 

29,90* 24,90 

299,00- 

Super-Maschinensprachemonitor für den C64 

8/86 

L6 86 08D 

Diskette 

29,90' 24,90 

299,00* 

7/86 

L6 86 07D 

Diskette 

29.90' 24,90 

299,00* 

Promon 64 ist ein vollkommen überarbeiteter SMON, der über einen rie- 

6/86 

L6 86 06D 

Diskette 

29,90* 24,90 

299,00- 

sigen und leistungsfähigen Befehlssatz verfügt. Neben den Befehlen 
des SMON können Sie HiRes-Grafiken suchen und ASCII-Tabellen ein- 

5/86 

L6 86 05D 

Diskette 

29,90* 24,90 

299,00* 

4/86 

L6 86 04D 

Diskette 

29,90* 24,90 

299,00* 

geben. Illegale Opcodes können sowohl assembliert als auch disas- 
sembliert werden. Ein Diskettenmonitor, auf dem sich alle Befehle von 
Promon 64 anwenden lassen, ist integriert. Ein Spitzen-Werkzeug zu 
einem Super-Preis! 

3/86 

L6 86 03D 

Diskette 

29,90* 24,90 

299,00* 

2/86 

L6 86 02D 

Diskette 

29.90' 24,90 

299,00* 

1/86 

L6 86 01D 

Diskette 

29,90* 24,90 

299,00* 

12/85 

L6 85 12D 

Diskette 

29,90* 24,90 

299,00* 


L6 85 12K 

Kassette 

29,90* 24,90 

299,00* 

Alle Programme, die mit dem Diskettensymbol ( H ) im Inhaltsver- 

7fiiohniR npkpnn7pir.hnpf «Rinri niht’«? auf Hiqkpttp 

11/85 

L6 85 11A 

Diskette 

29,90- 24,90 

299,00* 

10/85 

L6 85 10A 

Diskette 

29,90* 24,90 

299,00* 


9/85 

L6 85 09A 

Diskette 

29,90* 24,90 

299,00* 

1 Diskette für den C64 rMi/l OQ OP* 

8/85 

L6 85 08A 

Diskette 

29,90* 24,90 

299,00* 

öesien-wr. lo öd oiz u (sr r. ^4,yu/oo zyy,-) i^ivl 

6/85 

L6 85 06A 

Diskette 

29,90* 24,90 

299,00* 


5/85 

L6 85 05A 

Diskette 

29,90* 24,90 

299,00* 


4/85 

L6 85 04A 

Diskette 

29,90* 24,90 

299,00* 


3/85 

L6 85 03A 

Diskette 

29,90* 24,90 

299,00* 

Weitere Sonderhefte zum Thema 

2/85 

L6 85 02A 

Diskette 

29,90* 24,90 

299,00* 

1/85 

L6 85 01A 

Diskette 

29,90* 24,90 

299,00* 

Assembler und Programmiersprachen 


Assembler für Anfänger und Fortgeschrittene 

Programme aus früheren 64’er-Sonderheften 

Ausgabe Bestell-Nr. DM sFr. öS 

64’er-Sonderheft 8/85 

10/86 C128 

L6 86 S10 CD 

Diskette 

29,90* 24,90 

299,00* 

Ein Standardwerk für alle, die sich für Maschinensprache interessieren. Dieses Heft 
vermittelt alle wichtigen und notwendigen Grundlagen für Einsteiger, Ein ausführlicher 
Kurs weist Sie speziell in die Programmierung des C 64 ein, enthält viele und ausführ¬ 
lich erklärte Beispiele und beantwortet Fragen, die jeder hat oder später garantiert 
haben wird. Außerdem erhalten Sie in diesem Sonderheft alle Programme zum Abtip¬ 
pen, die Sie als Assembler-Programmierer brauchen werden und zwar durchweg von 
professioneller Qualität! Selbst wenn Sie schon einige Erfahrung haben, werden Sie 
die vielen Tips&Tricks-Listings begeistern. 

1 Diskette für den C 64 HM qq q/% * 

Bestell-Nr. L6 85 S8D (sFr. 24,90/öS 299,-') UIVI 

9/86 Floppy & Datei Verwaltung L6 86 S9 CD 

Diskette 

29,90* 24,90 

299,00* 

8/86 Plus/4 und C16 

L6 86 S8 CD 

Diskette 

29.90* 24,90 

299,00* 


L6 86 S8 KC 

4 Kassetten 

34,90* 29,50 

349,00* 


L6 86 S8 KV 

Kassette 

19,90* 17,00 

199,00* 

7/86 PEEKs & POKEs 

L6 86 S7D 

1 Diskette 

29,90* 24,90 

299,00* 

6/86 Grafik 

L6 86 S6D1 

2 Disketten mit allen 
Programmen 

34,90* 29,50 

349,00* 


L6 86 S6D2 

1 Diskette mit 
Giga-CAD-Demos 

19,90* 17,00 

199,00- 


L6 86 S6D3 

3 Disketten mit allen 
Progr. und Demos 

49,80- 43.50 

498.00- 

5/86 Grundwissen 

L6 86 S5D 

1 Diskette 

29,90- 24,90 

299,00* 

4/86 Abenteuer 

L6 86 S4D 

2 Disketten 

34,90* 29,50 

349,00* 

PEEKs&POKEs 

3/86 C 16, C116, 

VC 20, Plus/4 

L6 86 S3 CD 

1 Diskette für 

VC 20 und C16/116 

29,90* 24,90 

299.00- 


L6 66 S3 KV 

1 Kassette für VC2C 

19,90* 17,00 

199,00* 

64’er-Sonderheft 7/86 

Jeder Assembler-Programmierer braucht Wissen über die Speicherstellen seines 
Computers. Einen Teil dieser Speicherstellen benötigt der C64 und natürlich noch 


L6 86 S3 KC 

1 Kassette für C16 

19,90* 17,00 

199,00- 

2/86 Tips&Tricks 

L6 86 S2D 

Diskette 

29,90* 24,90 

299,00* 

1/86 C 128er 

L6 86 S1D 

Diskette 

29,90* 24,90 

299,00* 

8/85 Assembler 

L6 85 S8D 

Diskette 

29,90* 24,90 

299.00- 

mehr der CI28 für eigene Aufgaben. Wenn man diese kennt, kann man sich eine 


L6 85 S8K 

Kassette 

19,90* 17,00 

199,00* 

Menge Arbeit und Ärger ersparen. In diesem Sonderheft werden deshalb alle wichti- 

7/85 Professionelle 

L6 85 S7D 

2 Disketten 

34,90* 29,50 

349,00- 

gen Adressen besprochen, erklärt und mit vielen praktischen Beispielen unterlegt. Es 
gibt nur ganz wenige Bücher, die, zugeschnitten auf den C64, erklären, wie man in 
Maschinensprache rechnet. Hier erfahren Sie, wie die mathematischen Routinen des 

Anwendungen 

L6 85 S7K 

4 Kassetten 

34,90* 29.50 

349,00- 

6/85 Top-Themen 

L6 85 S6 

2 Disketten 

34,90- 29.50 

349.00- 

5/85 Floppy, Datasette 

L6 85 S5D 

L6 85 S5K 

Diskelle 

29,90- 24.90 
IQ 90* 17 00 

299,00* 
igq nn* 

C64 genutzt werden und was bei der Programmierung zu beachten ist. Auch dieses 
Sonderheft ist gespickt mit tollen Programmen zum Abtippen. 

4/85 Grafik 

L6 85 S4A 

Diskette 

29,90* 24,90 

299,00* 

3/85 Spiele 

L6 85 S3 A 

2 Disketten 

34,90* 29,50 

349,00* 

1 Diskette für den C 64 niUI OQ Ort* 

Bestell-Nr. L6 86 S7D (sFr. 24,90/öS 299,-*) UIVI 

* inkl. MwSt. Unverbindliche Preisempfehlung 

2/85 Abenteuerspiele 

L6 85 S2 

Diskette 

34,90* 29,50 

349,00* 

1/85 Tips&Tricks 

(2. überarb. Auflage) 

CB 023 

Floppy-Utilities 

29,90* 24,90 

299,00* 

CB 024 

Hilfsprogramme 

29,90* 24.90 

299,00* 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro-Zahlkarte, 
oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. 

Sie erleichtern uns die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 
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PROGRAMMIERSPRACHEN 


C 64/CI 28 



Programmieren mit Struktur 

Pascal ist eine Sprache, die auch bei den Heim- Basic-Programmierer können bestimmt ein Lied davon sin- 


computern zunehmend an Bedeutung gewinnt. 
Lernen Sie mit uns die Welt der strukturierten Pro¬ 
grammierung kennen. 

64€R C 

W er im Mathematikunterricht gelegentlich aufgepaßt 
hat, dem wird der Name Pascal nicht unbekannt sein. 
Blaise Pascal war ein französischer Mathematiker, 
der von 1623 bis 1662 lebte und sich in der Wahrscheinlich¬ 
keitsrechnung, Kombinationslehre sowie mit dem Pascal- 
schen Dreieck einen Namen machte. Nach ihm wurde auch 
eine höhere Programmiersprache benannt, die 1970 an der 
ETH Zürich von Nikolaus Wirth entwickelt wurde. 

Diese Sprache bot im Gegensatz zu den anderen, damals 
sehr verbreiteten Sprachen Cobol und Fortran bessere Mög¬ 
lichkeiten zur Strukturierung von Anweisungen und Daten. 
Zudem war sie auf Grund ihres relativ geringen Sprachum- 
fangs überschaubarer als ihre Konkurrenten. Speziell für die 
Anwendung auf Mikrocomputern erweiterte man das 
ursprünglich auf Großrechnern verwendete Standard- 
Pascal. Mit der neuen Version standen nun Erleichterungen 
zur grafischen Darstellung und Verarbeitung von Strings zur 
Verfügung. Man benannte es nach seinem Entwicklungsort, 
der Universität von Californien in San Diego, UCSD-Pascal. 

Damit wurde ein Standard festgelegt, der heute von fast 
jedem Pascal-Compiler für Mikrocomputer akzeptiert wird. 
Dieser Kurs soll es ermöglichen, in die Welt von Pascal und 
somit in die strukturierte Programmierung einzusteigen. Viele 
Leser werden sich nun fragen, was es mit dem Begriff »struk¬ 
turiertes Programmieren« auf sich hat. Das ist schnell erklärt. 
Strukturiertes Programmieren stellt eine Art von Program¬ 
mierstil dar, der ein auch noch so komplexes Problem in einfa¬ 
che und klare Teilziele aufteilt. Die so programmierten Teillö¬ 
sungen werden dann zur Bewältigung des Gesamtproblems 
logisch zusammengefügt. Ein auf diese Art geschriebenes 
Programm ist für seinen Entwickler und besonders für andere 
besser les- und nachvollziehbar. Nachträgliche Änderungen, 
zum Beispiel Verbesserungen oder das Umschreiben auf 
andere Computersysteme, werden somit nicht mehr zu ner¬ 
venzerreißenden Abenteuern. 


gen, wenn sie sich in ihren Werken bereits nach einigen 
Tagen nicht mehr auskennen. Basic ist die wohl strukturlose¬ 
ste Sprache überhaupt und läßt Unsitten beim Programmie¬ 
ren zu, die bereits bei verhältnismäßig kleinen Programmen 
zu eir'-’ i heillosen Durcheinander führen können. Aus die¬ 
sem Grund ist Pascal eine gute Alternative für Basic- 
Programmierer, die ihre chaotische Art des Programmierens 
satt haben. 

Aber auch Computerneulinge, die sich so etwas erst gar 
nicht angewöhnen wollen, sind mit Pascal gut bedient. So gibt 
es bei Pascal keine Zeilennummern und damit auch keine 
unübersichtlichen Sprünge quer durch das Programm. 
Ebenso müssen sämtliche Konstanten und Variablen, die 
irgendwann im Programm auch nur ein einziges Mal Vorkom¬ 
men sollen, vor Beginn des Hauptprogramms in einem 
besonderen Deklarationsteil festgelegt werden. Mit einfa¬ 
chem Drauflosprogrammieren am Bildschirm, wie bei Basic, 
dürfte man bei etwas größeren Programmen nicht mehr weit 
kommen. Es ist ein genaues Konzept ratsam, das die Einzel¬ 
schritte der Lösung festlegt. 

Sprache mit klarem Konzept 


Pascal-Programme werden in der Regel auf dem Papier 
geschrieben und dann in den Computer eingegeben und 
getestet. Pascal ist außerdem eine Compilersprache, das 
heißt, das Programm muß nach der Eingabe zunächst vom 
Compiler in Maschinensprache übersetzt werden, bevor es 
ablaufen kann. Bevor wir Pascal-Programme schreiben kön¬ 
nen, müssen wir einige allgemeine Dinge lernen, die in Pascal 
von Bedeutung sind. 

Der Zeichensatz, der der Sprache Pascal zur Verfügung 
steht, ist im allgemeinen das normale Alphabet und die Ziffern 
von null bis neun. Zusätzlich gibt es noch die Pascal- 
Sonderzeichen, wie zum Beispiel Rechenzeichen und Klam¬ 
mern. Aus ihnen setzen sich sämtliche Anweisungen zusam¬ 
men. Bild 1 zeigt alle Zeichen auf einen Blick. Große und 
kleine Buchstaben haben in Pascal die gleiche Bedeutung 
und können nach Belieben benutzt werden. Eine Ausnahme 
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C64/C128 


PROGRAMMIERSPRACHEN 


stellen die Druckerzeichen dar. Hier werden große und kleine 
Buchstaben unterschieden. In diesem Kurs werden zur Her¬ 
vorhebung alle Pascal-Anweisungen und Standardnamen mit 
Großbuchstaben geschrieben. Verschiedene Namen dage¬ 
gen sind klein geschrieben. Wenn Sie später selbst Pascal- 
Programme schreiben, ist es jedoch ohne Belang, ob Sie 
Groß- oder Kleinbuchstaben verwenden. 

Weiterhin spielen Namen eine wichtige Rolle. Konstante, 
Variable und ganze Programmteile (Funktionen und Prozedu¬ 
ren) bekommen in Pascal einen Namen zur Identifizierung, 
mit dem sie dann ständig vom Programm aus aufgerufen wer¬ 
den können. Der Aufbau eines Namens ist einigen wichtigen 
Regeln unterworfen. Pascal-Namen sind beliebige Folgen 
von Buchstaben und Ziffern, die mit einem Buchstaben 
beginnen. Ein Beispiel wäre 
meinersteswerk 

Man muß dabei aber beachten, daß Pascal bei der Erken¬ 
nung von Namen nur die ersten acht Zeichen berücksichtigt, 
meinerstesprogramm 

trägt für den Compiler demnach denselben Namen wie das 
erste Beispiel. Ebenso dürfen keine für Pascal bestimmten 
Sonderzeichen in Namen verwendet werden. Diese Sonder¬ 
zeichen sind in Bild 1 aufgeführt und haben alle bestimmte 
Funktionen, die später noch erläutert werden. Das Leerzei¬ 
chen dient bei Pascal der Trennung von Schlüsselwörtern 
und Namen und ist deshalb ebenfalls tabu, da der Compiler 
eine Verwendung mißverstehen könnte. Korrekte Pascal- 
Namen sind in Pascal zum Beispiel »egon, h2o2, klOO« oder 
»x«. Weiterhin muß beachtet werden, daß kein Pascal- 
Schlüsselwort oder Standardname als eigener Name ver¬ 
wendet werden darf. 

Die Befehle in Pascal werden auch als Schlüsselwörter 
bezeichnet, da sie keinem anderen Zweck dienen als dem 
ihnen zugewiesenen. Bild 2 zeigt eine Liste dieser Wörter, 
die man vor Namensgebung eigener Variable oder Konstan¬ 
ten aufmerksam studieren sollte, um späteren Ärger bei der 
Fehlersuche zu vermeiden. Ebenfalls reserviert sind alle 
Standardnamen, die in Bild 3 nach ihrer Zugehörigkeit geord¬ 
net sind. Sie haben schon programmierte Funktionen und 
können deshalb nicht mehr als eigene Namen fungieren. 

Das Leerzeichen ist, wie erwähnt, als Zeichen für Namen 
nicht erlaubt, da es im Programm als Trennzeichen wirkt. Auf¬ 
einanderfolgende Schlüsselwörter und Namen müssen stets 
mit mindestens einem Leerzeichen getrennt werden, da es 
sonst zu Komplikationen bei der Übersetzung des Pro¬ 
gramms kommen kann. Das Einfügen von weiteren Leerzei¬ 
chen ist jedoch erlaubt und in den meisten Fällen der Über¬ 
sichtlichkeit des Programms dienlich. Durch eingefügte Leer¬ 
zeichen kommen auch die für Pascal typischen Einrückun¬ 
gen von Befehlsblöcken zustande. Das Semikolon hat 


abcdefghijklmnopqrstuvwxyz 

0123456789 


() + -•/ = :;.- 


Bild 1. Zeichen in Pascal 
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ebenfalls eine besondere Stellung. Jede abgeschlossene 
Anweisung muß mit einem Semikolon eindeutig beendet wer¬ 
den. Sollte man es einmal beim Programmieren vergessen, 
so kann das beim Übersetzen oder spätestens beim Pro¬ 
grammablauf verheerende Folgen nach sich ziehen. Kann 
eine Anweisung durch ein darauf folgendes Schlüsselwort 
eindeutig als beendet angesehen werden, so muß das Semi¬ 
kolon nicht unbedingt stehen. Es ist jedoch zu empfehlen, 
sich anzugewöhnen, es immer zu schreiben. 

Es ist möglich, zu Dokumentationszwecken an jeder Stelle 
eines Programms Kommentare einzufügen. Diese können 
beliebig lang sein und müssen in geschweiften Klammern 
stehen. Stehen dem Computer keine geschweiften Klam¬ 
mern zur Verfügung, ist ein Kommentar folgendermaßen zu 
schreiben: 

(# dies ist ein kommentar #) 

Wie Sie vermutlich bemerkt haben, ist das strikte Einhalten 
der pascalschen Regeln äußerst wichtig für das Entwickeln 
eines fehlerfreien Programms. Dies hat den Sinn, den Pro¬ 
grammierer zu zwingen, bereits im voraus sein Programm 
komplett strukturiert durchzuplanen. 

Geregelter Programmaufbau 


Nun jedoch zum genauen Aufbau eines Pascal-Programms. 
Zu Anfang steht der Programmkopf, der zur Identifizierung 
des Programms dienen soll. Ihm folgt der Deklarationsteil, in 
dem sämtliche Konstante und Variable, die im Programm ver¬ 
wendet werden, vereinbart werden. Dann beginnt der Pro¬ 
grammteil mit den einzelnen Unterprogrammen und dem 
Hauptprogramm. Der Programmkopf beginnt stets mit dem 
Schlüsselwort »PROGRAM«, dem der Programmname folgt. 
Nac! i ,'ljswahl eines Pascal-gerechten Namens kann ein kor¬ 
rekter Programmkopf formuliert werden: 

PROGRAM meinersteswerk; 

Der Programmkopf ist eine vollständige Pascalanweisung 
und muß deshalb wie alle Anweisungen mit einem Semikolon 
abgeschlossen werden. Im Normalfall hat er keine Wirkung im 
Programm, sondern dient nur zur Benennung. Man kann ihn 
deshalb ohne Bedenken weglassen. 

Obligatorisch dagegen ist der Deklarationsteil. In ihm wer¬ 
den Konstante und Variable, die im Programm verwendet wer¬ 
den sollen, vordefiniert und mit Namen versehen. Werden 
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Bild 3. Standardnamen 
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keine Konstanten oder Variablen benötigt, so kann auch er 
selbstverständlich weggelassen werden. 

Kommen wir nun zu den Konstanten und Variablen. Kon¬ 
stante sind Werte oder Zeichenfolgen, die sich während des 
Programmablaufs nicht verändern. Die Kreiszahl »Pi« ist bei¬ 
spielsweise eine solche Konstante. Konstante bekommen 
einen Namen, mit dem sie dann im Programm aufgerufen wer¬ 
den. Zu deren Definition ist das Schlüsselwort »CONST« vor¬ 
gesehen. Eine Konstantendefinition könnte zum Beispiel so 
aussehen: 

CONST pi = 3-14156; 

Das Semikolon ist hier wieder das Schlußzeichen einer voll¬ 
ständigen Anweisung. Damit erhält die Zahl 3.14156 den 
Namen »pi«. Im Programm kann nun diese Zahl durch den 
Namen »pi« jederzeit aufgerufen und zu Berechnungen ver¬ 
wendet werden, »pi« kann aber jetzt keinen anderen Wert 
mehr zugewiesen bekommen. Es können auch bereits vor¬ 
her definierte Konstante anderen Konstanten zugewiesen 
werden. 

CONST pi = 3-14156; 
minuspi = -pi; 

Konstante und Variable 


Wie Sie sehen, muß das Wort CONST bei mehreren Konstan¬ 
tendefinitionen nur einmal am Anfang stehen. Jede einzelne 
Definition muß jedoch mit einem Semikolon abgeschlossen 
werden! Es gibt bei UCSD-Pascal eine Konstante, die schon 
vom Compiler vordefiniert ist. Sie hat den Namen »maxint« 
und steht für die größte darstellbare ganze Zahl, »maxint« ist 
einer der bereits erwähnten Standardnamen (Bild 3). Zwei 
weitere schon vom Compiler definierte Konstante sind logi¬ 
scher (boolean) Art. Sie haben die Namen »true« und »false« 
und entsprechen den logischen Werten »wahr« und 
»unwahr«. Die Verwendung von logischen Werten wird noch 
eingehend erläutert. Weiterhin kann eine Konstante auch aus 
einer Zeichenkette bestehen: 

CONST name = 'Friedhelm'; 

Durch Aufruf der Konstanten »name« kann man nun die Zei¬ 
chenkette »Friedhelm« an jeder Stelle im Programm verwen¬ 
den. Wie aus dem obigen Beispiel ersichtlich ist, stehen in 
Pascal Zeichenketten oder allgemein Zeichen immer zwi¬ 
schen Apostrophen (’). Soll der Apostroph selbst als Druck¬ 
zeichen verwendet werden, so muß man doppelte Apostro¬ 
phe schreiben, wie zum Beispiel: 

CONST apostroph = " "; 

Anders als Konstante können Variable während des Pro¬ 
grammablaufs verschiedene Werte annehmen. In Pascal las¬ 
sen sich nicht alle Variable gleich verarbeiten. Durch Angabe 
des Typs legt man automatisch fest, was sie enthalten dürfen 
und was damit getan werden darf. Pascal kennt vier Standard¬ 
typen, die die Namen integer, real, boolean und char haben. 
UCSD-Pascal stellt zusätzlich noch einen weiteren Typen mit 
dem Namen String zur Verfügung. Es besteht außerdem noch 
die Möglichkeit, eigene Typen zu definieren. Eine Erklärung 
hierzu ist jedoch im Moment nicht sinnvoll und wird daher 
später nachgeholt. Zur Definition von Variablen benutzt man 
das Pascal-Schlüsselwort »VAR«, gefolgt vom Namen der 
Variablen plus der Typenbezeichnung, die sie bekommen soll 
(also integer, real, boolean, char oder string). Allgemein sieht 
eine Variablendefinition so aus: 

VAR (Name): (Typ); 

(Name) steht hier für einen beliebig wählbaren Namen. Mit 
(Typ) ist der entsprechende Variablentyp gemeint, den die 
Variable bekommen soll. Ein Deklarationsbeispiel wäre: 

VAR ganzezahl: integer; 
zweitezahl: real; 

Wie bei »CONST« ist bei mehreren Variablendeklarationen 
nur einmal das Wort »VAR« notwendig. Hat man mehrere 

8 


Variable des gleichen Datentyps, so kann man beispielsweise 
schreiben: 

VAR zahll: integer; 
zahl2: integer; 

Es ist aber auch erlaubt, Variable gleichen Typs durch Kom¬ 
mata getrennt hintereinander aufzulisten und anschließend 
den gemeinsamen Datentyp anzugeben: 

VAR zahll,zahl2: integer; 

Die Liste der Variablennamen kann hierbei beliebig lang 
sein und über mehrere Bildschirmzeilen verlaufen. Die einzel¬ 
nen Variablentypen sollen nun näher erläutert werden. 

Integer-Werte sind alle positiven und negativen ganzen 
Zahlen, das heißt Zahlen ohne Nachkommastellen. Beispiele 
wären: 

17, -24, 5349 

Alle Zahlen, die keine Nachkommastellen haben, werden in 
Pascal als Integers interpretiert. Die größte, darstellbare 
ganze Zahl ist vom jeweiligen Pascal-Compiler abhängig. Sie 
ist in der Konstanten »maxint« bereits vordefiniert. Beim C 64 
liegt der Bereich der Integer-Zahlen in der Regel zwischen 
-32767 und 32767. Die Deklaration von Integer-Variablen 
könnte zum Beispiel so aussehen: 

VAR max,moritz: integer; 

Die Variablen mit den Namen »max« und »moritz« werden 
damit als Integers definiert, »max« und »moritz« dürfen nur¬ 
mehr ganze Zahlen beinhalten. 

Der Datentyp real bezeichnet die Menge aller reellen Zah¬ 
len, das heißt aller gewöhnlichen positiven und negativen 
Zahlen wie zum Beispiel 
5.8, -14.0, 3-14156 

Alle Zahlen, die mindestens eine Nachkommastelle haben, 
werden in Pascal als Zahl des Typs real interpretiert. Eine Null 
zählt hierbei auch als Nachkommastelle, beispielsweise 14.0. 
Die Zaiil 14 wird dagegen vom Compiler als Integer angese¬ 
hen. Reelle Zahlen werden oft auch in der Exponential- 
schreibweise dargestellt. Mathematisch gesehen könnte 
man zum Beispiel die Zahl 
27568.45 

auch folgendermaßen schreiben: 

2.756845 * 10'4 

Diese Exponentialschreibweise, die man auch »wissen¬ 
schaftliche Darstellung« nennt, hat insbesondere bei sehr 
großen und sehr kleinen Zahlen gewisse Vorteile. Pascal 
beherrscht auch diese Art der Darstellung. Für den Ausdruck 
»* 10"« wird lediglich der Buchstabe »e« (für Exponent) ver¬ 
wendet. So würde unser letztes Beispiel in Pascal- 
Exponentschreibweise so lauten: 

2.756845e+4 

Diese Art von Darstellung wird vom Computer anstandslos 
akzeptiert. Hat man eine Variable als real deklariert, so kann 
sie alle reellen Werte annehmen. Die korrekte Definition einer 
Variablen des Typs real wäre beispielsweise 
VAR länge: real; 

Variable des Typs boolean können nur zwei Werte anneh¬ 
men: »true« und »false«, die beiden Wahrheitswerte. Bei bei¬ 
den handelt es sich um bereits vordefinierte Konstante. Ein 
Definitionsbeispiel hierzu wäre: 

VAR bestanden: boolean; 

Die Variable »bestanden« kann jetzt nur die Werte »true« 
oder »false« annehmen. Was man mit solchen Variablen 
anfangen kann, wird zu einem späteren Zeitpunkt eingehend 
erklärt. 

Der Datentyp char umfaßt alle dem Pascal-Compiler zur 
Verfügung stehenden Druckzeichen (siehe Bild 1). Eine so 
deklarierte Variable kann nur eines der Druckzeichen aufneh¬ 
men; in diesem Fall können auch das Leerzeichen und die 
Pascal-Sonderzeichen Druckzeichen sein. Analog zu den 
anderen Datentypen wird eine Variable des Typs char zum 
Beispiel so definiert: 
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VAR buehstabe: char; 

Benötigt man Variable, die mehr als nur ein Zeichen, also 
auch Zeichenketten, enthalten können, so bietet UCSD- 
Pascal den zusätzlichen Datentyp String an. Ein Beispiel hier¬ 
für wäre: 

VAR Wohnort: string; 

Die Variable »wohnort« hat in diesem Fall eine variable 
Länge, das heißt, es können Zeichenketten mit verschiede¬ 
ner Länge darin abgelegt werden. Es ist aber auch beim 
Datentyp string möglich, eine feste Länge anzugeben. Dies 
geschieht durch eine Längenangabe in eckigen Klammern 
direkt hinter dem Wort »string«, wie zum Beispiel 
VAR Wohnort: string[20]; 

Die maximale Zeichenlänge der Variablen »wohnort« 
beträgt jetzt nur 20 Zeichen. Mit diesen Informationen kön¬ 
nen Sie bereits jetzt einen perfekten Programmkopf und 
Deklarationsteil in Pascal schreiben, zum Beispiel so: 
PROGRAM meinersteswerk; 

CONST Ziffern = '0123456789'; 

Sternchen = '#'; 

plus = 456; 

minus = -plus; 


VAR 


Dazwischen stehen nun die einzelnen Anweisungen, die das 
Programm ausführen soll. »BEGIN« und »END« können auch 
ohne dazwischen stehende Befehle unmittelbar hintereinan¬ 
der stehen. Damit kann man auch schon sein allererstes Pro¬ 
gramm schreiben, das wie folgt lautet: 

PROGRAM adam; 

BEGIN END. 

Dieses Programm bewirkt selbstverständlich nichts, da 
keine Anweisungen zwischen »BEGIN« und »END« stehen. 
Programmtechnisch ist dies aber bereits ein perfektes 
Pascal-Programm. 

Damit kommen wir zu den Befehlen und Operatoren von 
UCSD-Pascal. Entsprechend ihres Datentyps bietet Pascal 
zur Verarbeitung von Variablen und Werten eine Reihe von 
Operatoren und Funktionen an, die hauptsächlich arithmeti¬ 
scher Art sind. Bild 4 zeigt sämtliche Operatoren und Funktio¬ 
nen mit ihren Bedeutungen, die auf Werte und Variable des 
Typs integer angewandt werden können. 

Neben den arithmetischen Operatoren für die Addition, 
Subtraktion und Multiplikation gibt es die Operatoren »DIV« 
und »MOD«. »DIV« dividiert zwei ganze Zahlen ohne Berück¬ 
sichtigung des Restes und liefert nur das ganzzahlige Ergeb¬ 
nis. Als Umkehrung dazu bestimmt »MOD« den Rest einer 
solchen Division. Wie diese Operatoren arbeiten, soll in eini¬ 
gen Beispielen gezeigt werden: 


18 DIV 4 

ergibt 4 

11 DIV 2 

ergibt 2 

7 DIV 9 

ergibt 0 

18 MOD 4 

ergibt 2 

11 MOD 2 

ergibt 1 

7 MOD 9 

ergibt 7 


buehstabe: char; 
betrag,summe: real; 
zaehler: integer; 
nachname: string; 
antwort: boolean; 

Doch der Deklarationsteil allein macht noch kein Pascal- 
Programm. Kommen wir deshalb zum ausführenden Teil 
eines Programms, dem Anweisungsteil. Er beginnt stets mit 
dem Schlüsselwort »BEGIN« und muß mit dem Wort »END« WieS'e in Bild 4 sehen können, dürfen auch vier Standard- 
und einem darauf folgenden Punkt abgeschlossen werden, funktionen, die wiederum Integer-Werte liefern, angewandt 

werden. Was Funktionen genau sind, werden wir später noch 
erfahren. Merken wir uns vorerst, daß sie durch Angaben von 
Argumenten, das heißt bestimmten Werten, andere Werte 
entsprechend ihrer Funktion liefern. sqr() für das Quadrat 
und abs() für den Absolutbetrag eines Integerwertes haben 
die gleichen Funktionen wie in der Mathematik. Auch hier sol¬ 
len einige Beispiele zur Verdeutlichung dienen: 
sqr(5) ergibt 25 

sqr(-8) ergibt 64 


Operatoren: 


+ 

Addition 

- 

Subtraktion 

* 

Multiplikation 

DIV 

ganzzahlige Division 

MOD 

Rest einer ganzzahligen Division 

Funktionen: 

SQR(x) 

Quadrat von x 

ABS(x) 

Absolutwert von x 

PRED(x) 

Vorgänger von x 

SUCC(x) 

Nachfolger von x 

Bild 4. Integer-Operatoren 

Operatoren: 

+ 

Addition 

- 

Subtraktion 

* 

Multiplikation 

/ 

Division 

Funktionen: 

SQR(x) 

Quadrat von x 

ABS(x) 

Absolutwert von x 

SQRT(X) 

Quadratwurzel von x 

EXP(x) 

Exponentation von x zur Basis e 

LN(x) 

natürlicher Logarithmus von x 

SIN(x) 

Sinus von x 

COS(x) 

Cosinus von x 

ARCTAN(x) 

Arcusstangens von x 


Bild 5. Real-Operatoren 


abs(l6) ergibt 16 

abs(-19) ergibt 19 

»predQ« und »succ()« hingegen bestimmen den Vorgänger 
und Nachfolger einer Integer-Zahl. Welcher Wert Vorgänger 
oder Nachfolger ist, wird durch die vom Datentyp festgelegte 
Ordnung bestimmt. Im Falle der Integer-Zahlen werden Vor¬ 
gänger und Nachfolger der Größe nach ermittelt. Beispiele 
seien hier: 

pred(9) ergibt 8 

pred(5) ergibt 4 

pred(-8) ergibt -9 

succ(9) ergibt 10 

succ(5) ergibt 6 

succ(-8) ergibt -7 

Für die Zahlen und Variablen des Typs real, also für alle reel¬ 
len Zahlen, stehen etwas mehr Funktionen zur Verfügung. 
Bild 5 zeigt sie in einer Tabelle zusammengefaßt. Im Gegen¬ 
satz zu den Integer-Operatoren kann bei den Zahlen des Typs 
real die normale Division mit Nachkommastellen angewandt 
werden. Eine Verwendung von »DIV« und »MOD« ist dagegen 
unzulässig. Beispiele sind: 

5.2 - 1.7 ergibt 3-5 

18.0 / 4.0 ergibt 4.5 (dagegen 18 DIV 4 ergibt 4) 
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Die Palette der Funktionen hat sich erweitert. Außer der 
bekannten Quadrat- und Absolutfunktion stehen hier auch 
die Quadratwurzel-, die »e«-Funktion, der natürliche Logarith¬ 
mus und die trigonometrischen Funktionen Sinus, Cosinus 
und Arcustangens zur Verfügung. Die Funktionen »predQ« 
und *succ()« liefern beim Datentyp real keine eindeutigen 
Ergebnisse und sind deshalb bei diesem Typ nicht gestattet. 
Statt dessen stehen zwei neue Funktionen zur Verfügung, 
die eine reelle Zahl in einen Integer-Wert verwandeln. Die 
Funktion *trunc()« schneidet alle Nachkommastellen einer 
reellen Zahl ab und hinterläßt nur den ganzzahligen Teil. 
»roundQ« hingegen rundet eine reelle Zahl auf die nächste 
ganze Zahl. Der Unterschied der beiden Funktionen wird in 
einigen Beispielen deutlich: 
trunc(3.1415) ergibt 3 

trunc(5.7594) ergibt 5 


round(5.7594) ergibt dagegen 6, da bei 

den Nachkommastellen ab 0.5 
aufgerundet wird, 
round(2.1718) ergibt 2 

In Bild 6 sehen Sie die Operatoren und Funktionen, die für 
Werte und Variable des Typs boolean gedacht sind. 

Dies sind eigentlich nur drei logische Operatoren mit den 
Bezeichnungen »NOT« (Negation), »AND« (Konjunktion) und 
»OR« (Disjunktion). Aber auch hier dürfen einige Beispiele 
nicht fehlen: 

NOT true ergibt false 

true AND false ergibt false 

true OR true ergibt true 

Beim Datentyp boolean sind die beiden Funktionen 
»pred()« und »succ()« wieder gestattet, jedoch nur in den bei¬ 
den folgenden Fällen: 

pred(true) ergibt false G^GH 

succ(false) ergibt true 

»pred(false)« und »succ(true)« sind dagegen nicht definiert 
und geben daher auch kein Ergebnis. Eine weitere Funktion, 
die als Argument zwar einen Wert des Typs Integer benötigt, 
als Ergebnis aber einen boolschen Wert liefert, ist »odd()«. 
Sie ist »true«, wenn der Wert in den Klammern eine ungerade 
Zahl ist. Für eine gerade Zahl ergibt die Funktion »false«. Bei¬ 
spiele hierfür sind: 
odd(15) ergibt true 
odd(-44) ergibt false 

Für den Datentyp char gibt es keine der oben genannten 
Operatoren zur Verarbeitung. Es können jedoch die soge¬ 
nannten relationalen Operatoren angewandt werden. Diese 
werden später noch ausführlich besprochen. Kommen wir 
zunächst zu den für den UCSD-Standard üblichen Datentyp 
string. Auch dafür können keine der bereits erwähnten Ope¬ 
ratoren und Funktionen verwendet werden. UCSD-Pascal 
bietet vielmehr besondere Funktionen und Prozeduren, die 
nur für Strings gedacht sind. In Bild 7 sind sie tabellarisch auf¬ 
geführt. 

Was man damit anfangen kann, ist speziell zur Stringverar¬ 
beitung vorgesehen. Zum Verständnis der Grundkenntnisse 
von Pascal sind diese Funktionen jedoch nicht nötig und wer- 


Operatoren: 

NOT x Negation 

AND Konjunktion 

OR Disjunktion 

Funktionen: 


ODD(x) Test ob x gerade 

PRED(x) Vorgänger von x 
SUCC(x) Nachfolger von x 


den deshalb an dieser Stelle übergangen. Sie werden später 
in einem eigenen Teil besprochen, der sich ausschließlich mit 
den UCSD-Standardfunktionen beschäftigt. Mit Hilfe der 
Tabellen in Bild 4 bis 6 können Sie jetzt bereits einfache 
Berechnungen in Pascal anstellen. 

Im Anweisungsteil können den vordefinierten Variablen 
Werte zugewiesen werden. Dies geschieht mit dem Zuwei¬ 
sungsoperator »:=« , wie zum Beispiel: 

zahl := 46; 

Zeichen := ’a'; 

Die Variablen dürfen aber nur Werte gemäß ihres vorbe¬ 
stimmten Datentyps erhalten. So lassen sich einer Integer- 
Variable nur Integer-Werte zuweisen, einer Variablen des 
Typs real dagegen nur reelle Zahlen. Wenn man den Datentyp 
bei der Zuweisung nicht beachtet, kann einem das der 
Pascal-Compiler recht übelnehmen. Um diese wichtige 
Regel zu veranschaulichen, sei ein kleines Beispiel aufge¬ 
führt. Folgende Variablen werden definiert. 

VAR ganzezahl: integer; 
reellezahl: real; 

Zeichen: char; 
kette: string; 

Jetzt können diesen Variablen entsprechende Werte zuge¬ 
wiesen werden, zum Beispiel so: 

BEGIN 

ganzezahl := 248; 
reellezahl := 3-14156; 

Zeichen := 'a'; 

END. 

Unkorrekt dagegen wäre folgendes: 

BEGIN 

ganzezahl := 2.7182818; 
reellezahl := '1'; 

Zeichen := 40.1; 

END. 

Es können aber auch ganze Ausdrücke zugewiesen wer¬ 
den. Diese Ausdrücke dürfen sich aus Operanden, Operato¬ 
ren, Klammern und Funktionen zusammensetzen. Aus¬ 
drücke können zum Beispiel so aussehen: 

15.2 + 9.98 

(maxint - 30000) * (45 DIV 3) 
false OR (true AND NOT true) 

2-sqr(28 * 4) 

Die Berechnung der Ausdrücke erfolgt durch besondere 
Regeln. Eine recht einfache ist die aus der Mathematik 
bekannte Regel »Punkt vor Strich«. Sie besagt, daß die Multi¬ 
plikation und Division vor der Addition und Subtraktion ausge¬ 
führt wird. Die Zeichen »*« oder»/« haben also eine höhere 
Priorität als »+« und »-«. Man sagt auch, daß »*« und»/« stär¬ 
ker »binden«. Die Regeln in Pascal sind hauptsächlich die 
arithmetischen Bindungsregeln. So haben Klammern und die 
logische Negation »NOT« die höchste Priorität und werden 
zuerst berechnet. Danach kommen die Multiplikationsopera¬ 
toren »*,/,DIV,MOD,AND«, gefolgt von den Additionsoperato¬ 
ren »+,-,OR« und letztendlich die Vergleichsoperatoren (Bild 
8), deren Bedeutung noch erklärt wird. Operatoren der glei¬ 
chen Priorität werden in der Reihe ihres Auftretens verarbei¬ 
tet. Es muß darauf geachtet werden, daß die verwendeten 


Funktionen: 

CONCAT(string1,string2) 
COPY(string,anfang 1 länge) 
POSfMusterstring, Quellstring) 

Verbinden von string 1 und 2 
Kopieren eines Teilstrings 
Test auf identische Strings 

Prozeduren: 

INSERT(string, Zielstring, anfang) 
DELETE(Zielstring,anfang,anzahl) 

Einfügen eines Strings 
Löschen eines Teilstrings 


Bild 6. Boolean-Operatoren 


Bild 7. Stringfunktionen 
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Operatoren auch tatsächlich nur mit den Werten des richti¬ 
gen Datentyps verknüpft werden. So wäre ein Ausdruck wie 
1.987 DIV 0.27 

nicht erlaubt, da »DIV« nur mit Integer-Werten verknüpft wer¬ 
den darf. Eine Ausnahme bilden die Operatoren und Funktio¬ 
nen für Zahlen des Typs real. Sie dürfen auch in Verbindung 
mit Integer-Zahlen angewandt werden. Ein Integer-Wert wird 
dann vom Computer selbständig in einen Real-Wert umge¬ 
wandelt. Umgekehrt geht dies aber nicht, wie das obige Bei¬ 
spiel mit »DIV« zeigt. Man muß ebenfalls darauf achten, daß 
der Gesamtausdruck rechts vom Zuweisungsoperator »:=« 
im Ergebnis den gleichen Datentyp hat, wie die Variable links 
davon. Wir können zum Beispiel folgende Variablen deklarie¬ 
ren: 

VAR a,b,c,d: integer; 
e,f: real; 
g,h,i: boolean; 

So wären die Variablenzuweisungen 
e := a - b / d 
g := g AND NOT (h OR i) 
f := c MOD b 

durchaus in Ordnung. Anders bei diesen Zuweisungen: 
a := e - f 

g := false OR (NOT i + d) 
d := b / c * a 

Die dürfte der Compiler wohl nicht akzeptieren. Man sollte 
sich besonders gut mit den Datentypen und deren zulässigen 
Operatoren vertraut machen, da die Anwendung von nicht 
zulässigen Operatoren eine häufige Fehlerquelle beim Pro¬ 
grammieren ist. 


Eingabe muß selbstverständlich zum Typ der Variablen pas¬ 
sen, sonst kommt es zu einer Fehlermeldung. So ist es bei¬ 
spielsweise unmöglich, in eine als integer deklarierte Variable 
Zeichen einzugeben. Um verschiedene Daten auf dem Bild¬ 
schirm sichtbar zu machen, ist die »WRITE«-Prozedur zu ver¬ 
wenden. Sie hat eine ähnliche Syntax wie »READ«: 

WRITE((Ausdruck)); 

Ein Ausdruck kann hierbei aus Variablen, Zeichen, Zei¬ 
chenketten oder ganzen Rechenausdrücken bestehen. 
Einige Beispiele machen dies deutlich: 

Befehl Ausgabe 

WRITE(3.14156); 3-14156 

WRITE('Ausgabe 1 ); Ausgabe 

WRITE(ergebnis); (Wert der Variablen 

"ergebnis") 


WRITE(7 + 12 # 2); 31 

WRITE(max * moritz); (Wert aus Multiplikation der 

Variablen "max" und "moritz") 

Es können Variable und Werte aller Datentypen ausgege¬ 
ben werden. Selbst Werte des Typs boolean können mit 
»WRITE« auf den Bildschirm geschrieben werden. Es 
erscheint dann jeweils die Ausgabe »true« oder »false«. Die 
Ausführung der »WRITE«-Anweisung geschieht immer an der 
momentanen Cursorposition. Zwei Zeichenketten würden 
also unmittelbar hintereinander auf dem Bildschirm erschei¬ 
nen. Die Anweisungen 

WRITE('Erste Zeichen’); 

WRITE('Zweite Zeichen'); 
würden demnach zu folgendem Ausdruck führen: 


Erste ZeichenZweite Zeichen 


PROGRAM berechnung; 


CONST pi = 3.1-1156; 

S4ER C 

VAR radius,umfang: real; 


BEGIN 


radius := 2.5; 


umfang := 2 » pi * radius; 

Listing 1. 

END. 

Einfache Berechnungen 


Nach Studium des bisherigen Teils unseres Pascal-Kurses 
sind Sie nun imstande, ein kleines Pascal-Programm zu 
schreiben, in dem auch wirklich etwas passiert (Listing 1). 
Damit haben wir zwar ein Programm, das Aktionen ausführt, 
doch fehlt noch die Verbindung nach außen. Es gab bisher 
noch keine Möglichkeiten, die bearbeiteten Daten auf dem 
Bildschirm sichtbar zu machen oder dem Programm Daten 
und Werte über die Tastatur mitzuteilen. Dazu hat Pascal spe¬ 
zielle Anweisungen parat, die die Ein- und Ausgabe von 
Daten ermöglichen. Es handelt sich um die sogenannten 
Standardprozeduren »READ« und »WRITE«. Die »READ«- 
Anweisung erlaubt dem Anwender die Eingabe von Daten 
während des Programmablaufs. Dieser Befehl ist dem INPUT- 
Statement von Basic sehr ähnlich. Mit 

READ((Variablenname)); 

lassen sich Variablen von der Tastatur aus Werte zuweisen, 
die dann vom Programm weiterverarbeitet werden. Gelangt 
das Programm an eine »READ«-Anweisung, so wird es in der 
Regel unterbrochen und der Computer wartet auf eine Ein¬ 
gabe von der Tastatur, die mit der Taste < RETURN > abge¬ 
schlossen werden muß. Unter der Voraussetzung, daß der 
verwendete Variablenname vorher ordnungsgemäß dekla¬ 
riert wurde, können Eingaben mit »READ« beispielsweise fol¬ 
gendermaßen geschehen: 

READ(zahl); 

READ(Zeichen); 

READ(text); 

Die angegebenen Namen müssen Variable vom Typ inte¬ 
ger, real, char oder (speziell für UCSD-Pascal) string sein. Die 


Wünscht man, daß die Ausgabe in einer neuen Zeile begin¬ 
nen soll, muß man die Anweisung »WRITELN« benutzen. Man 
nennt sie auch »Write-Iine«-Anweisung, die bewirkt, daß ein 
»EOLT.i (End-of-Line-Zeichen) an den Computer gesendet 
wird. Das heißt für ihn, weitere Ausgaben in einer neuen Zeile 
fortzusetzen. 

WRITELN; 

bewirkt einen Zeilenvorschub zum Anfang der nächsten 
Zeile. Man kann aber »WRITELN« auch direkt zur Ausgabe 
verwenden, wie zum Beispiel: 

WRITELN('Dies ist ein Satz'); 

In diesem Fall wird der Ausdruck innerhalb der Klammern 
ausgegeben. Anschließend wird das »EOLN« gesendet, wel¬ 
ches, wie bereits erwähnt, einen Zeilenvorschub bewirkt. 
Das gleiche Ergebnis hätten folgende Anweisungen: 

WRITE('Dies ist ein Satz'); WRITELN; 

Analog dazu gibt es auch den »READLN«-oder »Read- 
Line«-Befehl. Dieser Befehl bewirkt, daß mit der Eingabe in 
der nächsten Bildschirmzeile fortgefahren wird. Man schreibt 
einfach: 

READLN; 

Wie bei der »WRITELN«-Anweisung können auch hier 
Eingabe-Variablen dabeistehen. Beispielsweise läßt 

READLN(zahl); 

eine Eingabe der Variablen mit dem Namen »zahl« zu und liest 
danach das »EOLN«. So könnte man dafür ebenfalls schrei¬ 
ben: 

READ(zahl); READLN; 

Neben der einfachen Ausgabe von Werten und Zeichen hat 
der »WRITE«-Befehl noch eine weitere sehr nützliche Eigen¬ 
schaft. Durch Angabe weiterer Faktoren in der »WRITE«- 
Anweisung kann man seine Werte in einem bestimmten For¬ 
mat ausgeben lassen. Die Anweisung 

WRITE(a:f); 

bewirkt, daß der Ausdruck »a« durch genau »f«-Zeichen dar¬ 
gestellt wird. Benötigt »a« eine größere Zeichenanzahl als in 
»f« angegeben, so wird »a« mit entsprechend mehr Zeichen 
ausgedruckt. Es werden also keine Zeichen abgeschnitten 
oder nicht ausgegeben. Ist der Ausdruck jedoch kleiner als 
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»f«-Stellen, werden die fehlenden Zeichen durch vorange- 

stelite Leerzeichen ausgefüllt. Wie das in der Praxis aussieht, 

soll mit einigen Beispielen verdeutlicht werden. Das Zeichen 

»L« entspricht hierbei einem ausgegebenen Leerzeichen. 

Anweisung Ausgabe 

WRITE(24680:6); L24680 

WRITE(-13579:9); LLL-13579 

WRITE(10000:3); 10000 

WRITE('Text 1 :6); LLText 

WRITE('Text 1 :2); Text 

Sollte der auszugebende Wert vom Datentyp real sein, 
müssen einige Besonderheiten beachtet werden. Ist »f« 
angegeben, so erfolgt die Ausgabe der Zahl in Exponential- 
schreibweise mit mindestens einem vorangestellten Leerzei¬ 
chen. Wie diese Schreibweise aussieht, wurde bei der Erklä¬ 
rung des Datentyps real bereits angeschnitten. Hierzu wie¬ 
der einige Beispiele: 

Anweisung Ausgabe 

WRITE(56.78:14); L5.67800e+0001 

WRITE(-56.78:15); L-5.67800e+0001 

WRITE(-56.78:11); L-5.6e+0001 

Durch Angabe eines weiteren Parameters kann man bei 
Daten des Typs real zusätzlich die Genauigkeit der Ausgabe 
festlegen. Die Anweisung dazu lautet: 

WRITE(a:f:g); 

Mit dem zusätzlichen Parameter »g« wird die Stellengenau¬ 
igkeit bestimmt. Der Ausdruck wird somit mit »f«-Stellen 
Länge und einer Genauigkeit von »g«-Stellen hinter dem Dezi¬ 
malpunkt angegeben. Auch hier wieder einige Beispiele: 
Anweisung Ausgabe 

WRITE(-56.78:9:3); LL-56.780 

WRITE(-56.78:4:4); L-56.7800 

WRITE(-5.678e+l:9:1); LLLL-56.7 

Ausgabe mit Komfort 


Damit sind die Möglichkeiten der »READ«- und »WRITE«- 
Anweisungen noch nicht erschöpft. Über die komfortable for¬ 
matierte Ausgabe hinaus läßt es Pascal auch zu, mehrere 
Ausdrücke mit nur einem »WRITE«-Befehl auszugeben. Die 
einzelnen Ausdrücke müssen nur durch Kommata voneinan¬ 
der getrennt werden. Diese Ausdrücke können den verschie¬ 
densten Datentypen angehören. So ist zum Beispiel folgen¬ 
der Befehl vollkommen korrekt: 

WRITE('Die Summe beträgt ',100,' DM'); 

Die Ausgabe würde folgendermaßen lauten: 

Die Summe beträgt 100 DM 

Die Wirkung ist hierbei die gleiche, wie beim Ausführen ein¬ 
zelner »WRITE«-Befehle hintereinander. Es sind ebenfalls 
verschiedene Formate gestattet, wie zum Beispiel: 

WRITE(12.56:8:3 , 98765:6); 

Auch die »READ«-Anweisung ist ähnlich komfortabel. Es ist 
auch hier möglich, mehrere Eingabevariablen in nur einem 
»READ«-Befehl unterzubringen. Auch sie müssen durch 
Kommatas getrennt werden und können unterschiedlichen 
Typs sein. Wichtig ist nur, daß die jeweiligen Tastatureinga¬ 
ben mit den jeweiligen Variablentypen übereinstimmen. 

READ(wertl,wert2,wert3,name); 
ist zum Beispiel durchaus möglich. Wie bei »WRITE« bewirkt 
dies das gleiche, wie einzeln hintereinander geschriebene 
»READ«-Anweisungen. Dieselben Regeln gelten auch für die 
Befehle »WRITELN« und »READLN«. Die Anweisung 

WRITELN(wertl,wert2); 
ist äquivalent zu 

WRITE(wertl,wert2); WRITELN; 

Ebenso ist 

READLN(wertl,wert2); 
gleichbedeutend mit 

READ(wertl,wert2 ); READLN; 


PROGRAM Wurzel; 

VAR zabll,zahl2, wurzel: real; 

BEGIN 

READLN(zahll); 

READLN(zahl2); 

WRITELN('Dle Summe Ist 1 ,zahll + zahl2); 
wurzel := SQRT(zahll + Zahl2); 

WRITELN('Die Wurzel daraus ist ',wurzel:6:4); 
END. 

Listing 2. Berechnungen mit Ein- und Ausgabe 


Nachdem Sie diese Unmengen an Information verdaut 
haben, können Sie jetzt bereits Ihre ersten Programme 
schreiben, die schon die Ein- und Ausgabe von Werten und 
Zeichen beinhalten. Außerdem wissen Sie, wie man in Pascal 
rechnet und sind damit schon in der Lage, kleine mathemati¬ 
sche Probleme in Pascal zu formulieren, wie zum Beispiel das 
Programm in Listing 2, welches zwei reelle Zahlen addiert 
und daraus die Wurzel zieht. Die Ausgabe erfolgt formatiert 
auf vier Stellen hinter dem Dezimalpunkt genau. 

Bisher können Sie Pascal-Programme schreiben, die 
Daten von der Tastatur aufnehmen, mit ihnen Berechnungen 
durchführen und schließlich die Ergebnisse oder anderes auf 
dem Bildschirm ausdrucken. Dabei werden alle Befehle nach 
dem Schlüsselwort »BEGIN« der Reihe nach ausgeführt, bis 
das Wort »END.« erreicht ist. Für einfache Rechnungen ist 
dies auch vollkommen ausreichend. Komplexere Probleme 
bedürfen jedoch verschiedener Steuermöglichkeiten, die 
bestimmen, wann welche Anweisungen unter welchen 
Bedingungen abzuiaufen haben. Hinzu kommen Wiederho¬ 
lungen von Programmabschnitten, die öfter als einmal 
gebrauo;.i werden. Pascal bietet eine Reihe von Anweisun¬ 
gen, die dies übernehmen. 

Viele Programmier-Probleme machen es nötig, daß eine 
oder mehrere Anweisungen mehrmals hintereinander ausge¬ 
führt werden müssen, wie zum Beispiel die Eingabe von meh¬ 
reren gleichartigen Daten. Mit den Möglichkeiten, die wir 
bereits gelernt haben, hieße das, daß wir diese Anweisungen 
so oft hintereinander im Programm aufschreiben müßten, wie 
es der Zahl der gewünschten Wiederholungen entspricht. 
Eine mühselige und vor allem Speicherplatz raubende 
Methode. Um dies zu vermeiden, gibt es in Pascal die soge¬ 
nannte »Zählschleife«. Sie erlaubt ein beliebig langes Wieder¬ 
holen von Anweisungen. Sie wird auch FOR-Schleife 
genannt und hat in Pascal folgende Syntax: 

F0R (Kontrollvariable) := (a) T0 (e) 

DO (Anweisung); 

Als Kontrollvariable kann eine beliebige Variable verwendet 
werden, bei deren Datentyp der Nachfolgerwert eindeutig 
bestimmt werden kann. Das heißt, daß die Funktion »succ()« 
definiert sein muß. Dies wären, wie wir an den einzelnen Ope¬ 
ratorentabellen in Bild 4-6 erkennen können, die Typen inte¬ 
ger, char und boolean. Auf keinen Fall kann man die Datenty¬ 
pen real und string benutzen, »a« und »e« sind die Anfangs¬ 
und Endwerte der Schleife. Sie dürfen aus Werten, Variablen 
oder ganzen Ausdrücken bestehen. Man muß aber darauf 
achten, daß sie dem Datentyp der Kontrollvariable entspre¬ 
chen. (Anweisung) stellt in diesem Fall schließlich die Anwei¬ 
sung dar, die wiederholt werden soll. In der Regel kann jede 
beliebige Anweisung hinter »DO« stehen. Selbst die Kontroll¬ 
variable darf dabei zu Berechnungen benutzt werden. Eine 
Veränderung derselben innerhalb der Anweisung ist in Pascal 
jedoch verboten. Eine verbotene FOR-Schleife ist zum Bei¬ 
spiel: 

F0R faktor := 1 T0 20 DO faktor := sqr(faktor); 

Sie verändert die Kontrollvariable »faktor« während des 
Schleifenablaufs. Mit einer kleinen Änderung wird diese 
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Schleife wieder syntaktisch korrekt: 

FOR faktor := 1 TO 20 DO loesung := sqr(faktor); 

Statt der Kontrollvariablen »faktor« wird nun das Ergebnis 
der Variablen »loesung« zugewiesen. Da »faktor« auch als 
Kontrollvariable als Wert verwendet werden darf, kann das 
zweite »faktor« stehengelassen werden. Trifft der Computer 
auf einen »FOR«-Befehl, nimmt die Kontrollvariable den 
Anfangswert »a« an. Danach wird die Anweisung nach »DO« 
ausgeführt. Der Computer erhöht nun den Wert der Kontroll¬ 
variablen auf ihren Nachfolgewert und führt ein weiteres Mal 
die Anweisung hinter »DO« aus. Die letzten beiden Schritte 
werden so lange wiederholt, bis der Endwert »e« erreicht ist. 
Anschließend wird die Anweisung ein letztes Mal aufgerufen, 
die Schleife beendet und der nächste Befehl dahinter abge¬ 
arbeitet. Sollte der Anfangswert zu Beginn der Schleife 
schon größer als der Endwert sein, wird die Schleife gar nicht 
ausgeführt. Möchte man mehrere Anweisungen, also einen 
ganzen Anweisungsblock, wiederholen, so ist dies mit 
»FOR...DO« auch möglich. Dabei werden die zu wiederholen¬ 
den Befehle hinter »DO* mit dem Schlüsselwort »BEGIN« 
begonnen und mit »END« abgeschlossen. Die FOR-Schleife 
sieht nun so aus: 

FOR (Kontrollvariable) ':= (a) TO (e) DO BEGIN 
(Anweisungen) END; 

Nun werden Sie sagen, daß die beiden Worte »BEGIN« und 
»END« doch bereits für den Beginn und das Ende des 
Gesamtprogramms reserviert sind. Dies ist aber nicht ganz 
richtig. Pascal verwendet »BEGIN« und »END« allgemein zur 
Kennzeichnung eines zusammengehörenden Anweisungs¬ 
blocks, der auch Verbundanweisung genannt wird. Somit 
wird auch das Hauptprogramm, also der gesamte Anwei¬ 
sungsteil eines Pascal-Programms, als eine einzige Verbund¬ 
anweisung verstanden. Es können hierbei beliebig viele 
Anweisungen zwischen »BEGIN« und »END« stehen. In 
Listing 3 sehen Sie ein Beispiel für die Verwendung einer 
FOR-Schleife. 

Pascal erlaubt auch verschachtelte Schleifen, das heißt es 
darf auch innerhalb einer »FOR«-Anweisung ein weiterer 
»FOR«-Befehl stehen, innerhalb diesem ein weiterer, und so 
weiter. Das folgende Beispiel soll dies schematisch darstel¬ 
len: 

FOR loopl := al TO el DO 

FOR loop2 := a2 TO e2 DO 

FOR loop3 := a3 TO e3 DO ... 

Die Schachtelungstiefe, das heißt die Anzahl der Schleifen, 
die man ineinanderpacken kann, hängt von der Leistungsfä¬ 
higkeit jedes Pascal-Compilers ab, da er sich ja alle Schachte¬ 


PROGRAM schlelfel; 

VAR Index: integer; 

BEGIN 

FOR Index :- 1 TO 10 DO BEGIN 

WRITE('Das Quadrat von '.Index, 1 ist '); 
WRITE(SQR(Index); 

END; 

END. 

Listing 3. Einfache FOR-Schleife 


PROGRAMM schlelfe2; 

VAR indexl,index2: integer; 

BEGIN 

FOR indexl : = 1 TO 10 DO BEGIN 
FOR index2 := 1 TO 10 DO BEGIN 
Write(indexl,,index2,'=',indexl*index2); 
END; 

END; 

END. 

Listing 4. Verschachtelte FOR-Schleife 


PROGRAM raufundrunter; 

VAR Index: integer; 

BEGIN 

WRITELNpIch zähle jetzt rauf!'); 

FOR Index := 1 TO 20 DO WRITELN(Index);' 
WRITELNpIch zähle jetzt runter!'); 

FOR Index := 20 D0WNT0 1 DO WRITELN(Index); 
END. 

Listing 5. FOR..DOWNTO 


lungen merken muß. Listing 4 zeigt ein kleines Programm, 
welches das kleine Einmaleins ausdruckt und dabei zwei 
FOR-Schleifen verwendet. 

Die Möglichkeit der Verschachtelung ist natürlich nicht nur 
bei »FOR«, sondern auch bei all den weiteren Schleifenarten 
von Pascal vorhanden. 

Die normale »FOR«...TO-Anweisung zählt die Kontrollvaria¬ 
ble nach der festgelegten Ordnung des jeweiligen Datentyps 
nach oben. Eine Variante dazu ist die »FOR...DOWNTO«- 
Schleife. Sie zählt vom Anfangswert angefangen in der Ord¬ 
nung abwärts. Der Aufbau ist der »FOR...TO«-Schleife ähn¬ 
lich: 

FOR (Kontrollvariable) := (a) D0WNT0 (e) 

DO (Anweisung); 

Die »FOR...DOWNTO«-Anweisung arbeitet nach dem glei¬ 
chen Prinzip wie der »FOR...TO«-Befehl und besitztauch des¬ 
sen Möglichkeiten der Verschachtelung und der Benutzung 
von Verbundanweisungen. Listing 5 demonstriert den Unter¬ 
schied zwischen »FOR...TO« und »FOR...DOWNTO«. 

Der nächste Wert einer FOR-Schleife ist bei »FOR...TO« 
immer der unmittelbare Nachfolger und bei »FOR... 
DOWNTO« der unmittelbare Vorgänger des aktuellen Zähler- 
werto c . Die Schrittweite ist also immer auf den Wert 1 oder 
entspi echend -1 festgelegt. Andere Schrittweiten sieht Pas¬ 
cal nicht vor. Es liegt dann durch besondere Rechnungen an 
den Künsten des Programmierers, auch andere Schrittwei¬ 
ten zu erzeugen. Mit Hilfe einer zweiten Variablen, die quasi 
als fiktive Kontrollvariable fungiert, kann man eine Schritt¬ 
weite von 2 zum Beispiel folgendermaßen erzeugen: 

FOR x := 0 T0 (z - l) DIV 2 DO BEGIN 

y := x # 2 + 1; (# eigentliche Schleife #) 

END; 

»y« nimmt hierbei die Werte 1,3,5,7,9,...z an. Entsprechend 
können auch andere Schrittweiten erreicht werden. Bei dem 
Datentyp char zum Beispiel dürfte dies etwas schwieriger zu 
gestalten sein. 

Neben den beiden »FOR«-Varianten gibt es noch andere 
Schleifenarten, die erst unter bestimmten Bedingungen aus¬ 
geführt oder beendet werden. Dafür ist aber das Verständnis 
des Begriffs »Bedingungen« notwendig. Mit der Erklärung 
von Bedingungen tauchen wir auch etwas in die boolsche 
(logische) Arithmetik ein. Jetzt wird auch der Begriff »relatio¬ 
nale Operatoren«, der schon am Anfang dieses Kurses bei 
der Behandlung von Datentypen erwähnt wurde, benötigt. In 
Bild 8 sind alle diese besonderen Operatoren mit ihren 
Bedeutungen aufgelistet. Diese, im Deutschen auch Ver¬ 
gleichsoperatoren genannten Zeichen, können unter Beach- 


= 

ist gleich 

< > 

ist ungleich 

< 

ist kleiner als 

> 

ist größer als 

< = 

ist kleiner oder gleich als 

> = 

ist größer oder gleich als 

TRUNC(x) 

ganzzahliger Wert von x 

ROUND(x) 

Aufrunden von x 


Bild 8. Relationale Operatoren 
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tung einiger Regeln begrenzt mit allen Standarddatentypen 
verknüpft werden. Allgemein geschrieben sieht ein Ver¬ 
gleichsausdruck so aus: 

(Ausdruckl) (Operator) (Ausdruck2) 

Für »Ausdruckl«jUnd »Ausdruck2« können beliebige Aus¬ 
drücke jeden Datentyps stehen. Wichtig ist nur, daß sie 
untereinander vom gleichen Typ sind. Ein Ausdruck mit Ver¬ 
gleichsoperatoren liefert immer ein Ergebnis des Typs boo- 
lean, das heißt »true« oder »false« für wahr oder falsch. Hier 
ein Beispiel eines solchen Ausdrucks: 

5 + 607*2-3 

Wie das Ergebnis dieses Ausdruckes ausfällt, ist leicht 
festzustellen. 5 plus 6 ergibt 11. Die rechte Seite hat eben¬ 
falls das Ergebnis 11, da 7 mal 2 gleich 14 und das minus 3 
gleich 11 ist. Der Operator heißt aber »ungleich«. Rechtsund 
links stehen aber die gleichen Ergebnisse, womit die Bezie¬ 
hung falsch wäre und das Resultat »false« lautet. Zum besse¬ 
ren Verständnis einige weitere Beispiele: 

9 = 5 + 4 ergibt »true« (die Aussage stimmt) 

4 < 7 ergibt »true« 

7 > 10 ergibt »false« 

5+2<>6 

+ 3 ergibt »true« 

10 < = 9 ergibt »false« 

Solche Vergleichsausdrücke können auch als Bedingun¬ 
gen interpretiert werden, die erfüllt sind, wenn das Ergebnis 
»true« ist, oder nicht erfüllt sind, sollte es »false« sein. Allge¬ 
mein kann man alle Werte des Typs boolean als Bedingungen 
verwenden. Auch einfache Variablen des Typs boolean sind 
damit gemeint. Eine Variable beispielsweise mit Namen »fer¬ 
tig« (natürlich muß sie vorher als Datentyp boolean deklariert 
sein), darf durchaus als eine Bedingung benutzt werden, die 
erfüllt ist, wenn sie den Wert »true« hat, und nicht erfüllt ist, 
sollte ihr Wert »false« sein. Mehrere Bedingungen können 
wiederum zusammengefaßt werden. Da sie vom Typ boolean 
sind, sind Verknüpfungen mit den logischen Operatoren 
»AND«,»OR« und »NOT« erlaubt. Eine Verknüpfung mit »AND« 
wird nur wahr, das heißt erhält das Ergebnis »true«, wenn 
beide Teilbedingungen selbst wahr sind: 

(27 = 9*3) AND (5 <= 6) 

hat das Ergebnis »true« und ist deshalb als Gesamtbedingung 
.wahr. Die Teilbedingungen müssen bei Verwendung der drei 
booleschen Operatoren geklammert werden, da »AND«, 
»OR« und »NOT« mathematisch stärker binden als die Ver¬ 
gleichsoperatoren. Ohne Klammer würde bei unserem Bei¬ 
spiel der Operator »AND« nur für die direkt benachbarten 
Werte, also 3 und 5, gelten. 

27 = 9 # 3 AND 5 <= 6 

Wir haben aber gelernt, daß boolsche Operatoren nur in 
Zusammenhang mit boolschen Werten verwendet werden 
dürfen. 3 und 5 sind aber Integer-Werte, was eine Fehlermel¬ 
dung zur Folge hätte. Bei »OR« reicht es bereits, wenn eine 
der beiden Bedingungen wahr ist, um selbst als Verbundbe¬ 
dingung wahr zu werden. 

(9 < 7) OR (15 + 5 =20) 

Die erste Bedingung in diesem Beispiel ist falsch, da neun 
nicht kleiner als sieben ist. Sie erhält also den Wert »false«. 
Die zweite Bedingung dagegen ist wahr (15 plus 5 ist in der 
Tat 20) und wird daher »true«, womit der Gesamtausdruck 
»true« wird. Es ist ja mindestens eine Bedingung (in diesem 
Fall die zweite) wahr. »NOT«, die logische Negation, benötigt, 
wie auch in Bild 6 erkennbar, nur einen Operanden bezie¬ 
hungsweise eine Bedingung, wie zum Beispiel 
NOT(6 <= 2 # 3) 

Die Bedingung in Klammern erhält den Wert »true«, da zwei 
mal drei sechs ergibt. »NOT true« hat das Ergebnis »false«, 
womit die Gesamtbedingung den Wert »false« ergibt. Damit 
Sie testen können, ob Sie mit den Vergieichoperatoren und 
den logischen Verknüpfungen vertraut sind, können Sie ja 


einmal folgende zusammengesetzte Bedingung daraufhin 
prüfen, ob sie erfüllt ist oder nicht: 

((7 < (4*3)) +9 < > 17) AND 

((5 - 2) > ((4 MOD 2) = (6 DIV 3))) 

Die Auflösung erfahren Sie am Ende des Kurses. Man stellt 
sich nun die Frage, was man mit diesen Bedingungen alles 
anfangen kann. Neben den Zählschleifen »FOR...TO« und 
»FOR...DOWNTO« hält Pascal einige andere sogenannnte 
bedingte Schleifen bereit. 

Im Gegensatz zu »FOR...DO«, das mindestens einmal aus¬ 
geführt wird, sobald der Computer darauf trifft, wird eine 
»WHILE...DO«-Schleife nur beachtet, wenn eine bestimmte 
Bedingung erfüllt ist. Allgemein wird eine »WHILE...DO«- 
Anweisung wie folgt formuliert: 

WHILE (Bedingung) DO (Anweisung); 

Als Bedingung kann jeder Ausdruck gelten, dessen Ergeb¬ 
nis nur »true« (wahr) oder »false« (falsch) werden kann. Wir 
haben diese ja soeben behandelt. Hinter dem Wort »DO« 
steht wieder die Anweisung, die in der Schleife ausgeführt 
werden soll. Benötigt man mehrere Befehle in der Schleife, so 
müssen diese, wie Sie schon wissen, mit »BEGIN« und »END« 
zu einer Verbundanweisung zusammengefaßt werden: 

WHILE (Bedingung) DO BEGIN (Anweisungen) END; 

Ist die Bedingung hinter »WHILE« erfüllt, wird die Anwei¬ 
sung hinter »DO« ausgeführt. Nach Beendigung eines Durch¬ 
gangs wird die Bedingung nochmals geprüft. Die Schleife 
wird ein weiteres Mal durchlaufen, wenn die Bedingung noch 
wahr ist. Sollte sie den Wert »false« ergeben, wird die 
»WHILE...DO«-Schleife abgebrochen. Für den Fall, daß die 
Bedingung von Anfang an falsch ist, werden die Anweisun¬ 
gen der Schleife einfach ignoriert und im Programm fortge¬ 
fahren. Ein Beispiel für die Funktionsweise sei folgendes Pro¬ 
gramm in Listing 6. 

Wer«. Cie das Programm betrachten, können Sie feststel¬ 
len, daß anders als bei der Kontrollvariablen der FOR- 
Schleife die verwendeten Variablen der Bedingung auch 
innerhalb der Schleife selbst verändert werden dürfen. So 
kann ein Ergebnis, das während des Schleifenablaufs 
berechnet wird, einen weiteren Durchlauf verhindern, wenn 
dadurch die Bedingung nicht mehr erfüllt wird. Listing 6 zeigt 
dies auf einfache Weise. Selbstverständlich sind auch bei 
»WHILE...DO« Verschachtelungen gestattet, wie es das fol¬ 
gende Schema zeigt: 

WHILE (Bedingung 1) DO 

WHILE (Bedingung 2) DO 

WHILE (Bedingung 3) DO ... 

Ist (Bedingungl) erfüllt, wird der Befehl hinter »DO« abge¬ 
arbeitet. Dies ist eine weitere »WHILE...DO«-Anweisung, 
worauf (Bedingung2) auf ihre Gültigkeit untersucht wird. 
Sollte auch diese »true« sein, so wird noch eine weitere 
Schachtelungsebene hinabgestiegen und so weiter. 

Im Gegensatz zu »WHILE...DO« steht bei der Schleifenart, 
die jetzt erklärt werden soll, das Kriterium zum Ablauf der 
Schleife an deren Ende. Sie hat die allgemeine Form 

REPEAT (Anweisung) UNTIL (Bedingung); 


PROGRAM WEDELN; 

VAR J:INTEGER; 
BEGIN 

J:=lj 

WHILE J<=3 DO 
BEGIN 

WRITELN(' 

*'); 


WRITELN(' 

»'}; 


WRITELN(' 

»'); 


WRITELN(' 

*'); 


J:=J+l 

END; 


Listing 6. 

END. 


WHILE..DO 
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ln Klartext übersetzt etwa: »Wiederhole die Anweisungen, 
bis die Bedingung erfüllt ist«. Dieses Mal bestimmt die Bedin¬ 
gung, ob die Schleife abgebrochen wird. Bei »WHILE...DO« 
dagegen entschied die Bedingung, ob die Schleife über¬ 
haupt begonnen wurde. Zwischen »REPEAT« und »UNTIL« 
stehen die Anweisungen, die in der Schleife ausgeführt wer¬ 
den sollen. Es können beliebig viele Anweisungen sein, die 
aber nicht, wie bei den anderen Schleifenarten, vorher mit 
»BEGIN« und »END« zu einer Verbundanweisung zusammen¬ 
gefügt werden müssen. Die beiden Schlüsselwörter 
»REPEAT« und »UNTIL« übernehmen dies praktisch schon 
von selbst. Anders als bei »WHILE...DO« wird die Bedingung 
erst am Ende eines Schieifendurchlaufs kontrolliert. Ist die 
Bedingung wahr, wird die Schleife abgebrochen und im Pro¬ 
gramm fortgefahren. Da das Abbruchkriterium zum Schluß 
steht, wird die »REPEAT...UNTIL«-Schleife stets mindestens 
einmal durchlaufen. Selbst wenn die Bedingung hinter 
»UNTIL« schon anfänglich nicht erfüllt ist, wird die Schleife 
einmal komplett abgearbeitet. Die Bedingung wird ja erst am 
Ende der Schleife geprüft. Listing 7 zeigt diesen Sachverhalt 
an einem kleinen Beispiel. 

Auch »REPEAT...UNTIL«-Schleifen lassen sich ineinander- 
schachteln, wie das folgende Schema zeigt: 

REPEAT 

REPEAT 

REPEAT 

v (Anweisungen) 

UNTIL (Bedingung 3); 

UNTIL (Bedingung 2); 

UNTIL (Bedingung l); 

Wie bei den anderen Schleifentypen, wird immer die inner¬ 
ste Schleife als erstes abgearbeitet. Sollte in unserem 
Schema zum Beispiel die innerste Schleife eine Endlos¬ 
schleife sein (das heißt eine Schleife, die sich endlos wieder¬ 
holt, da die Bedingung 3 nie erfüllt wird) ist es zwecklos, 
wenn die Bedingungen 2 und 1 längst erfüllt sind und zu 
einem Abbruch führen würden. 

Damit hätten wir alle in Pascal möglichen Schleifenkon¬ 
struktionen abgehandelt. Sie gehören mit zu den wichtigsten 
Befehlen, die den Ablauf eines Pascal-Programmes steuern. 
Man darf aber eine weitere Steuerform von Pascal nicht ver¬ 
nachlässigen. 

Es gibt in Pascal, ähnlich wie bei anderen Programmier¬ 
sprachen, eine Befehlsfolge, die ermöglicht, nur dann eine 
Anweisung auszuführen, wenn eine bestimmte Bedingung 
erfüllt ist. Man bezeichnet dies als »bedingte Verzweigung«. 
Sie hat folgenden Syntax: 

IF (Bedingung) THEN (Anweisung); 

Die bedingte Verzweigung ähnelt dem IF-THEN-Befehl in 
Basic und hat im Prinzip auch die gleiche Bedeutung. Die 
Anweisung hinter »THEN« wird nur dann ausgeführt, wenn die 
Bedingung nach »IF« erfüllt ist, also den Wert »true« hat. Eine 
korrekte »IF«-Anweisung wäre zum Beispiel: 


IF betrag <= 0 THEN WRITE('Du hast kein 

Geld mehr.'); 

Wird die Variable »betrag« kleiner oder gleich Null und die 
Bedingung »betrag < = 0« somit wahr, wird die »WRITE«- 
Anweisung hinter »THEN« ausgeführt. D^r Ausdruck lautet 
dann: »Du hast kein Geld mehr«. 

Hat die Bedingung den Wert »false«, wird die Anweisung 
ignoriert. Mehrere zusammengehörige Anweisungen wer¬ 
den wieder zu einer Verbundanweisung zusammengefaßt. 
Dies geschieht, wie Sie schon wissen, mit »BEGIN« und 
»END«. 

IF (Bedingung) THEN 

BEGIN (Anweisungen) 

END; 

Mit dem »IF«-Befehl können wir nun im Pascal-Programm 
zum Beispiel Eingaben von der Tastatur auf ihre Richtigkeit 
überprüfen, wie es Listing 8 zeigt. Die Eingabe der Variable 
»betrag« soll nur positive Zahlen gestatten. Bei Eingabe eines 
negativen Wertes soll sich das Programm beschweren. 

Bedingungen, wie wir sie kennen, haben immer eine ein¬ 
deutige Lösung, das heißt entweder wahr (»true«) oder falsch 
(»false«). In Listing 8 zeigt sich dies recht deutlich. Die Varia¬ 
ble »betrag« kann entweder nur positiv oder negativ sein. Die 
beiden »IF«-Anweisungen berücksichtigen diese Fälle. Eine 
»IF«-Verzweigung beschäftigt sich mit dem Fall, daß »betrag« 
größer oder gleich Null ist, das andere »IF«-Statement mit der 
Bedingung »betrag« kleiner Null. Zur Vereinfachung solcher 
Sachverhalte bietet Pascal eine Erweiterung des »IF«- 
Befehls durch Hinzufügen des Schlüsselwortes »ELSE«. 

IF (Bedingung) THEN (Anweisung 1) 

ELSE (Anweisung 2); 

»ELSE« ermöglicht das Berücksichtigen beider Lösungs¬ 
fälle einer Bedingung. Ist die Bedingung wahr, so wird nur 
AnwoK, jng 1 ausgeführt. Sollte das Ergebnis der Bedingung 
jedoch »false« sein, wird Anweisung 2 hinter »ELSE« abgear¬ 
beitet. Damit kann das Programm in Listing 8 wesentlich ein¬ 
facher formuliert werden. Listing 9 zeigt das modifizierte Pro¬ 
gramm mit der »IF...THEN...ELSE«-Verzweigung. 

Wie bei Pascal-Schleifen sind hinter »THEN« und »ELSE« 
auch Verbundanweisungen möglich. Sie müssen wie immer 
jeweils von »BEGIN« und »END« umgeben sein. Folgendes 
Schema verdeutlicht dies: 

IF (Bedingung) THEN BEGIN 

(Anweisungen) 

END 

ELSE BEGIN 

(Anweisungen) 

END; 


PROGRAM betrag; 

VAR betrag: integer; 

BEGIN 

READ(betrag) 

IF betrag < 0 THEN WRITE('Falsche Eingabe!'); 
IF betrag >= 0 THEN WRITE( 'Der Betrag ist' 
.betrag,' DM.'); 

END. 

Listing 8. IF..THEN 


PROGRAM N0TEN3; 

VAR SCHUELERNUMMER,NOTE,ZAEHLER,SUMME:INTEGER; 
BEGIN 
SUMME:=0; 

ZAEHLER:=0; 

WRITELNf SCHUELER', 'NOTE':6); 

READLN (SCHUELERNUMMER, NOTE); 

REPEAT 

SUMME:=SUMME+N0TE; 

ZAEHLER:=ZAEHLER4l; 

READLN(SCHUELERNUMMER,NOTE); 

UNTIL SCHUELERNUMMER*0; 

WRITELN(' DURCHSCHNITT*' ,ROUND(SUMME/ZAEHLER)); 
WRITELNC ZAEHLER*'ZAEHLER); 

END. 

Listing 7. REPEAT..UNTIL 


PROGRAM betrag; 

VAR betrag: integer; 

BEGIN 

READ(betrag); 

IF betrag < 0 THEN WRITE('Falsche Eingabe!') 

ELSE WRITE('Der Betrag ist '.betrag, 
' DM.'); 

END. 

Listing 9. IF..THEN..ELSE 
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Sollten Sie einmal bei zusammengehörenden Anweisun¬ 
gen die Schlüsselworte »BEGIN« und »END« vergessen, kann 
dies zu einem vollkommen anderen Programmablauf oder gar 
einer Fehlermeldung führen. 

IF (Bedingung) TUEN (Anweisung 1); 

(Anweisung 2); 

ist zum Beispiel keinesfalls das gleiche wie 

IF (Bedingung) THEN BEGIN 

(Anweisung l); 

(Anweisung 2) 

END; 

Im ersten Fall gehört die Anweisung 2 nicht mehr zum 
»IF...THEN«-Statement und wird immer ausgeführt. Im zwei¬ 
ten Fall dagegen wurden die beiden Anweisungen mit 
»BEGIN« und »END« zu einer Verbundanweisung zusammen¬ 
geschlossen und gehören nun beide zur »IF«-Bedingung. Die 
Anweisung 

-IF (Bedingung) THEN (Anweisung 1); 

(Anweisung 2) 

ELSE (Anweisung 3); 

ist sogar syntaktisch falsch und würde dem Pascal-Compiler 
nicht gefallen. Warum? Da Anweisung 2 mit Anweisung 1 
nicht zu einer Verbundanweisung zusammengefaßt wurde, 
wird sie als allgemeiner Befehl aufgefaßt. Für den Compiler 
ist der »IF«-Befehl also bereits nach Anweisung 1 beendet. 
Das »ELSE« wird nun nicht mehr als zugehörig erkannt, da 
zwischen »THEN« und »ELSE« die allgemeine Anweisung, 
nämlich Anweisung 2, steht. Ein »ELSE« ohne »IF...THEN« 
kennt der Compiler aber nicht, was zu einer Fehlermeldung 
führt. Die Behandlung von Verbundanweisungen sollte des¬ 
halb mit viel Sorgfalt geschehen, sonst werden ihnen 
schlimme Programmierfehler, die nicht gerade leicht zu fin¬ 
den sind, das Leben schwer machen. Muß unter mehr als 
zwei Alternativen ausgewählt werden, bietet sich die Mög¬ 
lichkeit, unmittelbar nach »THEN« oder »ELSE« einen weite¬ 
ren »IF«-Befehl zu verwenden, das heißt mehrere »IF«-Anwei- 
sungen ineinanderzuschachteln. Das Schema zur Ver¬ 
schachtelung von »IF«-Verzweigungen ist dem der ver¬ 
schachtelten Schleifen sehr ähnlich. 

IF (Bedingung 1) THEN (Anweisung l) 

ELSE 

IF (Bedingung 2) THEN (Anweisung 2) 

ELSE 

IF (Bedingung 3) THEN (Anweisung 3) 

ELSE ... 

Analog dazu kann die Schachtelung auch hinter »THEN« 
geschehen. Man sollte auf allzuviele »IF«-Befehle hinterein¬ 
ander lieber verzichten, da ab einer gewissen Schachte¬ 
lungstiefe die Übersicht stark leiden kann. Listing 10 zeigt ein 
einfaches Programm, welches die Verschachtelung von »IF«- 
Anweisungen aufzeigt. 

»IF...THEN...ELSE« war nun die letzte der in Pascal verfüg¬ 
baren Strukturanweisungen. Jetzt ist es an der Zeit, daß Sie 
auch die Möglichkeit kennenlernen, eigene Datentypen zu 
erstellen. Bei der Besprechung der Standardtypen wurden 
sie bereits erwähnt. 

In manchen Fällen ist es angebracht, Variablen zu verwen¬ 
den, die nur eine gewisse Auswahl an Zahlen, Zeichen oder 
nur bestimmte Zeichenketten beinhalten können. Wenn Sie 
zum Beispiel ein Würfelspiel für vier Spieler programmieren 
wollen, so wäre es vorteilhaft, die vier Spielfarben, beispiels¬ 
weise Rot, Gelb, Grün und Blau, in einer Variablen zu definie¬ 
ren, die nur diese Werte annehmen kann. Pascal ermöglicht 
die Erstellung solcher und ähnlicher Datentypen durch das 
Schlüsselwort »TYPE«. Die Definition eigener Datentypen 
erfolgt im Deklarationsteil eines Pascal-Programms. Sie muß 
zwischen den Konstanten- und Variablendeklarationen 
geschehen, da sie zur Variablendefinition gebraucht werden. 
Die Syntax von »TYPE« hat folgendes Format: 


TYPE (Name) = (Typ); 

Wie bei »CONST« und »VAR« können beliebig viele Defini¬ 
tionen gemacht werden. Das Wort »TYPE« muß dabei nur am 
Anfang der gesamten Typendeklaration stehen. Mit »TYPE« 
wird einem eigens erstellten Datentyp ein Name gegeben, 
der dann in den Variablendeklarationen wie die Namen der 
Standardtypen integer, real, char, boolean und string verwen¬ 
det werden kann. Rechts neben dem Gleichheitszeichen 
wird angegeben, wie der Typ auszusehen hat. Diese Angabe 
kann bei fortgeschrittener Programmierung, wie zum Beispiel 
bei Arrays und Records, relativ kompliziert werden. Diese 
sogenannten »strukturierten Datentypen« sollen uns aber im 
Moment nicht beschäftigen. Wenden wir uns lieber den einfa¬ 
cheren Typen zu, um die Bedeutung von »TYPE« genau zu 
verstehen. Es gibt in Pascal zwei Möglichkeiten, mit »TYPE« 
einfache Datentypen zu erzeugen. Dies sind die Aufzäh¬ 
lungstypen, im Englischen auch »enumerated types« 
genannt, und die Ausschnittstypen (englisch »subrange 
types«). Damit erweitert sich der Vorrat an Datentypen neben 
den Standardtypen auf »enumerated«- und »subrange«- 
Typen. 

Der Aufzählungstyp ist gleichzeitig die einfachste 
Methode, einen neuen Datentyp zu erzeugen. Wie es der 
Begriff schon ausdrückt, geschieht dies durch genaue Auf¬ 
zählung der Werte, die der Datentyp annehmen darf. Die 
Werte dürfen nur aus Namen bestehen, die man als Konstan¬ 
ten, des definierten Typs bezeichnen kann. Zahlen können 
vom Compiler nicht akzeptiert werden. Man erzeugt einen 
Aufzählungstyp, indem man die Werte durch Kommata 
getrennt hinter dem Gleichheitszeichen niederschreibt. Sie 
müssen von Klammem umgeben sein. Zum Abschluß steht 
wie üblich das Semikolon. Um das Beispiel des Würfelspiels 
wiederaufzugreifen, wäre eine Typendeklaration, die die vier 
Spielia., u en beinhaltet, folgende: 

TYPE färbe = (rot,gelb,gruen,blau); 

Damit haben wir einen neuen Datentyp erzeugt, der den 
Namen »färbe« hat und nur die Werte rot, geib, gruen und blau 
annehmen kann. Den Nameni »färbe« kann man nun in der 
Variablendefinition verwenden, wie zum Beispiel 

VAR Sieger: färbe; 

Die Variable »Sieger« hat den vorher definierten Typ »färbe« 
erhalten und darf von jetzt an nur die vorbestimmten Werte 


PROGRAM WAHLEN; 

CONST KONSERVATIVEM; 

RADIKALEM; 

UNABHAENGIGE-3; 

VAR STIMME,RECHTS,LlNKS,MITTE,ZAEHLER:INTEGER; 
BEGIN 
RECHTS:=0; 

LINKS:=0; 

MITTE:=0; 

WRITTELN('STIMMEN EINGEBEN 1 ); 

READLN(STIMME); 

VHILE STIMME 0-1 DO 
BEGIN 

IF STIMME=KONSERVATIVE THEN 
RECHTS:=RECHTS+1 
ELSE 

IF STIMME=RADIKALE THEN 
LINKS:=LINKS+1 
ELSE 

IF STIMME=UNABHAENGIG THEN 
MITTE:=MITTE+1; 

READLN(STIMME); 

END; 

ZAEHLER: =RECHTS+LINKS+MITTE; 

WRITELN('KONSERV.':10,'RADIKAL':10, 

'UNABH.':10,'GESAMT':10); 
WRITELN(RECHTS: 10, LINKS: 10, MITTE: 10, ZAEHLER: 10); 
END. 

Listing 10. IFVerschachtelung 
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annehmen. Dies geschieht auf die übliche Art und Weise: 
Sieger := gruen; 

Der Name »gruen« ist dabei keine andere Variable, sondern 
eine Konstante des Datentyps »färbe«, den wir zuvor 
bestimmt hatten. Wie Sie sehen können, werden diese Kon¬ 
stanten wie ganz normale Werte anderer Typen (beispiels¬ 
weise Integer-Zahlen) behandelt. So können mit diesen Wer¬ 
ten auch Bedingungen gebildet werden, wie zum Beispiel 
Sieger := rot 

Eine »IF«-Anweisung würde wie folgt aussehen: 

IF Sieger = rot THEN WRITE('Spieler Rot 
ist Sieger.'); 

Diese einfache Handhabung kann sehr nützlich sein. So 
haben die Werte des Aufzählungstyps durch das Aufschrei¬ 
ben in einer gewissen Reihenfolge eine Ordnung erhalten, 
die es erlaubt, die Funktionen »succ«, »pred« und »ord« zu 
verwenden. Diese drei Funktionen arbeiten dabei genauso 
wie bei den Standarddatentypen. Die Ordnung der Spielfar¬ 
ben würde folgendermaßen lauten: 

Wert rot gelb gruen blau 

Ordnungszahl 0123 
Unter der Voraussetzung unserer oben gewählten Defini¬ 
tion und der Ordnungszahlen des Spielfarbentyps »färbe«, 
sollen einige Beispiele die Funktionen »succ()«, »pred()« und 
*ord()« im Zusammenhang mit selbstdefinierten Datentypen 
erklären: 

succ(rot) ergibt den Wert gelb 

succ(gruen) ergibt den Wert blau 

succ(blau) ist nicht definiert 
pred(blau) ergibt den Wert gruen 

pred(gelb) ergibt den Wert rot 

ord(rot) ergibt den Wert 0 

ord(gruen) ergibt den Wert 2 

Die Operatoren der Standardtypen kann man allerdings 
nicht anwenden, was auch logisch ist. Was sollte die Rech¬ 
nung »rot * gruen« schon ergeben? Die Vergleichsoperato¬ 
ren sind dagegen sinnvoller. Durch sie ist, wie bereits 
erwähnt, die Erstellung von Bedingungen möglich. Da eine 
Ordnung in der Reihe der Werte besteht, sind folgende Aus¬ 
drücke korrekt und haben eine Lösung: 
rot > = gruen ergibt »false« 
blau < > gelb ergibt »true« 

gruen < gelb ergibt »false« 

Der neue Datentyp kann auch als Kontrollvariable einer 
»FOR...TO«-Schleife fungieren. Die einzelnen Werte werden 
dabei der Reihe nach vom Anfangs- bis zum Endwert durch¬ 
gezählt. Ein Beispiel, das alle Werte unseres Farbenbeispiels 
durchläuft, wäre: 

FOR Sieger := blau D0WNT0 rot DO (Anweisung); 
Ebenso nützlich wäre es, wenn die Anweisung 
WRITE(Sieger); 

den augenblicklichen Wert der Variablen »Sieger« ausgeben 
würde. Dies ist in Pascal jedoch nicht vorgesehen. Man muß 
sich dadurch mit einigen »IF«-Anweisungen behelfen. 


PROGRAM Spielfarben; 

TYPE färben = (rot,gelb,gruen,blau); 

VAR Spieler; färben; 
eingabe: String; 

BEGIN 

READ(eingabe); 

IF eingabe = 'rot' THEN Spieler := rot 

ELSE IF eingabe = 'gelb' THEN Spieler := gelb 
ELSE IF eingabe = 'gruen' THEN Spieler := gruen 
ELSE IF eingabe = 'blau' THEN Spieler := blau 
ELSE WRITE('Unbekannte Farbe'}; 

END. 

Listing 11. Eingabe von Aufzählungstypen 


WRITE('Der Sieger ist Spieler '); 

IF Sieger = rot THEN WRITE('Rot') 

ELSE IF Sieger = gelb THEN WRITE('Gelb') 

ELSE IF Sieger = gruen THEN WRITE('Gruen') 
ELSE WRITE('Blau'); 

Die Eingabe solcher Aufzählungskonstanten im richtigen 
Wortlaut bringt jedoch in Standard-Pascal noch größere 
Schwierigkeiten mit sich. Mit der normalen »READ«- 
Anweisung ist eine direkte Eingabe nämlich nicht möglich. 
Hier wäre es angebracht, eine eigene Einleseroutine zu 
schreiben, die auch Daten von selbstdefinierten Datentypen 
akzeptiert. Die Programmierung dürfte für einen Anfänger zu 
kompliziert werden, so daß man sich mit einer einfacheren, 
aber um so schreibaufwendigeren Methode begnügen muß. 
Für den UCSD-Pascal-Anwender ist dies sogar noch etwas 
leichter zu gestalten, da er den Standardvariablentyp String 
zur Verfügung hat. Mit ihm läßt sich eine Eingabe von Daten 
ähnlich wie die Ausgabe gestalten. Listing 11 zeigt eine 
Lösung des Problems mit Hilfe des UCSD-Datentyps string. 

Eine andere Art von selbstdefinierten Typen sind die Aus¬ 
schnittstypen (»subrange types«). Sie berufen sich auf 
bereits vorhandene Typen, wie zum Beispiel die Standardda¬ 
tentypen oder einen selbstdefinierten Aufzählungstyp. Nicht 
verwenden darf man den Datentyp real und string. Auch hier 
gibt der Name (Ausschnittstyp) eine Erklärung seiner selbst. 
Aus definierten Werten, wie beispielsweise Integer-Zahlen, 
wird ein gewisser Ausschnitt gewählt, der dann den neuen 
Typ darstellt. Seine Werte dürfen sich nur im Rahmen dieses 
Ausschnitts bewegen. Das Zeichen, das die Auswahl eines 
Ausschnitts ermöglicht, besteht aus zwei Punkten (..), dem 
»compound Symbol« und zwar nach folgendem Muster: 

(Konstante l) .. (Konstante 2) 

»Konstante 1« und »Konstante 2« sind hierbei Werte eines 
bereu-' definierten Typs, wobei »Konstante 1« in der Ordnung 
weiter vorne liegen muß, das heißt eine niedrigere Ordnungs¬ 
zahl haben muß als »Konstante 2«. Den Datentyp, aus dem 
der Ausschnitt gewählt wird, nennt man auch den Grundtyp 
oder in Englisch »host type« des Ausschnittstyps. Der neu 
definierte Typ verhält sich genauso wie sein Grundtyp. Das 
heißt, es lassen sich alle im Grundtyp definierten Operatoren 
und Funktionen anwenden. Seinen eingeschränkten Werte¬ 
bereich darf er dabei jedoch nicht verlassen. Hier einige Bei¬ 
spiele eines »subrange« types: 

TYPE jahr = (jan,feb,mar,apr,mai,jun,jul,aug,sep, 

okt,nov,dez); 

sommer = jun..sep; 
buchstaben = 1 a 1 ... 1 z 1 ; 
ausgaben = 0..15000; 

Betrachten wir den neuen Typ »sommer«, so erkennen wir, 
daß auch ein Aufzählungstyp Grundtyp für einen Ausschnitts¬ 
typ sein kann. Wie beim »enumerated type« kann der neu 
definierte Typ Datentyp für Variablen werden.' 

VAR ferien: sommer; 
monat: jahr; 
tasten: buchstaben; 

Es ist dabei unbedingt zu beachten, daß während des Pro¬ 
grammablaufs die Bereiche der Ausschnittstypen eingehal¬ 
ten werden, da es ansonsten zu unangenehmen Fehlern 
kommt. Die Schleife unten zum Beispiel wird mit Sicherheit 
eine Fehlermeldung erzeugen. Überlegen Sie, warum. 

FOR monat := jun T0 okt DO 
ferien := succ(ferien); 

Gerade bei Datentypen mit vielen Werten, die wie bei dem 
»enumerated type« »jahr« mit »WRITE« nicht direkt ausgege¬ 
ben werden können, stellt man sich die Frage, ob Pascal wirk¬ 
lich so unvollkommen ist, daß eine Auswahl von verschiede¬ 
nen Werten nur durch verschachtelte »IF«-Anweisungen vor¬ 
genommen werden kann. Wir haben dies ja bereits zu einem 
früheren Zeitpunkt besprochen. Pascal hat dafür natürlich 
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vorgesorgt. Die »CASE«-Anweisung ermöglicht eine gezielte 
Fallunterscheidung von mehreren sich ausschließenden 
Werten einer Variablen. Sie tritt in folgender Form auf: 

CASE (Ausdruck) OF (case-Konstantenliste) END; 

Der Ausdruck ist in diesem Fall der Name der Variablen, an 
der die Fallunterscheidung geschehen soll. Man nennt ihn 
deshalb auch Selektor. Selektor kann jede Variable der uns 
bekannten Datentypen sein, mit Ausnahme des Typs real. 
Nach dem Wort »OF« beginnt die Liste der Konstanten, in die 
unterschieden werden soll. Sie müssen selbstverständlich 
vom Typ des Selektors sein. Die Reihenfolge der einzelnen 
Konstanten ist frei wählbar. Eine Konstante darf dabei aber 
nur einmal in dieser Liste Vorkommen, da ja sonst nicht ein¬ 
deutig unterschieden werden kann. Hinter jeder Konstanten 
steht schließlich, mit einem Doppelpunkt getrennt, die Anwei¬ 
sung, die ausgeführt werden soll, wenn die Variable den Wert 
der Konstanten annimmt. Die Liste muß mit »END;« abge¬ 
schlossen werden. Greifen wir nochmals das Beispiel mit 
dem Würfelspiel auf und formulieren eine »CASE«-Anweisung 
mit dem Selektor »Spieler«, der ja bekanntlich eine Variable 
des Aufzählungstyps ist und nur die Werte rot, gelb, gruen 
und blau annehmen kann: 

CASE Spieler OF 

WRITE('Rot'); 

WRITE('Gelb') 

WRITE('Grün') 

WRITE(’Blau') 


rot: 
gelb: 
gruen: 
blau: 

END; 

Je nachdem, 


welchen Wert die Variable »Spieler« im 
Moment hat, wird die entsprechende »WRITE«-Anweisung 
ausgeführt. 

Eine Bedingung für die »CASE«-Anweisung ist, daß die 
Variable eine der aufgelisteten Konstanten annehmen muß, 
bevor der »CASE«-Ausdruck abgearbeitet wird. Findet der 
Computer den Wert des Selektors in der Liste nicht, so wird 
in Standard-Pascal das Programm mit einer Fehlermeldung 
unterbrochen. UCSD-Pascal dagegen führt dann immer die 
Anweisungen hinter der ersten Konstante aus und wirkt 
somit wie eine Nullanweisung. Eine »CASE«-Anweisung ohne 
die »CASE«-Konstantenliste ist nicht definiert und wird bei 
den meisten Rechenanlagen mit einem Fehler quittiert. Die 
beiden neuen Datentypen (enumerated und subrange type) 
sind in Verbindung mit dem »CASE«-Befehl ein schönes Hilfs¬ 
mittel zur Bewältigung von besonderen Problemen. 

Sollen jedoch sehr viele gleichartige Daten verarbeitet wer¬ 
den, so werden wir mit den einfachen Datentypen, die wir 
schon kennen, bald an Grenzen stoßen. Für eine Bearbei¬ 
tung von 10 000 Daten würde ein Programm, das mit den bis¬ 
her besprochenen Mitteln geschrieben ist, viel zu lang wer¬ 
den. Man bedenke auch, daß schon das Erfinden von 10000 
Variablennamen unmöglich wäre von den Anweisungen, die 
diese Variablen verarbeiten, ganz zu schweigen. Kommen wir 
deshalb zu den sogenannten »strukturierten Datentypen«, 
die uns bei der Bewältigung von solchen Problemen von sehr 
großem Nutzen sind. 

Hat man sehr viele Daten des gleichen Typs, so können 
diese in Pascal zu einem »Feld« (englisch: array) zusammen¬ 
gefaßt werden, welches mit nur einem einzigen Namen auf¬ 
gerufen werden kann. Jeder Wert in diesem Feld bekommt 
eine Nummer in aufsteigender Ordnung, unter der er aufge¬ 
rufen werden kann. Diese Nummer wird auch Index genannt. 
Man nennt Felder, deren Elemente nur einen Index haben, 
auch »eindimensionale Arrays«. Mit Hilfe des Schlüsselwor¬ 
tes »ARRAY« kann ein solches Feld erstellt werden. Allgemein 
wird dies so formuliert: 

ARRAY [(Indextyp)] OF (Komponententyp) 

Der Indextyp stellt eine endliche Anzahl von Werten dar, die 
den Indexbereich des Arrays bestimmen. Er muß ein 
Aufzählungs- oder Ausschnittstyp sein oder einer der Typen 


boolean und char. Der Komponententyp dagegen kann belie¬ 
biger Art sein, insbesondere auch ein selbstdefinierter oder 
strukturierter Typ, wie zum Beispiel wiederum ein Arraytyp 
(dieser Fall wird später noch erläutert). Er bestimmt den 
Datentyp des gesamten Feldes (ein Array kann ja nur von 
einem Typ sein). Die Komponenten eines Arrays werden 
angegeben durch den entsprechenden Variablennamen und 
einem Ausdruck in eckigen Klammern, der den Wert des 
Indexes bestimmt. Um diesen Sachverhalt genau zu verste¬ 
hen, sei hier ein Beispiel angegeben, das ein Array von 50 
Elementen definiert: 

TYPE bereich = [1..50]; 

werte = ARRAY bereich OF integer; 

VAR element: werte; 

In der »TYPE«-Anweisung haben wir den Bereich in einem 
eigenen Typ »bereich« festgelegt. Dieser wird nun als Index¬ 
typ für eine Array-Typdefinition mit dem Namen »werte« ver¬ 
wendet. In der Variablendeklaration fungiert der Array-Typ 
»werte« schließlich als Datentyp für die Variable »element«, 
die somit zu einer Array-Variablen mit 50 Komponenten wird. 
Es ist jedoch nicht nötig, eine einfache Array-Definition wie 
diese in solch vielen Schritten zu tun. Pascal erlaubt das 
Schlüsselwort »ARRAY« auch direkt in der Variablendeklara¬ 
tion, so daß man auch schreiben kann: 

VAR element: ARRAY [1..50] OF integer; 

Diese sehr viel kürzere Angabe hat die gleiche Wirkung. 
Sie ist im Rahmen dieses Beispiels auch noch recht über¬ 
sichtlich. Bei komplexeren Datentypen (zum Beispiel zusam¬ 
mengesetzten Typen) ist eine Aufschlüsselung wie oben im 
Sinne der Überblickbarkeit angebrachter. Nachdem wir die 
Variable »element« als ein Array definiert haben, können ein¬ 
zelne Komponenten mit ihrem Index angegeben werden. So 
ist 

element [10] 

das zehnte Element des Feldes. Innerhalb der eckigen Klam¬ 
mern darf aber auch ein Ausdruck stehen und so kann das 
Element Nummer 10 auch folgendermaßen dargestellt wer¬ 
den: 

element[2 * 5] 

Es ist sogar möglich, andere Variablen (zum Beispiel »x«) im 
Indexausdruck zu benutzen, sofern diese vom geeigneten 
Typ sind (in diesem Fall integer): 

element [J + 2 * x] 

Jede dieser Komponenten ist eine Variable des Grundtyps 
des Arrays (in unserem Beispiel des Typs integer) und kann 
als solche wie jede andere Integer-Variable verarbeitet wer¬ 
den. 

element[5] := element [x * 2]; 

elementp * (x + 1)] := element[x] - element[x - 1); 

Um die Arbeit mit Arrays zu verdeutlichen, ist in Listing 12 
ein Beispielprogramm abgedruckt, das die Eingabe von 50 
Integer-Zahlen in ein Array ermöglicht und schließlich die 
Summe der Werte ausgibt. Zusammen mit dem Index 
bestimmt der Name des Arrays (in unserem Beispiel »ele¬ 
ment«) die einzelnen Komponenten des Feldes. Der Array- 
name für sich allein bezeichnet dagegen das gesamte Feld. 
Auf ihn selbst lassen sich keine Operatoren anwenden, mit 
Ausnahme des Zuweisungsoperators »:=«. Mit ihm kann ein 


PROGRAM eIngabe; 

VAR daten: ARRAY 1..50 OF integer; 
Index: integer; 

BEGIN 

FOR Index := 1 TO 50 DO BEGIN 
WRITELN(Index 
READLN(daten Index ); 

END; 

END. 

Listing 12. Arrays - Felder 
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ganzes Feld einem anderen Feld des gleichen Datentyps 
zugewiesen werden: 

TYPE werte = ARRAY [1..50] OF integer; 

VAR i,k: werte; 

Mit den obigen Vereinbarungen kann man den Zuwei¬ 
sungsoperator auf die Array-Variablen »i« und »k« anwenden: 

i := k; 

Damit erhalten alle Elemente des Arrays »i« die Werte der 
entsprechenden Elemente des Arrays »k«. Wie alle anderen 
Variablen haben auch Array-Variablen nach ihrer Definition 
noch keine Werte. Sie müssen, wie jede einfache Variable 
auch, zuerst einen Wert zugewiesen bekommen. In vielen 
Fällen erhalten die Elemente eines Feldes zu Beginn eines 
Programmablaufs die gleichen Werte. Während das bei den 
einfachen Variablen durch einzelne Zuweisungen gesche¬ 
hen muß, ist bei Arrays die Verwendung der FOR-Schleife 
recht praktisch: 

FOR x := 1 TO 50 DO k[x] := 100; 

Möchte man, daß das Array »i« dieselben Anfangswerte 
annimmt, genügt danach die bereits erwähnte einfache 
Zuweisung 

i := k; 

Wie schon einmal erwähnt, ist es möglich, daß Arrays wie¬ 
derum Komponententypen von weiteren Arrays sein können. 
So ist dies im Rahmen des Speicherplatzes in Pascal beliebig 
oft durchführbar. Man kann zum Beispiel folgendes Array 
definieren: 

TYPE index = [1..25]; 

feldl = ARRAY [index] OF integer; 
feld2 = ARRAY [index] OF feldl; 

VAR a,b: feld2; 

Mit diesen Eingaben werden die Variablen »a« und »b« als 
Arrays des Typs »feld2« definiert. »feid2« ist aber gleichzeitig 
ein Arraytyp des Typs »feldl«, das wiederum ein Array ist. Die¬ 
ses Spiel könnte man endlos fortsetzen, bis man schließlich 
den Überblick verliert. 

ARRAY [Indexl] OF ARRAY [Index2] OF ARRAY 

[Index?] OF ARRAY [Index4] OF ... 

Um eine gewisse Übersicht zu wahren, können solch ver¬ 
schachtelte Arrays auch in einer Kurzschreibweise angege¬ 
ben werden, indem die Indizes in den eckigen Klammern ste¬ 
hend hinter das Wort »ARRAY« geschrieben werden. Das fol¬ 
gende Schema verdeutlicht dies: 

ARRAY [Indexl,Index2,Index3,Index4,...] 

OF (Komponententyp) 

Das Ansprechen der einzelnen Elemente eines solchen 
Arrays wird ähnlich durchgeführt. Man schreibt hier: 

element[al,a2,a3,a4,...] 

Da diese Felder mehr als einen Index zur Unterscheidung 
haben, werden sie auch »mehrdimensionale Arrays« genannt. 
Sie werden sich nun fragen, was man mit solchen Feldern 


PROGRAM KOSTEN; 

VAR PREIS:ARRAY[1978..1980,1..12] 0F INTEGER; 

MONAT,JAHR,GESAMT:INTEGER; 

BEGIN 

WRITELN('GEBEN SIE DIE TABELLE EIN'); 

FOR JAHR:=1978 T0 1980 DO 
FOR MONAT:=1 T0 12 DO 
READ(PREIS[JAHR,M0NAT]); 

(» BERECHNE DEN DURCHSCHNITTSPREIS FUER 1979 *) 
READLN; 

GESAMT:=0; 

FOR MONAT :=1 TO 12 DO 
GESAMT:=GESAMT+PREIS[1979,MONAT]; 

WRITELNf 'DURCHSCHNITTSPREIS 1979:' ,R0UND(GESAMT/12) ) 
(* ZUSAETZLICHE ANWEISUNGEN FUER DIE BERECHNUNG *) 

(* ANDERER DURCHSCHNITTSWERTE HIER ANFUEGEN *) 

END. 

Listing 13. Kostenberechnung 


anfangen kann. Ein Beispiel soll dies verdeutlichen: Das Pro¬ 
blem ist eine Tabelle, die den Preis für ein Produkt von 1978 
bis 1980 für jeden der 12 Monate enthalten soll. Zum Schluß 
soll der Durchschnittspreis für 1979 ermittelt werden. Hierfür 
benötigt man ein zweidimensionales Array, das heißt ein Feld 
von Werten, die durch zwei Indizes unterschieden werden. 
Listing 13 zeigt die Lösung dieser Aufgabe. 

Im allgemeinen kann man sagen, daß sich Probleme, die 
viele Werte festhalten müssen, welche wiederum von ver¬ 
schiedenen Faktoren abhängen, am elegantesten mit mehr¬ 
dimensionalen Arrays lösen lassen. 

Felder und gepackte Daten 


Große Felder benötigen, wie auch andere strukturierte 
Datentypen (wir werden noch einige kennenlernen), sehr viel 
Speicherplatz. In Pascal ist es möglich, eine knappere Spei¬ 
cherungsart als die übliche zu erreichen. Dadurch verliert der 
Zugriff auf diese Daten einiges an Effizienz. Wenn es jedoch 
darauf ankommt, Speicherplatz zu sparen, muß man die 
Daten zusammen-»packen«. In Pascal steht hierfür das 
Schlüsselwort »PACKED«, das dem strukturierten Typ voran¬ 
gestellt wird. Für gepackte Arrays gilt demnach folgende 
Syntax: 

PACKED ARRAY [Indextyp] 0F (Komponententyp) 

Ein in Standard-Pascal wichtiger gepackter Typ ist: 

PACKED ARRAY [l..n] 0F char 

Auf diese Weise wird nämlich der Datentyp string der Länge 
eins bis n definiert. Für UCSD-Pascal-Programmierer ist die¬ 
ser Ausdruck ziemlich belanglos, da der UCSD-Standard den 
Datentyp string bereits vordefiniert hat und eine sehr viel 
komfortablere Handhabung erlaubt. Darum soll im Rahmen 
dieser Kurses nicht weiter darauf eingegangen werden. Die 
Elemente von gepackten Feldern haben die gleichen 
Bezeichnungen wie die von ungepackten und werden auch 
so gehandhabt. Anweisungen, die gepackte Daten benüt¬ 
zen, können jedoch sehr lange dauern. Der Vorteil dabei ist 
aber die Speicherplatzersparnis. Das Wort »PACKED« 
bezieht sich immer nur unmittelbar auf das nachfolgende 
Wort. So muß man bei Schachtelungen besondere Vorsicht 
walten lassen: 

PACKED ARRAY [Indexl] 0F ARRAY [Index2] 

OF (Komponententyp) 

ist nur auf der ersten Schachtelungsstufe (für Indexl) 
gepackt. Soll dies in der zweiten Stufe auch geschehen, so 
muß man ein zweites »PACKED« hinzufügen: 

PACKED ARRAY [Indexl] 0F PACKED ARRAY [Index2] 

OF (Komponententyp) 

Die schon bekannte Kurzschreibweise ist wesentlich einfa¬ 
cher und übersichtlicher: 

PACKED ARRAY [Indexl,Index2] 0F (Komponententyp) 

Es ist in Pascal möglich, ein bereits als ungepackt oder 
gepackt definiertes Feld nachträglich zu packen oder zu ent¬ 
packen. Pascal bietet dazu zwei Datentransferprozeduren, 
die diese Arbeit übernehmen. Das Packen eines normalen 
Arrays erfolgt mit der Prozedur 

PACK (up,ix,pa) 

Diese Prozedur überträgt den Komponenten des gepack¬ 
ten Feldes »pa« die Werte der Komponenten des ungepack¬ 
ten Feldes »up« von Index »ix« bis zum Ende. Es muß darauf 
geachtet werden, daß beide Felder vom gleichen Komponen¬ 
tentyp sind. Ebenso darf das gepackte Feld höchstens so 
viele Elemente haben wie das ungepackte, auf das die Daten 
übertragen werden. Die Umkehrung dazu geht mit der Proze¬ 
dur 

UNPACK (pa,up,ix) 

vonstatten. Es ist aber zu beachten, daß hier zuerst das 
gepackte Feld »pa«, dann das ungepackte Feld »up« und 
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schließlich der Index »ix« angegeben werden muß. Will man 
einzelne Werte eines Arrays ver- oder entpacken, genügt der 
Zuweisungsoperator. Es genügt 
up(Index) := pa(Index); 
zum Entpacken und 
pa(Index) := up(Index); 

zum Packen, sofern beide Fblder vom gleichen Komponen¬ 
tentyp sind. Die Zuweisung von ganzen gepackten Feldern 
auf ungepackte Felder ist mit dem Zuweisungsoperator 
jedoch nicht möglich. Der Ausdruck 
up := pa; 

ist zum Beispiel unzulässig. Für diese Zwecke müssen die 
Prozeduren »PACK« und »UNPACK« verwendet werden. Man 
sollte Arbeiten mit gepackten Feldern möglichst unterlassen, 
da sie sehr zeitaufwendig werden können. Bevor auf 
gepackte Daten zugegriffen wird, ist es ratsam, diese vorher 
mit »UNPACK« zu entpacken und nach den Operationen wie¬ 
der zu packen, um die Effizienz möglichst hoch zu halten. Das 
Packen und Entpacken ist, wie bereits angeschnitten, auch 
mit sämtlichen anderen strukturierten Datentypen möglich. 
Bisher kennen wir ja nur Arrays, doch werden Sie gegen Ende 
des Kurses noch mit weiteren Datentypen konfrontiert wer¬ 
den. Doch »packen« wir zunächst ein weiteres wichtiges 
Merkmal von Pascal an, die Blockstruktur. 

Pascal und Unterprogramme 


Es gibt in Pascal auch eine Art Unterprogrammtechnik, die es 
erlaubt, an verschiedenen Stellen mehrmals einen gewissen 
Programmabschnitt ablaufen zu lassen. Die Unterprogramme 
bekommen in Pascal Namen, mit denen sie gemäß ihrer Auf¬ 
gabe aufgerufen werden können. Diese Art des Programmie- 
rens erlaubt eine Unterteilung des Programms in einzelne 
unabhängige Blöcke, von denen jeder ein gewisses Teilpro¬ 
blem des Gesamtprogramms löst. Man bezeichnet dies auch 
als »Blockstruktur«, was ein Hauptkriterium des strukturier¬ 
ten Programmierens ist. Es gibt in Pascal zwei verschiedene 
Arten von Unterprogrammen, die Funktionen und die Proze¬ 
duren. Ihre Bedeutung soll nun erläutert werden. 

Prozeduren sind bei größeren Programmen besonders 
häufig. Sie machen es möglich, unabhängige Unterpro¬ 
gramme mit einem Namen zu versehen, so daß sie wie eine 
neue Pascal-Anweisung durch Aufruf des Namens im Haupt¬ 
programm benutzt werden können. Einige Standardprozedu¬ 
ren, die in UCSD-Pascal bereits vordefiniert sind, haben Sie 
ja schon kennengelernt. In Bild 3 sind sie unter »Standardpro¬ 
zeduren« auf gelistet. Bevor eine Prozedur jedoch aufgerufen 
werden kann, muß sie selbstverständlich noch geschrieben 
werden. Dies geschieht vor Beginn des Hauptprogramms mit 
dem Schlüsselwort »PROCEDURE«. Allgemein hat eine 
Prozedur-Deklaration die folgende Form: 

(Prozedur-Kopf); (Anweisungsblock) 

Der Prozedur-Kopf wird hierbei mit dem Wort »PROCE¬ 
DURE« eingeleitet: 

PROCEDURE (Name) ( (formale Parameter) ); 

Hinter dem Schlüsselwort »PROCEDURE« muß der Name 
der Prozedur stehen. Er dient später zur Identifikation. Von 
runden Klammern umgeben, kann schließlich eine Liste von 
formalen Parametern folgen. Diese gliedern sich in zwei 
Arten, die Eingabe- und Ausgabeparameter. Sie müssen 
aber, wenn sie nicht gebraucht werden, auch nicht angege¬ 
ben werden. Danach folgt der Anweisungsblock, der wie eine 
Verbundanweisung mit »BEGIN« angefangen und mit »END;« 
abgeschlossen werden muß. Er besteht aus beliebigen 
Anweisungen, die während des Prozedurablaufs abgearbei¬ 
tet werden sollen. Die Angabe des Semikolons hinter »END« 
ist dabei sehr wichtig. Der Prozeduraufruf erfolgt durch die 
Nennung des Prozedurnamens und den in runden Klammern 


stehenden aktuellen Parametern, die die Prozedur benötigt. 
Bei Aufruf der Prozedur werden die Parameter, wenn vorhan¬ 
den, übergeben und, wenn nötig, ein oder mehrere Werte an 
das Hauptprogramm zurückgeliefert. Um die Bedeutung der 
Ein- und Ausgabeparameter zu erklären, sei hier eine kleine 
Prozedur als Beispiel angegeben, die die größere von zwei 
Integerzahlen ermittelt und dem Hauptprogramm zur Verfü¬ 
gung stellt: 

PROCEDURE groesser (zahll,zahl2: integer; 

VAR ergebnis: integer); 

BEGIN 

IF zahll > zahl2 THEN ergebnis := zahll 
ELSE ergebnis := zahl2 

END; 

Die Prozedur wird in unserem Beispiel »groesser« genannt. 
Die formalen Eingabeparameter sind die Variablen »zahll« 
und »zahl2«, der Ausgabeparameter ist »ergebnis«. Er wird 
auch als »VAR«-Parameter bezeichnet, da er mit dem Schlüs¬ 
selwort »VAR« kenntlich gemacht werden muß. Diese drei 
Parameter stellen nun die einzigen Verbindungen zum restli¬ 
chen Programm dar. Ausgabeparameter können dazu die¬ 
nen, Daten in die Prozedur einzulesen und auch auszugeben. 
Eingabeparameter sind jedoch nur zur Eingabe von Daten 
gedacht. Die Namen der Parameter »zahll«, »zahl2« und 
»ergebnis« gelten dabei nur im Zusammenhang mit ihrer Pro¬ 
zedur und müssen deshalb nicht im Deklarationsteil definiert 
werden. Man nennt sie auch lokale Variablen, da sie nur für 
diese eine Prozedur lokal verfügbar sind. Die Variablen, die im 
normalen Deklarationsteil zu Beginn des Gesamtprogramms 
deklariert wurden, sind dagegen im Hauptprogramm wie in 
den Unterprogrammen, den Prozeduren und Funktionen (die 
wir noch behandeln werden), immer verwendbar. Sie heißen 
aus diesem Grund auch »globale Variable«, da sie global für 
alle Pro'j' mmteile zur Verfügung stehen. Konstante sind im 
Gegensatz dazu immer global, das heißt überall benutzbar. 
Wir können nun unsere Prozedur im Hauptprogramm aufru- 
fen, indem wir den Namen »groesser«, gefolgt von drei aktuel¬ 
len Parametern, angeben. Die aktuellen Parameter sind dabei 
völlig andere als die formalen in der Deklaration. Sie sind nor¬ 
mal definierte Variablen, die jeweils aktuelle Werte enthalten, 
mit denen die Prozedur ausgeführt werden soll. Wir können 
zum Beispiel unter der Voraussetzung, daß die verwendeten 
Variablen korrekt deklariert wurden, schreiben: 

groesser(ersterwert,zweiterwert,groessterwert); 

Beim Aufruf der Prozedur werden die Werte der aktuellen 
Parameter in den runden Klammern an die formalen Parame¬ 
ter, das heißt also an die lokalen Variablen der Prozedur, über¬ 
geben. Aktuelle und formale Parameter können deshalb voll¬ 
kommen verschiedene Namen haben. Dies ist ja auch in 
unserem Beispiel der Fall. Die Zuordnung der aktuellen zu 
den formalen Parametern richtet sich nur nach der Reihen¬ 
folge des Aufschreibens. In unserem Beispiel erfolgt die 
Zuweisung folgendermaßen: 
zahll erhält den Wert von ersterwert 
zahl2 erhält den Wert von zweiterwert 
ergebnis erhält den Wert von groessterwert 

Die Anzahl und jeweils deren Typ müssen dabei selbstver¬ 
ständlich mit denen der formalen Parameter in der Prozedur- 
Deklaration übereinstimmen. In unserem Fall müssen alle 
Variablen vom Typ integer sein. In der Prozedur wird der loka¬ 
len Variable »ergebnis« der größte Wert der beiden Variablen 
»zahll« und »zahl2« zugewiesen. Bei Verlassen der Prozedur 
übergibt die Variable »ergebnis« ihren Inhalt schließlich an die 
Variable »groessterwert«, die nun im Hauptprogramm weiter¬ 
verarbeitet werden kann, »ergebnis« ist ja der formale Ausga¬ 
beparameter und »groessterwert« die dazugehörige aktuelle 
Variable, die den Augabewert erhält. Listing 14 zeigt die 
Anwendung unserer Beispielprozedur auf recht einfache 
Weise. 
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Werden in einer Prozedur weitere Variablen als die Ein- und 
Ausgabeparameter benötigt, so können diese direkt hinter 
dem Prozedur-Kopf durch das schon bekannte Schlüssel¬ 
wort »VAR« definiert werden. Die in einer Prozedur extra 
deklarierten Variablen sind wie die formalen Parameter nur 
dieser einen Prozedur zugänglich, also ebenfalls lokal. Eine 
Prozedur mit einer lokalen Variablendefinition wäre zum Bei¬ 
spiel folgende: 

PROCEDURE Sternchen (laenge: integer); 

VAR index: integer; 

BEGIN 

FOR index := 1 TO laenge DO 
WRITE('# 1 ); 

END; 

Beim Aufruf der Prozedur »Sternchen« wird eine Reihe von 
Sternen (»*«) ausgegeben, deren Anzahl vom Hauptpro¬ 
gramm an den Eingabeparameter »laenge« übergeben wird. 
Die Anweisung 

sternehen(20); 

im Hauptprogramm bewirkt dann zum Beispiel den Ausdruck 
von 20 Sternchen auf dem Bildschirm. Die lokal definierte 
Variable »index«, die zur »FOR«-Schleife benötigt wird, ist nur 
für die Prozedur Sternchen zugänglich und wird nach 
Abschluß der Prozedur wieder vollkommen aus dem Rechen¬ 
speicher gelöscht. Erst bei Wiederaufruf von »Sternchen« 
wird diese Variable erneut angelegt. 

Es ist möglich, innerhalb einer Prozedur-Deklaration wei¬ 
tere Prozeduren oder Funktionen zu deklarieren. Auch sie 
sind dann lokal und können nur innerhalb dieser Prozedur 
aufgerufen werden. Hierzu unsere schon bekannte Prozedur 
mit einer kleinen Erweiterung: 

PROCEDURE Sternchen (laenge: integer); 

VAR index: integer; 

(# Definition der lokalen Prozedur anzahl *) 

PROCEDURE anzahl (sterne: integer); 

BEGIN 

URITE ('Das sind genau ',sterne,'Sternchen.'); 

END; (# Ende der Prozedur anzahl *) 

(* Beginn des Anweisungsteils von Sternchen *) 

BEGIN 

FOR index := 1 TO laenge DO BEGIN WRITE('#'); 
WRITELN; 
anzahl(laenge); 

END; 

END; 

(* Ende von Sternchen #) 

Die Prozedur »Sternchen« hat hier eine lokale Prozedur- 
Deklaration mit dem Namen »anzahl« bekommen, die die 
genaue Anzahl der Sterne in der ausgedruckten Reihe aus¬ 
gibt. Der Aufruf von »anzahl« ist dabei nur innerhalb der Proze¬ 
dur »Sternchen« selbst erlaubt. Wollte man »anzahl« vom 
Hauptprogramm aus benutzen, so würde dies zu einer Feh¬ 
lermeldung des Computers führen, da er die lokale Prozedur 


PROGRAM rnaximum; 

VAR erstezahl, zweitezahl, groesste: Integer; 
PROCEDURE groesser (zahll,zahl2: Integer, 

VAR max: Integer); 

BEGIN 

IF zahll ( zahl2 THEN max := zahl2 
ELSE max := zahll; 

END; 

(* Anfang Hauptprogramm *) 

BEGIN 

READ(erstezahl,zweitezahl); 
groesser(erstezahl,zweitezahl,groesste); 
WRITE('Die groessere von beiden ist ', groesste); 
END. 

(* Ende Hauptprogramm *) 

Listing 14. Prozeduren 


»anzahl« außerhalb von »Sternchen« wieder »vergessen« hat. 
Eine Prozedur kann also als in sich abgeschlossenes unab¬ 
hängiges Teilprogramm angesehen werden, sofern sie nicht 
globale Variablen oder Konstanten benutzt, die vom Haupt¬ 
programm aus deklariert worden sind. Die einzige Verbin¬ 
dung nach außen besteht dabei in den globalen Variablen und 
den formalen Parametern zur Übergabe von Werten. Die 
zweite Art von Unterprogrammen ist den Prozeduren sehr 
ähnlich. 

Funktionen werden den meisten aus dem Mathematikun¬ 
terricht bekannt sein. So haben sich bestimmt einige schon 
mit den trigonometrischen Funktionen Sinus, Cosinus und 
Tangens herumgeschlagen oder die Exponential- und Loga¬ 
rithmusfunktionen hassen gelernt. In Pascal sind Funktionen 
jedoch ein wichtiger Begriff. Zu Beginn des Kurses wurden 
ihnen schon einige standardmäßig vordefinierte Funktionen 
vorgestellt. Sie sind auch in Bild 3 unter »Standardfunktio¬ 
nen« aufgelistet. Jetzt soll geklärt werden, wie diese genau 
zu handhaben sind und wie man eigene Funktionen schrei¬ 
ben kann. Im Gegensatz zu Prozeduren liefern Funktionen 
automatisch einen Wert an das Hauptprogramm zurück. Sie 
haben aber einen ähnlichen Aufbau wie Prozeduren. Eine 
Funktionsdeklaration erfolgt nach den Konstanten-, TYPE- 
und Variabeldefinitionen und wird mit dem Schlüsselwort 
»FUNCTION« eingeleitet. Sie bekommt in Pascal ebenfalls 
einen Namen, mit dem die Funktion später vom Hauptpro¬ 
gramm oder anderen Unterprogrammen aufgerufen werden 
kann. Die allgemeine Form einer Funktion kann folgenderma¬ 
ßen beschrieben werden: 

(Funktionskopf); (Anweisungsteil) 

Der Funktionskopf sieht dabei so aus: 

FUNCTION (Name) ( (Liste von formalen 

Parametern) ): (Typ des Resultats) 

Hi«*« :eigt sich schon der erste Unterschied zur Prozedur. 
Es muß zusätzlich der Typ des Resultats der Funktion ange¬ 
geben werden. Die Liste der formalen Parameter kann wie bei 
»PROCEDURE« fehlen, wenn es sich um eine Funktion han¬ 
delt, die keine Argumente braucht, um einen Wert zu liefern. 
Man nennt eine solche Funktion auch »nullstellige Funktion«. 
Dies ist jedoch sehr selten. Eine Anwendung wäre zum Bei¬ 
spiel eine Time-Funktion, die bei Aufruf immer die aktuelle 
Zeit angibt. Normalerweise wird aber immer eine Liste an for¬ 
malen Parametern benötigt werden. Um den Unterschied 
einer Funktion zu einer Prozedur zu erläutern, soll hier unser 
bekanntes Beispiel (ein Programmteil, das die größere von 
zwei Integer-Zahlen ermittelt) als Funktion geschrieben wer¬ 
den: 

FUNCTION groesser (zahll,zahl2: integer): integer; 

BEGIN 

IF zahll > zahl2 THEN groesser := zahll 
ELSE groesser := zahl2 

END; 

Hier tut sich nun etwas sehr seltsames. Wie die Prozedur, 
so wird auch die Funktion »groesser« mit einer Liste von for¬ 
malen Eingabeparametern definiert. Unklar ist im Moment 
aber die zusätzliche Angabe des Resultattyps (integer) hinter 
der eingeklammerten Liste. Wenn wir die Funktion weiter ver¬ 
folgen, wird sich dieses Rätsel jedoch bald lösen. Wie in der 
uns bekannten Prozedur wird eine »IF...THEN...ELSE«- 
Verzweigung zur Ermittlung der größeren Zahl verwendet. 
Doch statt die nun größte Zahl in eine Variable (bei der Proze¬ 
dur die Variable »ergebnis«) zu schreiben, wird die größte 
Zahl dem Funktionsnamen selbst zugewiesen. Die Funktion 
wird also wie eine Variable behandelt. Jetzt wird auch die 
Angabe des Resultattyps klar. Er bestimmt, von welchem Typ 
der Wert der Funktion sein darf. Im Hauptprogramm wird bei 
einem Aufruf die Funktion wie ein Wert verstanden und in die 
Operationen und Variablenzuweisungen direkt eingebunden. 
Rechnerintern wird die Funktion selbst jedoch nicht als Platz- 
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halter für einen Wert verwendet, sondern eine lokale Variable 
mit dem selben Namen wie die Funktion eingerichtet. Eine 
Funktion kann zum Beispiel folgendermaßen aufgerufen wer¬ 
den: 


Pascal-Programm umsetzen kann. Die Funktion würde dann 
wie folgt aussehen: 

FUNCTION fak (n: integer): integer; 

BEGIN 


maximum := groesser(erstezahl,zweitezahl); 

Die Variable »maximum« erhält damit das Resultat der Funk¬ 
tion »groesser« zugewiesen. Der Resultattyp und der Typ der 
Variablen »maximum« muß dabei logischerweise der gleiche 
sein. In Listing 15 ist das Programm »groesser« dieses Mal mit 
einer Funktion formuliert worden. Es hat die gleiche Wirkung 
wie das Programm in Listing 14, zeigt aber die markanten 
Unterschiede von Funktionen und Prozeduren. 

Damit ist die Verwendung der Standardfunktionen eben¬ 
falls geklärt, da auch sie nach dem gleichen Prinzip aufgeru¬ 
fen werden, wie zum Beispiel: 

y := sin(x); 
oder 

v := succ(v); 

Die Regeln von lokalen und globalen Größen sind die glei¬ 
chen wie bei Prozeduren. Auch hier sind die formalen Para¬ 
meter und in der Funktions-Deklaration definierte Variablen 
lokal. Es ist ebenfalls möglich, innerhalb von Funktionen wei¬ 
tere lokale Funktionen oder Prozeduren zu definieren, die nur 
dieser Funktion zugänglich sind. Der kombinierten Anwen¬ 
dung von Funktionen und Prozeduren sind somit keine Gren¬ 
zen gesetzt. 

Es gibt in der Mathematik manchmal Probleme, die auf 
Anhieb nicht so ohne weiteres in Programmen gelöst werden 
können. Möchte man zum Beispiel eine Funktion in Pascal 
definieren, die die Fakultät einer Integer-Zahl berechnet, so 
kann dies einige Schwierigkeiten ergeben, wenn man nur fol¬ 
gende Definition der Fakultät zur Verfügung hat: 

n! = 1 für den Fall n = 0, und 

n! = n * (n-1)! Für den Fall n > 0. _ Ä __ __ 

Man sieht an dieser Definition, daß zur Berechnung von n! 
für den Fall n > 0 wiederum eine Fakultätsberechnung nötig 
ist. Es stellt sich jetzt die Frage, ob man dies direkt in ein 


IF n = 0 THEN fak := 1 

ELSE fak := n * fak(n - 1) 

END; 

Man erkennt, daß innerhalb der Funktion »fak« dieselbe 
nochmals aufgerufen wird (fak(n - 1)). So seltsam diese 
Lösung auch scheinen mag, sie ist in Pascal möglich. Man 
nennt diese Funktion, da sie sich selbst aufruft, auch »rekur¬ 
sive Funktion« (Rekursion: auf sich zurückgreifend). Man 
fragt sich hierbei natürlich, ob man damit wirklich eine Lösung 
erhält. Um dies zu überprüfen, gehen wir das Programm, wel¬ 
ches diese rekursive Funktion benutzt, Schritt für Schritt 
durch. Listing 16 zeigt das Programm zur rekursiven Berech¬ 
nung der Fakultät. 

Nehmen wir der Einfachheit halber die Berechnung der 
Fakultät von 3. Das Hauptprogramm benötigt zur Berech¬ 
nung drei Integer-Variablen mit den Namen »argument«, 
»ergebnis« und »fak«, die das Ergebnis der Funktion »fak« 
beinhalten soll. Wenn wir in das Programm den Wert 3 einge¬ 
ben, so wird »argument« damit belegt. Dies ist im Schema von 
Bild 9 dargestellt. 

Wird die Funktion »fak(argument)« aufgerufen, wird ein 
zweiter Block eröffnet, der eine neue Variable mit dem 
Namen »n« benötigt. Er übernimmt den Wert von »argument«. 
Fügen wir dies also unserem Schema hinzu (Bild 10). 

Die Variable »n« ist nicht Null. Aus diesem Grund wird die 
Anweisung hinter »ELSE« ausgeführt. Diese ruft aber wie¬ 
derum die Funktion »fak()« auf: 

fak := n * fak(n - 1 ); 

Die Zeile mit dem Wert »fak« stellt in unserem Schema den 
Wert dr der sich bei der obigen Berechnung ergibt. Doch 
bevor sich ein Ergebnis einstellt, wird fak (n-1) berechnet. 
Man muß jetzt annehmen, daß innerhalb des Blocks »fak« ein 
zweiter eröffnet wird, der die Bearbeitung von »fak(n - 1)«, 


PROGRAM maximum; 

VAR erstezahl,zweitezahl,groesste: integer; 

FUNCTION groesser (zahll,zahl2: integer): integer; 
BEGIN 

IF zahll <zahl2 THEN groesser := zahl2 
ELSE groesser :=* zahl; 

END; 

(* Anfang Hauptprogramm ») 

BEGIN 

READ(erstezahl,zweitezahl); 
groesste := groesser(erstezahl,zweitezahl); 
WRITE('Die groessere von beiden ist ',groesste); 
END. 

(» Ende Hauptprogramm *) 

Listing 15. Funktionen 


PROGRAM fakultflt; 

VAR argument,ergebnis:integer; 

FUNCTION fak (n: integer): integer; 

BEGIN 

IF n « 0 THEN fak := 1 

ELSE fak := n * fak(n - 1); 

END; 

(» Anfang Hauptprogramm «) 

BEGIN 

READ(argument); 
ergebnis := fak(argument); 

END. 

(# Ende Hauptprogramm ») 

Listing 16. Fakultät rekursiv 


argument: 3 


ergebnis: 

fak: 


ergebnis: = fak (argument) 


Bild 9. Struktogramm zum Programm Fakultät 


argument: 3 


ergebnis: 


fak: 


fak 


n: 3 

IF 

n = 0 



THEN 

fak: =1 


ELSE 

fak: =n • fak (n- 1 ) 


ergebnis: = fak 


Bild 10. Struktogramm zur Fakultät mit Funktion 
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also »fak(2)«_ übernimmt. Der Computer errichtet dazu eine 
zweite Variable des Namens »n«, die aber nur lokal für den 
zweiten Funktionsaufruf gilt. Es muß ebenfalls eine zweite 
Funktionsvariable »fak« geben, die das Ergebnis des zweiten 
Durchgangs aufnimmt. Um klarzustellen, daß es sich bei den 
gleichnamigen Variablen der verschiedenen Rekursions¬ 
schichten um unterschiedliche Speicherplätze handelt, wer¬ 
den in den Bildern Indizes verwendet. Bild 11 hat dies im 
Schema festgehalten. 

Wiederum ist »n« nicht Null, und somit wird die Anweisung 
hinter »ELSE« ausgeführt. Doch bevor »fakl« berechnet wer¬ 
den kann, muß der Computer noch eine Rekursionsstufe tie¬ 
fer steigen, wo ihn die gleiche Situation für »n« gleich 1 erwar¬ 
tet. Nach dem dritten rekursiven Aufruf ist das lokale »n« 
gleich Null, womit »fak3« den eindeutigen Wert 1 erhält. Die 
Berechnung der Rekursionsformel in den verschiedenen Tie¬ 
fen können jetzt gelöst werden, und der Computer kann wie¬ 
der auf die ursprüngliche Ebene zurückkehren, wo er der 
Variablen »ergebnis« den Wert von »fak« zuweisen kann, 
»ergebnis« erhält den Wert 6, was der Fakultät von 3 ent¬ 
spricht. Bild 12 verdeutlicht alle nötigen Rekursionsebenen 
des Problems. 

Schon allein das gedankliche Nachvollziehen einer solchen 
Berechnung zeigt, daß es einen unwahrscheinlich großen 
Aufwand für den Computer bedeuten muß, eine rekursive 
Aufgabe zu bearbeiten. Da dies noch ein relativ einfaches 
Problem ist, kann man sich vorstellen, daß komplexere 
Rekursionsaufgaben die Rechenzeit erheblich erhöhen kön¬ 
nen. Wem es also auf Effizienz im Programm ankommt, der 
sollte Rekursionen möglichst vermeiden. Diese Art der 
Lösung eines Problems ist jedoch sehr elegant und für den 
Anwender oft recht einfach zu programmieren. Über die kom¬ 



Bild 11. Rekursionsschichten 


Datentyp 

einfach 

strukturiert 

Zeiger 

integer 

ARRAY 


real 

SET 


boolean 

RECORD 


char 

FILE 


string 




Bild 12. Alle Datentypen auf einen Blick 


plizierten Verwaltungsaufgaben des Computers muß sich der 
Anwender ja keine Gedanken machen. Einige Probleme las¬ 
sen sich oft nur durch Rekursion bewältigen, und hierfür ist 
Pascal eine gute Programmiersprache. Die Rekursion läßt 
sich auch auf Prozeduren anwenden. Die einzelnen Schritte 
dafür sind sehr ähnlich. Darum wird an dieser Stelle nicht 
mehr gesondert darauf eingegangen. 

Wie bereits schon angeschnitten wurde, gibt es außer dem 
Datentyp »array« noch einige weitere strukturierte Typen, die 
jetzt erklärt werden sollen. Doch zuvor geben wir einen klei¬ 
nen Überblick über alle verwendbaren Datentypen. In Pascal 
gibt es für Datentypen drei Überbegriffe: Da sind zunächst 
die einfachen Typen, von denen wir schon alle erläutert 
haben. Sie sind in Bild 12 unter dem Begriff »einfach« aufgeli¬ 
stet. Die zweite Art von Typen nennt sich »strukturiert«. In Bild 
12 wurden sie unter »strukturiert« zusammengefaßt. Bis auf 
den Array-Typ dürften Ihnen diese Typen noch unbekannt 
sein; sie werden Gegenstand dieses Abschnittes. Als letztes 
stehen noch die sogenannten »Pointer« oder »Zeiger« zur 
Verfügung, denen der nächste Abschnitt gewidmet ist. Kom¬ 
men wir zunächst zu den »structured types«, den strukturier¬ 
ten Datentypen. Wie bereits bei Arrays erklärt wurde, lassen 
sich alle strukturierten Typen mit dem Schlüsselwort 
»PACKED« in ihrer Speicherung komprimieren. Dies ge¬ 
schieht bei den noch unbekannten Typen genauso, wie wir 
das von Arrays her kennen. Das gleiche gilt auch für das 
nachträgliche Packen und Entpacken. Aus diesem Grund 
wird bei der Besprechung der weiteren Typen nicht mehr 
extra darauf eingegangen. Die folgenden Angaben beziehen 
sich also auf ungepackte Typen. 

Der Set-Typ 


tun®*»» 

Der Set-Typ ermöglicht eine Verarbeitung von mehreren Kom¬ 
ponenten des gleichen Typs, die zu einer Menge zusammen¬ 
gefaßt werden. Man definiert einen Set-Typ mit den Schlüs¬ 
selworten »SET OF« in der folgenden Weise: 

SET OF (Basistyp) 

Der Basistyp darf hierbei jeder einfache Typ sein, mit Aus¬ 
nahme von real. Eine Variable dieses Typs kann jede Menge 
von Werten des Basistyps annehmen. So kann sie auch eine 
Teilmenge, also mehrere Elemente der mit »SET« definierten 
Grundmenge, enthalten. Die maximale Anzahl von Werten 
einer Menge ist bei den meisten Pascal-Implementationen 
begrenzt und von Compiler zu Compiler verschieden. Eine 
korrekte Definition wäre zum Beispiel 
TYPE menge = SET OF char; 

Ein so definierter Mengentyp kann nur im Gesamten ange¬ 
sprochen werden. Es ist demnach nicht möglich, einzelne 
Elemente der Menge zu verabeiten, wie man dies zum Bei¬ 
spiel bei Arrays kann. Eine Menge wird in Pascal durch eine 
Aufzählung von Elementen oder Elementbereichen, die in 
eckigen Klammern durch Kommata getrennt sind, beschrie¬ 
ben. Mengen des Typs char sind beispielsweise: 
[’a’.-'z 1 ] ist die Menge aller Buchstaben 
['a'j'c'j'e'] ist die Menge der Zeichen ’a', 'c' 
und ’e' 

[] ist die leere Menge 

Die Definition des Typs set wird nach dem in Pascal übli¬ 
chen Schema vorgenommen: 

TYPE färben = [rot,gelb,gruen,blau,braun,lila, 
rosa,grau,tuerkis,karmin]; 
menge = SET OF färben; 

VAR schoen,haesslich: menge; 

Damit wurde den Variablen »schoen« und »haesslich« der 
Typ »menge« zugeordnet, der ein »SET« des Basistyps »fär¬ 
ben« ist. Die Variablen können nun Mengen der Werte des 
Typs »färben« enthalten. Die Zuweisung von Mengen 
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geschieht auch hier wie immer durch den Zuweisungsopera- 

schoen := [rot..blau,rosa,tuerkis,karmin]; 
haesslich := [braun,lila,grau,gelb]; 

Solche Mengen lassen sich nun auch manipulieren. Es ste¬ 
hen dafür einige Operatoren zur Verfügung, die in bezug auf 
die Zeichen bereits bekannt sind, bei den Mengentypen 
jedoch eine andere Bedeutung haben. Bild 13 zeigt diese 
Operatoren und ihre Bedeutung. 

Diese Operatoren können auf die in Pascal übliche Weise 
angewandt werden und Ausdrücke bilden, wie zum Beispiel: 
[rot..blau] # [gruen] 
schoen + [grau] 
schoen <= [gelb] 

(tuerkis) IN haesslich 

Konstanten des Mengentyps können auch ohne vorherige 
Vereinbarung mit »SET« in Pascal-Programmen verwendet 
werden. So sind die Mengen 


[1..100] [5..10] ['c'..'v'] 

ohne vorherige Definitionen zulässig. Mengen, wie 
[3-7,4.7,5.7] [100/ 5..50] 

sind dageben verboten, da keine reellen Zahlen für Mengen¬ 
angaben gestattet sind. Auch eine gemischte Menge darf 
nicht Vorkommen, da alle Elemente einer Menge vom glei¬ 
chen Typ sein müssen. 

[’a'..'z', 2 .. 10 ] 

ist somit unzulässig. Mengen bieten die Möglichkeit, einige 
Probleme leichter und durchsichtiger zu gestalten. Um fest¬ 
zustellen, ob ein Zeichen zum Beispiel eine Ziffer ist, mußte 
man mit den herkömmlichen Methoden folgende Bedingung 
formulieren: 

(Zeichen >= '0') AND (zeichen <= '9') 

Mit dem Mengenoperator »IN« kann dies sehr viel einfacher 
bewerkstelligt werden: 

Zeichen IN ['0'..'9'] 

Auch in Verbindung mit der »CASE«-Anweisung kann eine 
Menge besonders nützlich sein. Wir erinnern uns, daß in der 
»CASE«-Anweisung sämtliche Werte, die die untersuchte 
Variable annehmen kann, berücksichtigt werden müssen. 
Sollen nur bestimmte Fälle ausgewertet werden, so empfiehlt 
es sich, durch eine vorangestellte IF-Anweisung vorher zu 
prüfen, ob der Wert einer der zu unterscheidenden ist, wie es 
das Beispiel zeigt: 

IF färbe IN [rot...blau] THEN OASE färbe 0F 
rot: WRITE('Rot'); 
gelb: WRITE('Gelb'); 
gruen: WRITE('Gruen 1 ); 
blau: WRITE(Blau 1 ) 

' END; 

ELSE WRITE('Diese Farbe kenne ich nicht.'); 

Die Anweisung nach »ELSE« wird ausgeführt, wenn keiner 
der Fälle auf den Wert von »färbe« zutrifft. Weitere Möglich¬ 
keiten der Manipulation, außer mit den genannten Operato¬ 
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ren, sind in Pascal leider nicht möglich. Zur komfortableren 
Verarbeitung von Mengen wird sich der Programmierer 
selbst Prozeduren und Funktionen schreiben müssen, um 
die Möglichkeiten des Mengentyps voll auszunutzen. Auch 
die bei jedem Compiler unterschiedliche Maximalanzahl von 
Elementen in einer Menge läßt sich mit einem Kniff umgehen. 
Man definiert eine Mengengröße einfach als Array von klei¬ 
nen Teilmengen. 

Um eine feste Anzahl von Komponenten (die verschiedene 
Typen untereinander haben können) zusammenzufassen, 
gibt es in Pascal den Record-Typ. Er wird auch Verbundtyp 
genannt, da er eine Anzahl verschiedener Datentypen zu 
einem Verbund zusammenschließt. Die verschiedenen Kom¬ 
ponenten werden auch »Felder eines Records« bezeichnet. 
Die Definition eines Record-Typs geschieht mit dem Schlüs¬ 
selwort »RECORD«, das von einer Liste von Feldnamen 
sowie, mit einem Doppelpunkt getrennt, dem dazugehörigen 
Datentyp gefolgt ist. Die Definition muß mit »END;« abge¬ 
schlossen werden: 

RECORD (Liste von Feldnamen):(Typen) END; 

Will man zum Beispiel die zusammengehörigen Daten sei¬ 
ner Lieblingsschallplatte verarbeiten, so kann man dies mit 
Hilfe eines Records tun. Den Oberbegriff des Records nen¬ 
nen wir dabei »lieblingsplatte« und die einzelnen Felder, die 
verwendet werden, »stil«, »jahr« und »preis«. Die Definition 
hierfür sieht wie folgt aus: 

TYPE Schallplatte = RECORD 

stll: (Unterhaltung,klassik, 
rock,pop); 
jahr: 1970..1986; 
preis: 10..20; 

END; 

Der Datentyp »Schallplatte« besteht damit aus dem Feld 
»stil«. Uns vier Stilrichtungen beinhalten darf. Die zweite Feld¬ 
komponente ist das »jahr«, das Werte von 1970 bis 1986 
annehmen kann, und schließlich das Feld »preis« mit dem 
Wertebereich von 10 bis 20. Durch die Variablen-Deklaration 
VAR lieblingsplatte: Schallplatte; 
wird schließlich der Record »lieblingsplatte« definiert. Wie Sie 
sehen, kann ein Record Komponenten verschiedenen Typs 
aufnehmen. Die Komponenten eines Records werden durch 
den Variablennamen, gefolgt von einem Punkt (»record 
selector«) und dem jeweiligen Feldnamen beschrieben. So 
hat der eben definierte Record folgende Komponentenna¬ 
men: 

lieblingsplatte.stil 
lieblingsplatte.j ahr 
lieblingsplatte.preis 

Diesen Record-Namen können jetzt ihrem Typ entspre¬ 
chende Daten zugewiesen werden: 
lieblingsplatte.stil := rock; 
lieblingsplatte.jahr := 1984; 
lieblingsplatte.preis := 18; 

Auch folgende Anweisung ist korrekt: 

IF lieblingsplatte.preis > 17 THEN WRITE 
('zu teuer') 

ELSE WRITE('preisgünstig'); 

Es ist (wie bei den anderen strukturierten Datentypen 
auch) möglich, mehrere Records ineinander zu schachteln, 
das heißt, es kann ein Zugriff auf Felder von Feldern erfolgen. 
Dadurch ergibt sich eine mehrfache Selektion. Definieren wir 
zum Beispiel folgendes Record: 

VAR al: RECORD 

a2: RECORD 

a3: integer; 
a4: char; 

END; 
a5: real 
END; 


Bild 13. Mengenoperatoren 
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Die selektierte Variable »a1.a2« ist dabei wieder selbst ein 
Record mit den Feldern »a3« und »a4«. Die Variable »al ,a2.a3« 
ist damit eine Variable des Typs integer. Die selektierte Varia¬ 
ble »a1.a2.a4« hat dagegen den Typ char, da das Record-Feld 
»a4« als char definiert wurde. Die Variable »a1.a5« wurde nicht 
weiter selektiert, sondern erhielt gleich den Typ real. Somit 
sind folgende Anweisungen korrekt: 
al.a2.a3 := 10000; 
al.a2.a4 := ’r'; 
al.a5 := 3-14157; 

Außer dem Zuweisungsoperator gibt es in Pascal keine 
speziellen Operatoren, Funktionen oder Prozeduren, die 
Record-Variablen verarbeiten. Insbesondere die Ein- und 


Anweisung 

WITH lieblingsplatte DO BEGIN 
WRITE(jahr); 

WRITE(preis) 

END; 

gibt die Werte der Record-Komponenten »lieblingsplat- 
te.jahr« und »lieblingsplatte.preis« aus und ist somit äquivalent 
zu folgenden Anweisungen: 
WRITE(lieblingsplatte.jahr); 
WRITE(lieblingsplatte.preis); 

Die Anwendungsmöglichkeiten von Records sind sehr 
umfangreich, so daß sie im Rahmen dieses Kurses, wie die 


Ausgabe ist mit den normalen Standardprozeduren nur 
begrenzt möglich. Während Record-Variablen der vier Stan¬ 
dardtypen die »WRITE«- und »READ«-Anweisungen verwen¬ 
den können, liegt die Ein- und Ausgabe von Record-Variablen 
des Aufzählungstyps zum Beispiel in der Kunst des Program¬ 
mierers, der dafür eigene Prozeduren schreiben muß. So 
kann das obige Record-Beispiel bei der selektierten Variable 
»lieblingsplattapreis« die folgende Anweisung verwenden: 

WRITE(lieblingsplatte.preis); 

Nicht gestattet ist dagegen die Ausgabe der Record- 
Variablen »lieblingsplatte.stil«, da diese vom Aufzählungstyp 
ist. 

WRITE(lieblingplatte.Stil); 

ist demnach falsch. 

Wie bei den anderen Datentypen können auch Arrays aus 
Records gebildet werden. Dies ist nützlich, wenn man eine 
große Anzahl an gleichartigen Records benötigt. Hat man 
zum Beispiel seine Plattensammlung zu verwalten, so kann 
man ein Array mit mehreren gleichen Records definieren. 
Unter der Voraussetzung, daß die obige Typendefinition von 
»Schallplatte« noch gilt, kann man folgende Variablen-Dekla¬ 
ration machen: 

VAR platte: ARRAY [1..100] 0F Schallplatte; 

Der Variablenname »platte« bestimmt nun ein Array von 
hundert gleichartigen Records, die alle die Daten für eine 
Schallplatte der Sammlung repräsentieren sollen. Die einzel¬ 
nen Komponenten werden dabei unter Angabe des jeweili¬ 
gen Index unterschieden. So ist 

platte[1].Stil 

eine Record-Komponente des ersten Arrays, die in unserem 
Fall die Stilrichtung der ersten Platte unserer Sammlung ent¬ 
halten soll. 

platte[50].preis 

bezieht sich auf den Preis von Platte Nummer 50. Man sieht, 
daß Records dabei helfen, problemorientierter zu program¬ 
mieren. Insbesondere bei der Verwaltung von großen Daten¬ 
mengen, die untereinander zwar unterschiedlich sind, sich 
aber immer wiederholen, können Records sehr nützlich sein. 
So könnte die Mitgliederliste eines Vereins beispielsweise in 
Pascal recht einfach gestaltet werden. Listing 17 zeigt die 
Eingabe der Daten verschiedener Personen in Records. 

Für mehrere Anweisungen, die sich immer wieder auf die 
Felder desselben Records beziehen, gibt es in Pascal eine 
Anweisung, die es erlaubt, durch eine einmalige Angabe des 
Record-Namens mehrere gleichartige Record-Anweisungen 
zusammenzufassen. 

Die »WITH«-Anweisung hat folgenden Syntax: 

WITH (Record-Variable) DO (Anweisung); 

Die Anweisung hinter »DO« kann auch eine Verbundanwei¬ 
sung sein, die, wie bekannt, von »BEGIN« und »END« umge¬ 
ben sein muß. Durch Angabe der Record-Variablen genügt es 
bei »WITH« (bei Bezugnahme auf die einzelnen Felder des 
Records), nur deren Feldnamen anzugeben. So kann die 
Ausgabe der Felder eines Records sehr einfach geschehen, 
da nicht bei jeder Anweisung der Record-Name vor den Feld¬ 
namen einer jeder Variablen geschrieben werden muß. Die 


(» TEILNEHMER-RECORDS EINLESEN, NACH DER NUMMER SORTIEREN, 

UND WIEDER AUSGEBEN *) 

PROGRAM NUMMERN; 

TYPE TEILNMRTYP“ 

RECORD 

NAME: PACKED ARRAY [1..18] 0F CHAR; 

ADRESSE: PACKED ARRAY[1..23] 0F CHAR; 

TELEFONNUMMER: PACKED ARRAY[1..8] 0F CHAR 

END; 

VAR ARBEITSBEREICH: TEILNMRTYP; 

TEILNEHMER: ARRAY[1. .25] 0F TEILNMRTYP; 

I, J, REC0RDANZ: INTEGER; 

CH: CHAR; 

PR0CEDURE S0RTIERE(REC0RDANZ: INTEGER); 

(* SORTIERE RECORDS NACH DER TELEFONNUMMER *) 

VAR ARBEITSBEREICH: TEILNMRTYP; 

I, J: INTEGER; 

BEGIN 

F0R I:=l T0 REC0RDANZ-1 DO 
F0R J:=l T0 REC0RDANZ-1 DO 

IF TEILNEHMER[J+;].TELEFONNUMMER > 

TEILNEHMER[J+1].TELEFONNUMMER THEN 

»r. -■ BEGIN 

(* VERTAUSCHEN VON TEILNEHMERN] UND TEILNEHMER[J+l] *) 
ARBEITSBEREICH: “TEILNEHMERN] ; 

TEILNEHMERIN] : “TEILNEHMER [J+l]; 

TEILNEHMER[J+l]:=ARBEITSBEREICH 
END 

END; 

BEGIN 

WRITECANZAHL DER RECORDS = '); 

READLN(RECORDANZ); 

(* EINLESEN DER RECORDS IN DEN ARRAY «) 

WRITELN('NAME', 'ADRESSE':21, 'TELEFON':23); 

FOR I:-l TO RECORDANZ DO 
BEGIN 

FOR J:=l TO 18 DO 
BEGIN 
READ(CH); 

ARBEITSBEREICH.NAME[J]:=CH 
END; 

FOR J:=l TO 23 DO. 

BEGIN 

ARBEITSBEREICH.ADRESSEN] :=CH 
END; 

FOR J:=l TO 8 DO 
BEGIN 
READ(CH); 

ARBEITSBEREICH. TELEFONNUMMERN]: =CH 
END; 

TEILNEHMERN] ^ARBEITSBEREICH; 

READLN 

END; 

(# SORTIERE DIE RECORDS NACH DEN TELEFONNUMMERN *) 

SORTIERE (RECORDANZ); 

(* GIB DEN SORTIERTEN ARRAY AUS RECORDS AUS ») 

WRITELN; 

WRITELN('DIE LISTE WURDE NACH TELEFONNUMMERN SORTIERT'); 
WRITELN('TELEFON', 'NAME':6, 'ADRESSE':21); 

FOR I:«l TO RECORDANZ DO 
WRITELN(TEILNEHMER) [I] .TELEFONNUMMER, 

' ', TEILNEHMERN] -NAME, TEILNEHMERN] .ADRESSE) 

END. 

Listing 17. Records 
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anderen Datentypen, eigentlich nur relativ kurz behandelt 
werden konnten. Insbesondere bei Verschachtelungen der 
einzelnen Datentypen untereinander lassen sich sehr kom¬ 
plexe Strukturen aufbauen. Die gesamten Möglichkeiten von 
strukturierten Datentypen aufzuzählen, würde wohl einige 
Sonderhefte füllen. Um jedoch auch den letzten der Datenty¬ 
pen zu erwähnen, kommen wir jetzt zu dem Typ File, der 
insbesondere für die Arbeit mit Externspeichern, wie zum 
Beispiel einem Diskettenlaufwerk, gedacht ist. 

Dateien auf Diskette 


Files sind in Pascal eine beliebig lange Folge von Komponen¬ 
ten des gleichen Typs. Die Länge darf dabei während des Pro¬ 
grammablaufs variieren. Der Zugriff auf eine Komponente 
eines Files erfolgt jedoch auf eine ganz andere Art als bei den 
übrigen Datentypen. Anders als bei Records oder Arrays, die 
eine direkte Auswahl von Komponenten (durch Index oder 
Feldname) erlauben, geschieht eine Bearbeitung von Fileda¬ 
ten sequentiell, das heißt immer der Reihe nach. Diese Art 
der Datenverarbeitung ist zum Beispiel auch auf Disketten¬ 
laufwerken realisiert, die meist nur sequentiell Daten lesen 
und speichern können. Eine Besonderheit ist, daß ein Pascal- 
File entweder nur ausgelesen oder nur beschrieben werden 
kann. Bei wechselndem Schreib- und Lesezugriff muß zuerst 
auf Schreiben beziehungsweise Lesen umgeschaltet wer¬ 
den. Bei der Ein- und Ausgabe am Bildschirm haben wir 
schon unbewußt mit Files zu tun gehabt. Dies waren die Stan¬ 
darddateien »input« und »output«, die für die Eingabe von der 
Tastatur und für die Ausgabe auf dem Bildschirm verantwort¬ 
lich sind. Diese Files sind von UCSD-Pascal standardmäßig 
vorgegeben und mußten deshalb nicht extra im Programm 
angegeben werden. Andere Files, auf der Diskette zum Bei¬ 
spiel, müssen im Programmkopf angegeben werden. Dies 
geschieht durch den Namen der Datei, der hinter dem Pro¬ 
grammnamen in runden Klammern geschrieben wird. Es soll 
nun der File-Typ beschrieben werden. Er wird wie folgt formu¬ 
liert: 

FILE OF (Typ) 

Bei (»Typ«) kann es sich um jeden beliebigen Typ, insbeson¬ 
dere auch um strukturierte Typen, handeln. Bei einem File 
sind nicht alle Daten gleichzeitig und von jeder Stelle abruf¬ 
bar, es ist vielmehr immer nur das Element verfügbar, das an 
der aktuellen File-Position steht. Um dies zu veranschauli¬ 
chen, wollen wir den Sachverhalt in einem Beispiel demon¬ 
strieren. Wir deklarieren eine Variable mit dem Namen »e« als 
File. Wir können dabei das Schlüsselwort »FILE« direkt in der 
Variablen-Deklaration schreiben: 

VAR e: FILE OF y 

Der Typ »y« muß selbstverständlich vordefiniert worden 
sein. Er kann, wie schon gesagt, beliebig sein. Zusammen mit 
der Deklaration wird gleichzeitig eine sogenannte Pufferva¬ 
riable geschaffen, die den gleichen Namen wie unser File hat, 
aber von einem Pfeil gefolgt ist. Sie heißt »e"« und enthält 
immer den aktuellen Wert der gerade verfügbaren File- 
Komponente. Man kann sich »e"« wie ein Fenster vorstellen, 
in dem sich immer die aktuelle Komponente befindet. Bild 14 
stellt dies grafisch dar. 



Man kann also nur durch Lesen oder Schreiben der Puffer¬ 
variablen einen Zugriff auf das File vornehmen. Es gibt aller¬ 
dings noch weitere Funktionen, die das Fenster an den 
Anfang zurücksetzen oder um eine Komponente weiter, 
bewegen. Die Standardfunktion »EOF« (»end of file«) hat hier 
eine Bedeutung: sie zeigt das Ende eines Files an. In unse¬ 
rem Fall hat »EOF(e)« den Wert »true«, wenn das Fenster 
(»e~«) am Schluß des Files steht und keinen Wert mehr enthält 
(Ende des Files). 

Zum Rücksetzen der Puffervariablen auf die erste Kompo¬ 
nente des Files muß die Standardprozedur »RESETQ« ver¬ 
wendet werden. 

RESET(e); 

setzt das Fenster also auf den Beginn des Files »e«. »EOF(e)« 
ergibt den Wert »true«, wenn das File leer ist. Beim nicht lee¬ 
ren File wird »EOF(e)« »false«, während »e"« den ersten Wert 
des Files enthält. Gleichzeitig wird es in den Lesezustand 
gebracht, das heißt, es kann nur gelesen werden. Das Lesen 
einer Komponente des Files »e« geschieht durch die Proze¬ 
dur »GET(e)«. Man wendet sie folgendermaßen an: 

v := e"; GET(e); 

Die Variable »v«, die natürlich den gleichen Typ wie die 
Komponenten des Files haben muß, bekommt den Wert der 
aktuellen Komponente zugewiesen. Die Prozedur »GETQ« 
bewirkt nun, daß das Fenster eine Position weitergeschoben 
wird und die Puffervariable »e"« den Wert der neuen Kompo¬ 
nente annimmt. 

Wird die Prozedur »GETQ« am Ende des Files angewendet 
(»EOF(e)« ist »true«), so kann »e~« kein neuer Wert mehr 
zugewiesen werden. Die meisten Pascal-Compiler akzeptie¬ 
ren das nicht und brechen den Programmablauf ab. Durch die 
Prozedur »REWRITEQ« können Daten in das File geschrie¬ 
ben werden. 

REW!' 1 *£(e ) ; 

ermöglicht dies für unser Beispielfile. Das Problem dabei ist, 
daß bei Anwendung dieser Prozedur das gesamte File 
gelöscht wird, um dann erst in den Schreibzustand umzu¬ 
schalten. Die Puffervariable zeigt dann auf den Anfang des 
Files und es kann mit dem Schreiben begonnen werden. Dies 
geschieht mit der ebenfalls standardmäßig vorgegebenen 
Prozedur »PUT()«. Es ist folgende Befehlsfolge nötig: 

e“ := v; PUT(e); 

Dieses Mal wird der Puffervariablen »e"« der zu schrei¬ 
bende Wert zugewiesen. Er muß selbstverständlich zum Typ 
des Files passen. Die Put-Prozedur schreibt den Inhalt von 
»e"« an die aktuelle Position und schiebt das Fenster eine 
Position weiter. »EOF(e)« bleibt bei »PUT(e)« immer »true«, da 
das Fenster ja schon auf der nächsten leeren Position ist. Bild 
15 zeigt den Schreibvorgang in einer Grafik. 

Dadurch, daß das File vor dem Umschalten auf Schreiben 
ganz gelöscht wird, ist das Einfügen oder Verändern der 
Werte im File sehr umständlich. Eine Möglichkeit ist, die Kom¬ 
ponenten des Files bis zur Einfügestelle in ein Hilfsfile zu 
kopieren, den neuen oder veränderten Wert an das Hilfsfile 
anzuhängen und schließlich den Rest des Files dahinter zu 
schreiben. Danach kann das gesamte Hilfsfile wieder in das 
Ausgangsfile zurückkopiert werden. Diesen Vorgang sollte 
man durch eigene Prozeduren abwickeln. 




Bild 14. Puffervariable »e« 
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Ein Text ist in Pascal eine Folge von Zeichen, also eine Zei¬ 
chenkette. Er ist der Definition von string sehr ähnlich. So 
kann man einen neuen Datentyp folgendermaßen definieren: 

TYPE text = FILE OF char; 

»text« ist damit ein File-Typ, der Druckzeichen aufnehmen 
kann. Mit ihm können wir ein File eröffnen, welches das Spei¬ 
chern von Texten sehr einfach macht. Dieser Typ ist von Pas¬ 
cal jedoch schon vordefiniert und kann somit auch ohne die 
vorhergehende »TYPE«-Anweisung benutzt werden. Die 
bereits angesprochenen Standardnamen »input« und »out¬ 
put« sind zum Beispiel Files des Typs »text«. Man kann damit 
aber auch eigene Textfiles, beispielsweise auf Diskette, defi¬ 
nieren. Mit der einfachen »VAR«-Anweisung ist dies schnell 
getan: 

VAR brief: text; 

Die Variable »brief« kann nun als Textfile verwendet werden. 
Es ist möglich, ein Textfile mit den bekannten Prozeduren 
»GET()« und »PUTQ« zu bearbeiten. Wir erinnern uns, daß die 
Textfiles »input« beziehungsweise »output« die Eingabe über 
die Tastatur beziehungsweise die Ausgabe auf dem Bild¬ 
schirm übernommen haben. Wir haben zu diesem Zweck die 
Prozeduren »GET()« und »PUT()« jedoch nie verwendet, son¬ 
dern die komfortablen Prozeduren »READQ« und »WRITEO«. 
Diese Anweisungen sind Erweiterungen der Prozeduren 
»GETQ« und »PUTQ« und erlauben, wie Sie ja schon wissen, 
das Beschreiben und das Lesen eines Textfiles auf recht 
angenehme Weise. Die Eingabe von der Tastatur und die Aus¬ 
gabe auf dem Bildschirm war demnach nichts weiter als das 
Lesen der Datei »input« und das Beschreiben der Datei »out¬ 
put«. Die Prozeduren »READQ« und »WRITEO« sind jedoch 
allgemein für Textfiles bestimmt und können deshalb auch für 
eigene Files verwendet werden. Das umständliche Herum¬ 
hantieren mit »GETQ« und »PUTQ« ist dadurch nicht mehr not¬ 
wendig. Durch Angabe des File-Namens in der Anweisung 
wird das Lesen und Schreiben auf dieses File bezogen. Das 
Lesen eines Textfiles kann folgendermaßen ablaufen: 

READ(brief,wl,w2,w3); 

Damit wird das File »brief« angesprochen, das wir oben als 
Beispiel hatten. Sie werden sich fragen, warum man bei der 
Tastatureingabe das File »input« nicht in der »read«- 
Anweisung angeben muß. Dies liegt am Pascal-Compiler 
selbst. Sollte der File-Name fehlen, so wird der Befehl auto¬ 
matisch auf die Standardatei »input«, also auf die Tastatur, 
bezogen. Die Anweisung 

READ(input,wl,w2,w3,...,wn); 
kann also vereinfacht so geschrieben werden: 

read(wl,w2,w3,...,wn); 

Bei »WRITEO« wird dies gleichermaßen gehandhabt. Das 
Schreiben auf ein Textfile kann durch 

WRITE(brief,wl,w2,w3,...,wn); 
geschehen. Auch hier ist das Textfile »brief« wieder ein Bei¬ 
spiel. Bei der Ausgabe auf dem Bildschirm darf, analog zu 
»READQ«, der Filename »output« auch weggelassen werden. 

WRITE(output,wl,w2,w3,...,wn); 
ist demnach äquivalent zu der bekannten Anweisung 

WRITE(wl,w2,w3,...,wn); 

Auch die Standardfunktionen »EOFQ« und »EOLNQ« ver¬ 
halten sich nach diesen Regeln: 

EOF(input) ist äquivalent zu EOF 

EOLN(input) ist äquivalent zu EOLN 

So können sämtliche »PUT«- und »GET«-Anweisungen 
durch »WRITE« und »READ« ersetzt werden. Für ein File »f« 
gilt also: 

READ(f,x) ist gleich den Anweisungen x := f'; 

GET(f); 

WRITE(f,x) ist gleich den Anweisungen f~ := x; 

PUT(f); 

Jetzt wäre es schön, wenn »READQ« und »WRITEQ« auf 
Files aller Datentypen angewandt werden könnten. Dem ist 


auch so. Die Prozeduren »READQ« und »WRITEQ« sind so fle¬ 
xibel, daß sie auch Files anderer Typen zulassen. Diese 
Typen können insbesondere auch strukturiert sein, wie zum 
Beispiel Arrays und Records. Die Bestimmung, auf welchem 
Datenträger ein File behandelt werden soll, ist von Implemen¬ 
tation zu Implementation unterschiedlich. Informationen dazu 
sind dem jeweilgen Handbuch zu entnehmen. Kommen wir 
nun zu den Zeigerstrukturen. 

Zeiger als Variable 


Mit »Pointern« wird eine vollkommen neue Art von Variablen 
eingeführt. Sie sind nicht wie andere Typen an die Block¬ 
struktur des Programmes gebunden, sondern können dyna¬ 
misch erzeugt und wieder desaktiviert werden. »Pointer« ist 
der englische Ausdruck für Zeiger, womit die Bedeutung 
schon halbwegs klar wird. Diese Zeiger weisen auf eine Stelle 
hin, an der sich ein bestimmter Wert befindet. Der Pointer ist 
dabei selbst wieder ein Wert, man muß ihn aber von dem 
Wert, auf den er zeigt, streng unterscheiden. Ein Zeiger hat 
in Pascal auch einen bestimmten Bezugstyp. Dieser gibt an, 
auf welche Art von Werten er zeigen darf. Ein Zeigertyp wird 
durch den nach oben gerichteten Pfeil und einen beliebigen 
Datentypen definiert: 

"(Typ) 

So ist die Vereinbarung 
TYPE zeigertyp = char; 

zeiger = “zeigertyp; 

eine Definition, die den Typ »zeiger« als Zeigertyp des 
Bezugstyps char bestimmt. Eine Variable, die den Typ »zei¬ 
ger« erhält, wie zum Beispiel 
VAR z: zeiger; 

nennt man »Zeigervariable«. Eine Variable dieses Typs kann 
nun «Io mögliche Werte Zeiger aufnehmen, die nur auf Werte 
des Typs char zeigen dürfen. Jeder Zeiger kann auch den 
Wert des »leeren« Zeigers haben, das heißt einem Zeiger, der 
auf keinen Wert zeigt. Er hat dann nicht den Wert Null, son¬ 
dern den speziellen Zeigerwert »NIL« (deutsch: nichts). Man 
kann sich einen Zeiger im Computer als einen Wert vorstel¬ 
len, der eine bestimmte Adresse im Speicher darstellt. An 
dieser Adresse steht der Wert, auf den er zeigen soll. Haben 
wir eine Zeigervariable wie »z« definiert, so ist dies noch 
keine Variable des Bezugstyps, in unserem Fall des Typs 
char. »z« hat auch noch keinen Wert, der auf eine Speicher¬ 
zelle zeigt, nicht einmal den Wert »NIL«. Er muß also erst, wie 
andere Variablen auch, mit einem Wert belegt werden. Daher 
muß zuerst Speicherplatz für einen Wert bereitgestellt wer¬ 
den, auf den er dann zeigen kann. Dies kann durch die Stan¬ 
dardprozedur »NEWQ« geschehen: 

NEW( (Zeigervariable) ); 

Durch Angabe des Namens der Zeigervariablen wird mit 
»NEWQ« ein Speicherplatz reserviert, der es erlaubt, einen 
Wert des Bezugstyps aufzunehmen. In unserem Beispiel 
wird mit 
NEW(z); 

der Speicherplatz für einen Wert des Typs char eingerichtet. 
Er kann genau ein Druckzeichen aufnehmen. Der Zeiger »z« 
erhält nun einen Wert, nämlich den Zeigerwert auf diese Spei¬ 
cherstelle. Der Speicherplatz selbst hat dabei keinen eige¬ 
nen Namen, sondern kann nur über den Zeiger »z« erreicht 
werden. Der Wert des Speicherplatzes ist durch den Zeiger¬ 
namen, gefolgt von einem Pfeil (»“«), ansprechbar. 
z~ 

Man nennt diese Angabe auch »Bezugsvariable«, da durch 
sie Bezug auf den reservierten Speicherplatz genommen 
werden kann. Damit kann man den Wert der Speicherstelle 
auslesen oder beschreiben. So ist die Anweisung 
z" : = ' a 1 ; 

korrekt. Dem Zeigernamen selbst darf aber kein Wert des 
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Bezugstyps zugewiesen werden (er steht ja nicht für eine 
Variable dieses Typs), 
z := 'z'; 

ist somit nicht zulässig. Die Zuweisung von 
z" : = ' a ' 

ist in Bild 16 schematisch dargestellt worden. 

Eine erneute »NEW«-Anweisung mit dem selben Zeiger 
erzeugt einen weiteren Speicherplatz, der einen Wert des 
Bezugstyps aufnehmen kann. Der alte Wert wird dabei nicht 
gelöscht, kann aber nicht mehr angesprochen werden, da 
der Zeiger jetzt auf die neue Speicherstelle weist. Der alte 
Wert kann zum Beispiel ansprechbar bleiben, wenn man 
zuvor einem anderen Zeiger den Zeigerwert überträgt. So 
läßt die zusätzliche Vereinbarung 
VAR hilfe: zeiger; 
folgende Zuweisung zu: 
hilfe := z; 

Damit zeigt nun auch »hilfe« auf den Wert, auf den auch »z« 
weist. Durch erneutes Anwenden von »NEW(z)« wird ein wei¬ 
terer Speicherplatz reserviert, auf den »z« jetzt zeigt. Der 
ursprünglich Wert von »z« geht aber dadurch nicht verloren, 
da durch »hilfe« der alte Zeigerwert festgehalten wurde. Um 
einen Wert endgültig zu löschen, muß die Standardprozedur 
»DISPOSEO« benutzt werden. Sie gibt den reservierten Spei¬ 
cherplatz wieder frei. Durch 
DISPOSE(z); 

würde unser neu geschaffener Speicherplatz, auf den »z« 
zeigt, wieder desaktiviert werden. Der darin gespeicherte 
Wert geht dadurch ebenfalls verloren. Allgemein kann man 
sagen, daß eine Bezugsvariable, die durch »NEW()« erzeugt 
wurde, solange erhalten bleibt, bis sie durch »DISPOSEO« 
oder das Programmende wieder außer Kraft gesetzt wird. Die 
Frage stellt sich nun, was man mit solchen Zeigern und den 


sogenannten dynamischen Bezugsvariablen anfangen kann. 


Zeiger auf Records 


Durch Überlegung dürften Sie vielleicht schon auf die Idee 
gekommen sein, daß durch mehrmaliges Ausführen von 
»NEW()« eine in gewisser Weise zusammenhängende Struk¬ 
tur von Werten erzeugt werden könnte. Dies ist auch möglich, 
wenn wir als Bezugstyp einen der strukturierten nehmen. 
Damit diese Verkettungen außer Zeigern auch andere Infor¬ 
mationen aufnehmen können, ist die Datenstruktur von 
Records geeignet. Wir wählen einen Record, der aus zwei 
Feldkomponenten besteht. Ein Feld nimmt die Informationen 
auf, die verkettet werden sollen, das andere ist ein Zeigertyp, 
der als Bezugstyp gerade diesen eben besprochenen 
Record hat. In Pascal-Formulierungen sieht dies so aus: 

TYPE typ = RECORD 

data: integer; 
naechster: “typ 
END; 

Die Feldkomponente des Recordtyps »typ«, die Daten auf¬ 
nehmen soll, heißt »data«, die Zeigerkomponente hat den 
Namen »naechster« und ist wiederum vom Zeigertyp »typ«. 
Man sieht, daß auch in der Typendefinition Rekursivität auf¬ 



treten kann. Das Besondere ist, daß hierbei eine Typendefini¬ 
tion schon verwendet werden darf, noch bevor sie komplett 
definiert wurde. Wir erinnern uns, daß alle Namen, auch 
Typennamen, bisher nur verwendet werden konnten, wenn 
sie schon zuvor definiert wurden. Ist die Typendefinition 
jedoch rekursiv wie in unserem Fall, muß diese Reihenfolge 
nicht eingehalten werden. Die Voraussetzung dafür ist aber, 
daß der Aufruf des Typennamens in seiner eigenen Typende¬ 
finition auftritt. Ansonsten ist dies nicht gestattet. Doch nun 
zurück zu unserem Problem. Nachdem »typ« vereinbart 
wurde, kann eine Variable als Zeiger dieses Typs deklariert 
werden: 

VAR z: "typ; 

Die Variable »z« ist nun eine Zeigervariable. Die Anweisung 

NEW(z); 

ist also korrekt. Durch »NEW(z)« wird Speicherplatz geschaf¬ 
fen, der die Feldkomponenten von »typ« aufnehmen kann. 
Die beiden Komponenten können nun durch die Bezugsva¬ 
riable »z"« des Zeigers »z« aufgerufen werden. So gibt es die 
Komponente »z".data«, die die Information aufnehmen soll, 
und die Komponente »z".naechster«, die wiederum ein Zei¬ 
ger ist, nämlich vom Typ »"typ«. Damit kann »z".naechster« 
wieder für »NEWQ« verwendet werden. Rufen wir also 
»NEW()« nochmals auf: 

NEW(z“.naechster); 

»z'.naechster« zeigt nun als Komponente des zuerst 
erstellten Records auf das neu geschaffene Record. Eine 
neue Bezugsvariable mit dem Namen »z“.naechster"«ist ent¬ 
standen. Sie hat als Komponenten wieder »data« und »naech¬ 
ster«. Das Record-Feld »naechster« ist aber wiederum ein 
Zeiger des Typs »typ«. So ist also 

z" .naechster" .naechster 

ein weiterer Zeiger. Analog dazu könnte man jetzt mit diesem 
Zeiger v/ ia der die Prozedur »NEW()< aufrufen, um einen 
neuen Zeiger zu schaffen, der einen nächsten Zeiger erzeu¬ 
gen könnte. Das Ergebnis ist also eine Kette von Daten, wel¬ 
che in den jeweiligen Komponenten »data« stehen. Sie hän¬ 
gen durch die sich selbst erzeugenden Zeiger zusammen, 
indem jeder vorhergehende Zeiger auf den nächsten Record 
zeigt. Der Nachteil bei dieser Methode ist aber, daß man 
durch die Rekursion immer längere und neue Komponenten¬ 
namen erhält. Somit muß auch die »NEW«-Anweisung für 
jeden Zeiger neu geschrieben werden. Diese Art der Verket¬ 
tung ist also nicht gerade praktisch. Es gibt jedoch eine 
andere Methode, um unser Problem in den Griff zu bekom¬ 
men. Die Lösung wurde bereits zu Beginn des Abschnitts 
über Zeiger teilweise dargelegt. Das Geheimnis ist das 
»Umhängen« von Zeigern. Listing 18 stellt eine Verkettungs¬ 
methode durch Umhängen dar. Es wurden dabei die gleichen 


PROGRAM liste; 

TYPE typ . RECORD 

data: integer; 
naechster: 'typ; 
END; 


VAR z,h: ‘typ; 

BEGIN 
h := NIL; 

WHILE NOT eof DO 
BEGIN 
NEW(z); 

READLN(z‘.data); 

(» Umhaengen *) 
z~ .naechster := h; 
h := z; 

END; 

END. 


Listing 18. Verkettete Listen 
durch Umhängen von Zeigern 
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Variablen- und Typnamen wie im obigen Beispiel verwendet. 
Es wird lediglich ein weiterer Zeiger »h« des gleichen Typs 
wie »z« benötigt. Er ist zusätzlich deklariert worden. Zu 
Beginn des Programms bekommt der Zeiger »h« den Wert 
»NIL« (leerer Zeiger), da noch kein Element in der Liste vor¬ 
handen ist. Die Schleife beginnt. Mit 
NEW(z); 

wird Speicherplatz für die Bezugsvariable »z"« geschaffen, 
»z« zeigt nun auf diese. Danach wird die Information in die 
Datenkomponente »z'.data« des Records gelesen. Nun 
geschieht das geheimnisvolle Umhängen. Mit 
z~ .naechster := h; 

wird der Zeigerwert von »h«, der am Anfang noch »NIL« ist, der 
Zeigerkomponente, die durch *NEW()« entstanden ist, zuge¬ 
wiesen. Danach wird 
h := z; 

ausgeführt, was bedeutet, daß der Zeigerwert des Zeigers 
»h« den Wert von »z« bekommt, »h« zeigt somit, wie im 
Moment noch »z«, auf das erste Element unserer Liste. Las¬ 
sen wir die Schleife nun ein zweites Mal durchlaufen. Durch 
erneutes Aufrufen von »NEW(z)« wird ein neuer Speicher¬ 
platz reserviert, auf den »z« jetzt zeigt. Wir erinnern uns, daß 
der Zeigerwert von »z« durch das Umhängen nicht verloren¬ 
ging! Er steht jetzt in »h«. Die Feldkomponente »z'.data«, die 
jetzt eingelesen wird, hat mit der vorherigen nichts zu tun, da 
sich der Name durch »NEW()« auf eine andere Speicherstelle 
bezieht. Ein erneutes Umhängen beginnt. Auch »z'.naech- 
ster« wird an der neu geschaffenen Stelle gespeichert und ist 
somit ein neuer Zeiger. Er nimmt den Wert von »h«, der ja noch 
auf das erste Element zeigt, »z".naechster« weist also auf ihm 
vorangehende Elemente der Liste, »h« nimmt nun den Wert 
des Zeigers »z« an, womit er auf das zweite Element zeigt. 
Analog dazu verlaufen auch die weiteren Schleifendurch¬ 
gänge, die eine zusammenhängende Kette an Integer-Zahlen 
aufbauen. Die Zeiger der jeweiligen Elemente zeigen dabei 
immer auf das vorhergehende Element. Hat man eine Kette 
eingegeben, kann man diese zum Beispiel wieder auslesen. 
Wenn man dies der Reihe nach tut, muß man aber bedenken, 
daß bei unserer Verkettungsmethode das zuletzt eingege¬ 
bene Element an oberster Stelle liegt und als erstes wieder 
ausgelesen werden muß. Diese Anordnung ist der des Stack¬ 
registers im Computer sehr ähnlich. Das behandelte Beispiel 
war natürlich sehr einfacher Art. Doch insbesondere bei kom¬ 
plizierteren Datentypen, wie zum Beispiel mehrmals 
geschachtelten Records, können solch verkettete Listen 
sehr praktisch sein. Dies dürfte aber eher zu den fortgeschrit¬ 
tenen Programmiertechniken gehören, die im Rahmen die¬ 
ses Kurses aus Platzgründen nicht erklärt werden können. 
Sie dürften für Pascal-Neulinge auch zu komplex sein. Kom¬ 
men wir lieber zum letzten Abschnitt unseres Streifzuges 
durch die Welt des strukturierten Programmierens. Er ist den 
Standardfunktionen und -Prozeduren gewidmet, auf die noch 
kein Bezug genommen wurde. Dies sind im besonderen die 
Erweiterungen des UCSD-Pascals. 

Erweiterter Standard 


UCSD-Pascal hält sich weitestgehend an den Pascal-Stan¬ 
dard, den N. Wirth geschaffen hatte. Doch wie am Anfang des 
Kurses schon gesagt wurde, hat der UCSD-Standard einige 
Erweiterungen, die die Textverarbeitung und die Program¬ 
mierung von Grafik erleichtern sollen. Die Erweiterungen 
bestehen aus neuen Funktionen und Prozeduren, die stan¬ 
dardisiert, das heißt in allen UCSD-Pascal-Implementationen 
bereits vordefiniert sind. 

Die Funktionen für die Stringverarbeitung sind bei der 
Besprechung des Datentyps »string« bereits erwähnt wor¬ 
den. Eine Sammlung davon ist in Bild 8 zu sehen. Beginnen 


wir mit der Funktion »CONCAT«, die beliebig viele Strings zu 
einem einzigen zusammenfügt. Sie hat die Syntax: 
CONCAT(stringl,string2,string3,■..,stringn) 

So liefert beispielsweise die »CONCAT«-Anweisung 
WRITELN(CONCAT('Dies ist ','eln 
zusammengesetzter 1 ,'Satz. 1 )); 
die Ausgabe: 

'Dies ist ein zusammengesetzter Satz.' 

Im Gegensatz dazu kann mit »COPY« ein Teilstring aus 
einem anderen String kopiert werden. »COPY« ist folgender¬ 
maßen anzuwenden: 

COPY(string,anfang,länge) 

Die Werte »anfang« und »länge« müssen vom Typ integer 
sein und beinhalten die Anfangspositon und die Zeichen¬ 
länge des Teiles, der vervielfältigt werden soll. Beispiele hier¬ 
für sind: 

WRITELN(COPY('Blaise Pascal',1,6)); ergibt 
’Blaise' 

WRITELN(COPY('Blaise Pascal',4,7)); ergibt 
'ise Pas' 

Man darf jedoch nicht mehr Zeichen kopieren, als ab der 
Anfangsposition bis zum Ende vorhanden sind. 

WRITELN(COPY('Blaise Pascal',8,8)); 
verursacht eine Fehlermeldung, da ab Zeichenposition 8 nur 
noch 6 Zeichen stehen. POS() ist eine Testfunktion, die einen 
Wert des Typs integer liefert. Sie prüft, ob ein Musterstring in 
einem Quellstring enthalten ist. Ist das der Fall, so ist der Wert 
der Funktion die Zeichenposition, ab der das Muster mit dem 
Quellstring identisch ist. Ansonsten nimmt sie den Wert Null 
an. Einige Beispiele sollen dies verdeutlichen: 

P0S('und',’hund') ergibt den Wert 2 

POS('spiel','kartenspiel') ergibt den Wert 7 
POS('butter','margarine') ergibt den Wert 0 

Füi d.:s Einfügen und Löschen von Strings in einen ande¬ 
ren String stellt UCSD-Pascal die Prozeduren »INSERT« und 
»DELETE« zur Verfügung. Die Syntax von INSERT lautet: 
INSERT(stringl,string2,anfang) 

Damit wird Stringl in den String2 ab der Position »anfang« 
eingefügt. Auch hier ein Beispiel: 
wort := 'kein glueck'; 

INSERT('bisschen ',wort,6); 

WRITELN(wort); 
ergibt den Ausdruck: 
kein bisschen glueck 

Ebenso kann man Zeichen eines Strings löschen: 
DELETE(string,anfang,anzahl) 

Hier werden ab der Position »anfang« die Anzahl von 
»anzahl«-Zeichen aus dem String »string« gelöscht. Ein Bei¬ 
spiel: 

wort := 'naturreligion'; 

DELETE(wort,4,7); 

WRITELN(wort); 


PROGRAM AUFSPALTENi 
VAR ZEILE:STRING; 

POSITION: INTEGER; 

BEGIN 

WRITELN('TIPPEN SIE EINE TEXTZEILE EIN'); 
READLN(Zeile); 

POSITION:-P0S(' '.ZEILE); 

WHILE POSITION < > 0 DO 
BEGIN 

WRITELN(COPX(ZEILE,1,P0SITI0N-1)); 
DELETE(ZEILE,1,POSITION); 

POSITION:=POS(' '.ZEILE) 

END 

WRITELN(ZEILE) 

END. 

Listing 19. Stringbehandlung 


SONDERHEFT 12 


29 









PROGRAMMIERSPRACHEN 


C64/C128 


Das Ergebnis ist: 
nation 

Wie bei »COPY« ist es natürlich nicht möglich, mehr Zei¬ 
chen zu löschen, als der String ab der angegebenen Anfangs¬ 
position hat. Dies hätte eine Fehlermeldung zur Folge. Um die 
Arbeit mit diesen Funktionsprozeduren zu verdeutlichen, ist 
in Listing 19 ein Programm abgedruckt, das »POS« und 
»DELETE« verwendet. Es spaltet einen eingegebenen Satz 
in die einzelnen Worte auf. Zu guter Letzt soll hier noch eine 
Pascal-Konstruktion erwähnt werden, die von Pascal-Pro¬ 
grammierern, die etwas auf sich halten, möglichst vermieden 
werden. Aus diesem Grund wird sie auch am Schluß dieses 
Kurses behandelt. Es ist die aus Basic bekannte unbedingte 
Sprunganweisung oder »GOTO«-Anweisung, die in Pascal 
allen Regeln trotzt. Die Vorteile des strukturierten Program- 
mierens können damit zunichte gemacht werden. Sprünge in 
Pascal können nur auf vordefinierte Marken geschehen, da 
ja keine Zeilennummern zur Verfügung stehen. Marken, die 
im Programm Vorkommen, müssen im Deklarationsteil ange¬ 
geben werden. Dies geschieht durch das Schlüsselwort 
»LABEL«: 

LABEL (Marken); 

Marken dürfen in Pascal nur aus natürlichen Zahlen beste¬ 
hen, wie zum Beispiel 
111,5,0815 

Falsche Marken wären dagegen 
lab3,-100,marke 

Im Anweisungsteil des Programmes können dann diese 
Marken auftauchen. Wird eine Marke angesprungen, so wird 
die Anweisung, die (mit einem Doppelpunkt getrennt) hinter 
der Marke steht, ausgeführt. Eine Marke darf nur eine Anwei¬ 
sung markieren, kann aber beliebig oft angesprungen wer¬ 


den. Marken im Anweisungsteil sind zum Beispiel 

10: x := sqr(x); 5: WRITE('Label 5'); 

Sie können mit dem Statement »GOTO« angesprungen 
werden. 

GOTO 10; 

bewirkt etwa einen Sprung auf die Marke 10. Der Gültigkeits¬ 
bereich von Marken ist analog zum Gültigkeitsbereich von 
Namen. Eine Marke gilt in dem Block, in dem sie deklariert 
wurde, auch in untergeordneten Blöcken, sofern sie nicht 
dort bereits wieder lokal definiert wurde. Man kann also mit 
»GOTO« in einen übergeordneten Block springen, nicht aber 
in einen untergeordneten, da lokale Marken dem übergeord¬ 
neten Block nicht bekannt sind. Man muß beachten, daß 
diese Marken nichts mit den Labels in einer »CASE«- 
Anweisung zu tun haben. Marken und »GOTO«-Sprünge ver¬ 
schlechtern die Übersichtlichkeit eines Programmes erheb¬ 
lich und können mit den in Pascal möglichen Strukturanwei¬ 
sungen auch ohne weiteres vermieden werden. Man sollte 
sich erst gar nicht angewöhnen, mit Marken zu programmie¬ 
ren. 

Damit hätten wir das letzte Kapitel unseres Pascal-Kurses 
abgeschlossen. Es werden sicherlich Fragen offenbleiben, 
die hier nicht beantwortet werden konnten. Dies gilt insbe¬ 
sondere für die Kombination und die rekursive Anwendung 
von Strukturen wie Arrays, Records und vor allem Zeiger. Es 
sollten auch nur die Grundlagen für die Programmierung in 
Pascal gegeben werden. Das Verständnis für komplexe 
Pascal-Strukturen wird sich im Laufe der Zeit selbst einstel¬ 
len, wenn man sich nur ernsthaft genug mit dieser Program¬ 
miersprache befaßt. Sie werden feststellen, daß Pascal eine 
anwenderfreundliche Sprache ist, deren Komfort Sie bald 
nicht mehr missen wollen. (Michael Thomas/rf/pf) 
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Nicht nur für Einsteiger 


Mit Pascal 64 lohnt sich die Anschaffung der Pro¬ 
grammiersprache Pascal auch für den Anfänger. 
Der Compiler bietet einen großen Sprachumfang 
und eine komfortable Programmierumgebung. 
Pascal 64 ist auf Diskette mit Buch erhältlich, das 
neben dem Compiler auch die Sprache beschreibt. 

P ascal findet in den Kreisen der C64-Besitzer immer 
mehr Anhänger. Für gute Pascal-Compiler mußte aller¬ 
dings bisher ein stolzer Preis bezahlt werden. Trotzdem 
steht meist nur ein eingeschränkter Befehlssatz zur Verfü¬ 
gung. Da es auch in Pascal bereits verschiedene Dialekte 
gibt, ist es für den Einsteiger meist sehr schwierig, sich in 
diese strukturierte Programmiersprache einzuarbeiten. Mit 
»Pascal 64« wird ein preisgünstiger Pascal-Compiler ange- 
boten, der mit einem Buch, das sich am Anfänger orientiert, 
erhältlich ist. Wer sich schon immer mit Pascal befassen 
wollte, aber noch nicht das richtige Produkt gefunden hat, 
kann hier mit einer genauen Beschreibung diese »Sprache 
der tausend Möglichkeiten« kennenlernen. 

Große Leistung - kleiner Preis --r o 


Eines der wichtigsten Merkmale eines Compilers ist der 
implementierte Sprachumfang. Daß dieser von Produkt zu 
Produkt verschieden ist, haben Sie vielleicht beim Vergleich 
verschiedener Pascal-Compiler bereits festgestellt. Von der 
Menge der Funktionen und Prozeduren her, die Pascal 64 
versteht, kann sich der Compiler durchaus sehen lassen. 
Zwar wird der Pascal-Kenner die eine oder andere Funktion 
vermissen, für den Einsteiger reicht der Sprachschatz voll 
aus. Zu viele Befehle wirken am Anfang eher verwirrend. Nun 
aber zu den einzelnen Fähigkeiten von Pascal 64. Sehr posi¬ 
tiv schlägt der fehlende Kopierschutz zu Buche. Im Hand¬ 
buch wird sogar auf den ersten Seiten eine genaue Erklärung 
zum Erstellen einer Arbeitsdiskette gegeben. Dabei wird der 
Compiler auf die zweite Diskette kopiert. Dafür wird kein spe¬ 
zielles Kopierprogramm benötigt, sondern nur die Basic- 
Befehle »LOAD« und »SAVE«. Die Lieferdiskette beinhaltet 
zusätzlich noch einige Beispielprogramme, die zum Teil im 
Buch besprochen werden. Diese Beispiele behandeln vor 
allem Compiler-Eigenheiten. Doch zunächst zur Bedienung 
des Pascal-Compilers. Wollen Sie ein Quellprogramm editie¬ 
ren, kontrolliert das Programm als erstes, ob es nicht schon 
auf Diskette vorhanden ist, ansonsten wird eine neue Datei 
angelegt. 

Editor für Profis 


Der Editor, der sich dann präsentiert, überrascht durch seine 
Vielzahl an verschiedenen Möglichkeiten (Bild 1). Der ver¬ 
sierte Turbo-Pascal-Programmierer erinnert sich hier an die 
Fähigkeiten dieses Standard-Compilers. So gibt es Funktio¬ 
nen zum Verschieben, Kopieren oder Löschen von vorher 
markierten Blöcken. Daß die einzelne Zeile über 80 Zeichen 


gehen kann, ist schon fast selbstverständlich. Dies wird über 
horizontales Bildschirm-Scrolling erreicht. Der Editor arbeitet 
mit einer Kommandozeile, die als »TOP« bezeichnet wird. Dort 
werden alle Anweisungen eingegeben. Nachdem diese mit 
<SHIFT> und < RETURN > abgeschlossen sind, wird die 
entsprechende Aktion durchgeführt. Um den Komfort zu ver¬ 
vollständigen, sind im Editor Funktionen zum Suchen und 
Ersetzen von Strings eingebaut. So können versehentlich 
und konsequent falsch eingetippte Variablennamen sehr 
schnell gefunden und durch die richtige Definition ersetzt 
werden. Erfahrene Programmierer wissen diese Funktion zu 
schätzen. 

Über die Funktionstasten kann das Textfenster, in dem der 
Quellcode erfaßt wird, beliebig nach oben, unten, links und 
rechts gescrollt werden. Zwei Funktionstasten dienen zur 
Fortsetzung eines mit Erfolg abgebrochenen FIND- oder 
CHANGE-Befehls. 

Der Quelltext wird in einem Fenster erfaßt. Außerhalb die¬ 
ses Textfensters stehen am Rand des Bildschirms die jeweili¬ 
gen Zeilennummern. Diese werden jedoch nicht etwa als 
Sprungziele verwendet, sondern dienen eigentlich nur zur 
Dokumentation und helfen dem Programmierer dabei, Fehler, 
die bei der Compilation auftauchen, schneller zu finden. Beim 
Editier i eines neuen Textes erscheinen auf dem Bildschirm 
die Zeilen »TOP« (Textanfang) und »BOTTOM« (Textende). Um 
Pascal-Text zu erfassen, müssen als erstes ein paar Zeilen 


Editorkommandos 

RESET 

Statuszeilen ausblenden 

PROFILE 

Alle Statuszeilen anzeigen 

MSKS 

Zeile mit Einfügemaske anzeigen 

BNDS 

Zeile mit Textgrenzen anzeigen 

TAB 

Tabulatorzeile anzeigen 

COLUMNS 

Spaltenkennzeichen anzeigen 

END 

Text speichern und zurück zum Menü 

CANCEL 

Zurück zum Menü ohne speichern 

SAVE 

Altes Textfile löschen, neues speichern 

TEXT 

Text-Modus einschalten 

REPEAT 

Alle Tasten erhalten Wlederhol-Funktion 

LOCATE n 

Zeile n im Text ansprlngen 

FIND 

Zeichenfolge suchen 

CHANGE 

Zeichenfolge suchen und ersetzen 

INPUT 

sequentielle Datei einiesen 

OUTPUT 

Text als sequentielle Datei speichern 

COPY 

Kopieren von Textteilen auf Diskette 

Zeilenkommandos: 

l(nsert) n 

Es werden n Zeilen eingefügt 

D(elete) 

Zeile wird gelöscht 

DD 

Block löschen 

R(epeat) n 

Zeile wird n-mal wiederholt 

M(ove) 

Zeile wird neu positioniert 

MM 

Block zum Verschieben markieren 

C(opy) 

Zeile wird kopiert 

CC 

Block zum Kopieren markieren 

A(fter) 

Block wird hinter die Zeile gestellt 

B(efore) 

Block wird vor die Zeile gestellt 

O(verlay) 

Zeile wird überschrieben 

00 

Block wird überschrieben 


Bild 1. Die vielseitigen Editor-Kommandos von Pascal 64 
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eingefügt werden. Dann aber erweist sich der Editor von Pas¬ 
cal 64 als komfortabler »Full-Screen«-Editor, wie man es vom 
Basic des C 64 gewohnt ist. Der Editor kann auf zwei Arten 
verlassen werden. Einmal wird der Text vor dem Verlassen 
des Editors auf Diskette gespeichert, oder der Ausstieg 
erfolgt ohne Sicherung. Es ist jedoch ratsam, den Text immer 
auf Diskette zu sichern, um den Verlust von Daten oder etwai¬ 
gen Änderungen zu vermeiden. 

Compiler mit Extras 


Nach dem Verlassen des Editors kehrt das Pascal-System 
wieder zum Hauptmenü zurück. Wird der im Speicher befind¬ 
liche Quelltext nun compiliert, erfolgen zunächst einige 
Abfragen, mit denen die Grundeinstellung des Compilers ver¬ 
ändert werden kann. Als erstes fragt der Compiler nach einer 
Syntax-Überprüfung. Nach dem Beantworten der Frage mit 
»ja« werden im Listing alle fehlerhaften Zeilen markiert, 
jedoch wird kein Source-Code erzeugt. Weiterhin kann die 
Startadresse des umgewandelten Programms verändert wer¬ 
den. Allerdings sollten Sie hier die Einstellung des Compilers 
akzeptieren, da ansonsten Eingriffein das System notwendig 
werden. Den Compiler-Durchlauf kann man jederzeit durch 
das Drücken der »»«-Taste abbrechen. Natürlich wird dann 
kein ablauffähiger Code im Speicher erzeugt, so daß nach 
vielleicht anstehenden Änderungen wiederum neu compiliert 
werden muß. Das während des Umwandeins erzeugte Listing 
kann per Angabe beim Compiler-Aufruf auf den Drucker 
umgelenkt werden. Ohne ein ausgedrucktes Listing ist eine 
sinnvolle Problemlösung bei der Komplexität, die ein Pascal- 
Programm erreichen kann, kaum mehr möglich. 

Wurde das Compilieren erfolgreich beendet, steht im Spei¬ 
cher des C 64 ein ausführbares Object-Programm, das aller¬ 
dings nicht im Pascal-System gestartet werden kann. Um das 
Programm ablaufen zu lassen, müssen Sie das System ver¬ 
lassen. Dann können Sie das Programm ganz normal mit RUN 
starten. Durch die Eingabe des Befehls LIST können Sie die 
Basic-Zeile sehen, die vom Compiler erzeugt wird. Diese ent¬ 
hält lediglich einen SYS-Befehl, der auf die Speicherstelle 
zeigt, an der das umgewandelte Pascal-Programm beginnt. 
Sollten Sie beim Testen des Programms noch Fehler feststel¬ 
len, kann durch Eingabe eines »*« und < RETURN > in das 
Pascal-System zurückgekehrt und der Quellcode verbessert 
werden. Für die Korrektur von Programmfehlern muß also die 
Textdatei, die den Quellcode enthält, nicht immer extra nach- 
. geladen werden, sondern ist neben dem Object-Code stän¬ 
dig im Speicher des C 64 vorhanden. Dadurch wird die Feh¬ 
lersuche (Debugging) wesentlich erleichtert. 

Umfangreicher Sprachschatz 


Der Sprachumfang von Pascal 64 (Bild 2) umfaßt eine 
erstaunlich große Untermenge der Funktionen, die auch die 
für die größeren Systeme angebotenen Pascal-Compiler ent¬ 
halten. Alle wichtigen Befehle zur Behandlung von Dateien 
sind voll implementiert. Sehen wir uns aber zunächst die 
möglichen Variablentypen näher an. Am meisten überrascht 
hier, daß die Anweisung PACKED mit angegeben werden 
kann. Dadurch belegen Typen wie CHAR und BOOLEAN, 
sowie Aufzählungstypen mit weniger als 256 Elementen, nur 
noch ein Byte Speicherplatz. Wenn sich der Speicherplatz 
dem Ende entgegenneigt, empfiehlt es sich also, alle Typen 
dieser Art zu »packen«. Zu den bisherigen Leistungsmerkma¬ 
len kommt noch der Datentyp REAL hinzu, der Gleitkomma¬ 
zahlen aufnehmen kann, was bei einem Compiler dieser 
Preisklasse nicht unbedingt erwartet werden kann. Der 
RECORD-Typ bietet bei Pascal 64 beinahe alle Vorzüge, die 


Variablentypen: 

BOOLEAN 

INTEGER 



STRING 

CHAR 



REAL 

ARRAY 

TEXT 



vordefinierte Konstanten: 

TRUE 

MAXINT 

FALSE 



reservierte Worte: 

AND 

FILE 

NOT 

TO 

ARRAY 

FOR 

OF 

TYPE 

BEGIN 

FORWARD 

OR 

UNTIL 

OASE 

FUNCTION 

PACKED 

VAR 

CONST 

GOTO 

PROCEDURE 

WHILE 

DIV 

IF 

PROGRAM 

WITH 

DO 

IN 

RECORD 


DOWNTO 

LABEL 

REPEAT 


ELSE 

MOD 

SET 


END 

NIL 

THEN 


Standardprozeduren für dynamische Objekte: 

NEW 

RELEASE 

MARK 



Standardprozeduren zur Ein-fAusgabe: 

CLOSE 

EOF 

STATUS 


EOLN 

PUT 

GET 


READLN 

WRITE 

READ 

WRITELN 


Arithmetische Standardprozeduren: 

ORD 

CHR 

SUCC 


PRED 

ODD 

ABS 


INT 

TAN 

POWER 


Sonst!;;“ Prozeduren: 

SYS 

POKE 

PEEK 


ADDU 

HALT 




Bild 2. Der Sprachumfang von Pascal 64 


von Turbo-Pascal her bekannt sind. So läßt sich die 
WITH..DO-Anweisung ohne weiteres auf diesen strukturier¬ 
ten Datentyp anwenden. Für die Dateiverwaltung steht zum 
Verarbeiten von normalen ASCII-Dateien sogar der Dateityp 
TEXT zur Verfügung. Man vermißt allerdings die Prozedur 
SEEK zur Bearbeitung von relativen Dateien. Zum Glück exi¬ 
stiert aber eine andere Möglichkeit, um relative Dateien zu 
bearbeiten. Dazu wird in Pascal 64 eine dynamische Daten¬ 
struktur erzeugt. Der Record-Zeiger wird hier als echter 
Pascal-Pointer definiert, das heißt, der Variablen ist kein 
fester Wert zugewiesen, sondern sie zeigt auf den entspre¬ 
chenden Datensatz. Betrachten wir aber jetzt weiter den vor¬ 
handenen Sprachumfang. Für Schreib-/Lesezugriffe stehen 
zwei grundsätzlich verschiedene Möglichkeiten zur Verfü¬ 
gung. Sehen wir uns zunächst die dem Turbo-Pascal bekann¬ 
ten Funktionen zum Lesen und Schreiben von Dateien an. 
Diese lauten auch in Pascal 64 WRITELN und READLN. 
Dateien können auf zwei Arten geöffnet werden. Zum einen 
mit der OPEN-Anweisung, die einer Datei eine logische Num¬ 
mer zuordnet, zum anderen mit den Pascal-Standard- 
Prozeduren REWRITE und RESET. REWRITE wird zum 
Erstellen einer neuen Datei, RESET zum Zurückstellen der 
Datei auf den Anfang verwendet. Geschlossen werden 
Dateien wie üblich mit CLOSE. Zum Überprüfen der momen¬ 
tanen Schreib-/Leseoperation bietet Pascal 64 die Statusab¬ 
fragen EOF und STATUS an. STATUS wird hier wie die Basic- 
Variable ST (siehe C 64-Handbuch) angewendet. Um Textda¬ 
teien mit variabler Satzlänge lesen zu können, bietet Pascal 
64 die Prozeduren PUT und GET an. Diese holen aus einer 
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Datei Zeichen für Zeichen in den Speicher. Mit der Funktion 
EOLN kann auf ein eventuell erreichtes Satzendezeichen 
geprüft werden. Sie sehen, Pascal 64 bietet dem Program¬ 
mierer alle Möglichkeiten, die Dateiverwaltung seinen Wün¬ 
schen entsprechend zu steuern. 

Arithmetik eingebaut 


Für den versierten Mathematiker stellt Pascal 64 einige 
Grundfunktionen zur Verfügung, wie sie in jedem Pascal- 
System vorhanden sind. Die Berechnung des Absolutbetra¬ 
ges einer Zahl ist ebenso wie die des Tangens vorgesehen. 
Über die Anweisung POWER können beliebige Integer- oder 
Real-Zahlen potenziert werden. 

Wer selbst in Pascal noch Einfluß auf das Betriebssystem 
nehmen möchte, findet in Pascal 64 leistungsfähige Funktio¬ 
nen zur Manipulation. Mit dem SYS-Befehl werden wie 
gewohnt Maschinenprogramme aufgerufen. Dem in dieser 
Beziehung verwöhnten Basic-Programmierer bietet Pascal 
64 die Funktionen PEEK und POKE, die beide äquivalent zu 
den Basic-Befehlen arbeiten. 

Selbstverständlich »kennt« Pascal 64 auch alle Strukturan¬ 
weisungen des Standards. So fehlt weder die FOR..NEXT- 
Schleife noch die WHILE..DO-Struktur und auch die REPEAT- 
Anweisung ist vorhanden. Der Programmaufbau hält sich 
ebenfalls strikt an den Standard. Alle Prozeduren müssen vor 
der Stelle ihres Aufrufs im Programm definiert werden. Proze¬ 
duren und Funktionen kann man mehrere Parameter überge¬ 
ben, dadurch wird deren Austauschbarkeit erhöht. Leider 
kann Pascal 64 nur acht KByte Text auf einmal verwalten. 
Sollten Sie größere Programme schreiben, müßen diese in 
mehrer Module aufgeteilt und mit der INCLUDE-Anweisung 
beim compilieren in den Quellcode eingebunden werden. 

Damit wäre die Sprachbeschreibung von Pascal 64 abge¬ 
schlossen. Über das mitgelieferte Buch ist allerdings noch 
einiges zu sagen. 

für Einsteiger und Profis 


Pascal 64 wurde speziell für den Einsteiger entwickelt. Als 
besonders wertvoll erweist sich die Konfiguration Buch - Dis¬ 
kette, die dem Anwender die Möglichkeit gibt, praxisorientiert 
zu lernen. Somit kann das erworbene Wissen sofort in die Tat 
umgesetzt werden. Das Buch selbst gliedert sich in die drei 
Teile Pascal-Grundlagen, Tips & Tricks und die Compileranlei¬ 
tung. Im Grundlagenteil werden in einfacher Weise die Daten¬ 


typen und einfachen Funktionen von Pascal 64 erklärt. Je 
weiter man blättert, desto tiefer stößt man in die Materie vor. 
Der Pascal-Schüler wird schrittweise an die Programmierung 
herangeführt. Beginnend mit ersten kleinen Beispielpro¬ 
grammen lernt der Anwender immer komplexere Programme 
kennen und verstehen, so daß einer Nutzung der Sprache 
nichts mehr im Wege steht. Besonders schwerwiegende 
Probleme wurden vom Autor des Buches gut erkannt und 
anhand von ausführlich dokumentierten Programmbeispie¬ 
len gelöst. Dem Editor von Pascal 64 ist ein eigener Abschnitt 
gewidmet, der alle Funktionen genau beschreibt. 

In der Rubrik Tips & Tricks findet der Anwender und geübte 
Programmierer nützliche Pascal-Routinen, wie etwa einen 
Sortier-Algorithmus. Auch zum Editor werden wichtige Hin¬ 
weise aufgeführt. 

Pascal total 


Die Dokumentation des Pascal-Systems schließlich enthält 
noch einmal in zusammengefaßter Form einen Überblick 
über die vorhandenen Prozeduren und Funktionen. Am Ende 
der Einführung findet sich ein Programm, in dem der relative 
Dateizugriff demonstriert wird. Dieses ist, wie alle anderen 
Beispiele auch, bestens dokumentiert, so daß der Leser die 
Gedanken des Programmierers ohne weiteres nachvollzie¬ 
hen kann. Dieser Teil ist vor allem für den Profi gedacht und 
dient diesem als wertvolles Nachschlagewerk. Des weiteren 
ist hier die Beschreibung der möglichen Editor- und Compi¬ 
lerfehler untergebracht, die das Interpretieren von mögli¬ 
cherweise auftretenden Fehlermeldungen erleichtert. 
Schließlich findet sich noch eine Aufzählung aller reservier¬ 
ten Worte in Pascal 64. 

Mit Pascal 64 ist es gelungen, ein System anzubieten, das 
nicht hur leistungsfähig ist, sondern es vor allem dem Einstei¬ 
ger ermöglicht, sich schnell in Pascal einzuarbeiten. Vor 
allem der niedrige Preis und die ausführliche Anleitung in 
Buchform machen dieses Produkt für jeden C64-Besitzer 
interessant. Durch den fehlenden Kopierschutz hebt sich der 
Compiler positiv vom Großteil der C 64-Software ab. Da sich 
Pascal 64 größtenteils am Standard orientiert, fällt später 
ohne großes Umlernen der Umstieg auf andere Compiler, wie 
zum Beispiel Turbo-Pascal, leicht. Somit kann Pascal 64 
jedem C64-Anwender und Pascal-Einsteiger wärmstens 
empfohlen werden. (rf) 

Florian Mallhes, .Pascal mit dem C 64., Markt* Technik Verlag AG, ISBN 3-89090-222-7, Preis: 52 
Mark 
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Schneller, umfangreicher, 

komfortabler 


Seit CP/M auf Heimcomputern wie dem C128 zur 
Verfügung steht, hat der Pascal-Programmierer 
Zugriff auf den vielleicht leistungsfähigsten Com¬ 
piler der Pascal-Welt: Turbo Pascal. 

P ascal an sich bedeutete bei seiner Einführung schon 
eine Revolution bei den Programmiersprachen. Durch 
die volle Unterstützung der strukturierten Program¬ 
mierung entwickelte sich Pascal schnell zum Standard in 
Sachen PC-Software. Einigen Leuten genügte die Leistung 
der vorhandenen Compiler allerdings nicht ganz. So schufen 
sie Turbo Pascal. Dieses Software-Produkt besticht nicht nur 
durch Geschwindigkeit und komfortable Bedienung, sondern 
auch durch das ungewöhnlich hohe Niveau der Programmier¬ 
umgebung. Turbo Pascal besteht nicht nur aus einem reinen 
Compiler, sondern hat zusätzlich einen Editor mit eingebaut, 
der keine Wünsche offen läßt. Damit sind die Vorteile von 
Turbo Pascal allerdings noch längst nicht aufgezählt. Wie 
groß der Ideenreichtum der Entwickler war, erfahren Sie im 
weiteren. Hier wird nicht auf die Sprache Pascal eingegan¬ 
gen, sondern speziell auf die Zusatzfunktionen von Turbo 
Pascal. Näheres zur Programmierung in Pascal finden Sie im 
Pascal-Kurs in diesem Sonderheft. 

Editor für gehobene Ansprüche 


Voll an Wordstar orientiert sich der Editor von Turbo Pascal. 
Alle Kommandos dieses leistungsfähigen Textverarbeitungs¬ 
programms stehen auch unter Turbo zur Verfügung. Gegen¬ 
über Wordstar weist der Editor sogar noch einige Erweiterun¬ 
gen auf. So wurde er speziell für die Programmeingabe konzi¬ 
piert. Die Verwendung ist denkbar einfach. Haben Sie den 


Namen einer Arbeitsdatei definiert, drücken Sie einfach 
< E >. Das Menü verschwindet und der Editor wird aktiviert. 
Befindet sich die Arbeitsdatei auf der Diskette, wird sie gela¬ 
den und die erste Seite am Bildschirm angezeigt. Handelt es 
sich um eine neue Datei, ist der Bildschirm mit Ausnahme der 
Statuszeile am oberen Rand leer. Diese Zeile gibt Auskunft 
über Zeilen- und Spaltennummer, Schreibmodus, Tabulator 
und die momentan editierte Datei. Insgesamt kennt der Tur- 
bo-Editor 45 Befehle, mit denen man durch den Text blättert, 
Zeichenketten sucht und ersetzt und vieles mehr. Die Edi¬ 
torbefehle lassen sich in drei Kategorien einteilen: 

1. Cursor-Steuerbefehle 

2. Einfüge- und Löschbefehle 

3. Blockbefehle 

Alle Befehle werden über die Control-Taste aktiviert. Erwäh¬ 
nenswert ist die Vielfalt der Blockbefehle, sowie die Anwei¬ 
sungen zum Suchen und Ersetzen. Die Blockbefehle sind 
erweiterte Befehle, das heißt sie bestehen aus zwei Zeichen. 
Ein Textblock kann nur ein Zeichen, aber auch mehrere Sei¬ 
ten lang sein. Ist der Block markiert, kann er kopiert, bewegt, 
gelöscht oder in eine Datei geschrieben werden. Mit einem 
weiteren Befehl kann eine Datei als ein Block in einen Text 
eingefügt werden. Ein anderer dient dazu, einzelne Wörter 
als Block zu markieren. Mit dem Suchbefehl können Sie den 
Text in beliebiger Richtung nach einem maximal 30 Zeichen 
langen String durchsuchen. Der Such- und Ersetzbefehl 
sucht nach einer beliebigen Zeichenkette und ersetzt diese 
durch eine vorher genau definierte. Auch hier beträgt die 
maximale Länge wieder 30 Zeichen. Beim Editieren fällt noch 
ein anderer Punkt positiv auf. Sicher haben Sie einmal eines 
dieser wunderbar strukturierten Pascal-Listings gesehen, 
bei denen die Strukturierung durch Texteinrückungen noch 
verstärkt hervorgehoben wird. Turbo Pascal erledigt das 
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automatisch für Sie. Eine neue Zeile beginnt immer direkt 
unter dem ersten Zeichen der vorhergehenden. Durch 
Drücken der <TAB > -Taste rückt der Cursor an das Ende des 
ersten Wortes der vorstehenden Zeile vor. Sie sehen, ein 
Programmierer kann sich für die Eingabe seiner Programme 
nichts Besseres wünschen als diesen ausgereiften und sehr 
komfortablen Editor. Sie können ihn sogar für die Erstellung 
von Programmen für andere Compiler verwenden, da ein Text 
in reinem ASCII-Code gespeichert wird. Da bei den meisten 
CP/M-Compilern kein Editor enthalten ist, muß man, falls 
Wordstar oder eben Turbo Pascal nicht zur Verfügung steht, 
auf den ED zurückgreifen. Da bietet sich Turbo Pascal gera¬ 
dezu an. 

Das Turbo-Menü 


logged drive: LW 

Active directory: \NAME 



Work file: 
Main file: 




Edit 

Compile 

Run 

Save 

eXecute 

Dir 

Quit 

Compiler Options 

Text: 

0 bytes 



Free: 

62024 bytes 




Bild 1. Das Hauptmenü von Turbo Pascal 


compile -> 


Memory 

Com-file 

cHn-file 


Unterstrichen wird die Leistungsfähigkeit von Turbo Pascal 
durch die vielfältigen Menüpunkte (Bild 1). Diese Menü¬ 
punkte, zu denen auch der Editor zählt, werden mit dem 
Anfangsbuchstaben aufgerufen und können, jeder für sich, 
als eigenes Programm betrachtet werden. Als erstes sehen 
Sie die Angabe »Logged Drive«. Durch Angabe von »L« kön¬ 
nen Sie während einer »Sitzung« mit Turbo (so wollen wir 
Turbo Pascal ab jetzt nennen) das aktive Laufwerk ändern. 

Turbo fragt nach dem neuen Laufwerksnamen, den Sie dann 
ohne Doppelpunkt eingeben können. 

Der nächste Punkt nennt sich »Work File«. Die Arbeitsdatei 
(Work File) befindet sich immer im Speicher des Computers. 

Alle weiteren Befehle wie Edit, Compile und Run werden auf 
sie angewendet. Mit diesem Punkt können Sie eine neue 
Datei erstellen oder eine schon existierende in den Arbeits¬ 
speicher laden. Nach dem Eintippen von »W« werden Sie nach Turbo zurück. Sie sehen das an der Bereitschaftsan- 
nach dem Namen der Datei gefragt. Der einzugebende Name zeige <' :>). Durch Drücken der < LEER >-Taste wird das 
muß den Konventionen des Betriebssystems entsprechen, Hauptmenü wieder angezeigt. Damit diese Option funktio- 


Slarl address: AAAA (min WWWW) 

End address: BBBB (max ZZZZ) 

Find run-time error Quit 

Bild 2. Untermenü mit Optionen 

kommen wir zu einer Auswahl des Turbo-Systems, die dem 
Programmierer das Tor zum Betriebssystem öffnet: »eXe- 
cute«. Sie können damit beliebige, über CP/M lauffähige Pro¬ 
gramme aufrufen. Nach der Meldung »Program:« tippen Sie 
den gewünschten Namen ein. Sie können beispielsweise 
eine Textdatei mit Wordstar bearbeiten, mit PIP Programme 
kopieren oder mit SHOW den Disketten-Speicherplatz über¬ 
prüfen. Erst nach dem Programmende kehren Sie wieder 


also acht gültige Zeichen als Dateinamen und drei als Datei¬ 
kennzeichnung haben. Wird letztere weggelassen, wird 
automatisch der Typ ».PAS« angehängt. Noch eine weitere 
Datei kann in Turbo bearbeitet werden. Diese wird als »Main 
File« bezeichnet. Sie können nämlich mit der Steueranwei¬ 


niert, muß sich auf der Diskette die Datei »TURBO.OVR« befin¬ 
den. 

Die Auswahl »Dir« ist mit dem entsprechenden CP/M- 
Programm identisch und mit »Quit« kann Turbo verlassen wer¬ 
den. 


sung (diese wird später noch ausführlich besprochen) »(*$1 
DateinameTyp *)« aus einer Datei andere im Quellcode abge¬ 
legte Dateien beim Compiliervorgang dazuhängen. Das Pro¬ 
gramm, das die INCLUDE-Anweisung enthält, muß als Haupt¬ 
datei (Main File) definiert werden. Der Menüpunkt wird mit 
»M« aktiviert. Die Eingabekonventionen entsprechen denen 
der Arbeitsdatei. Mit zum wichtigsten gehört der Menüpunkt 
»Compile«. Mit »c« aktivieren Sie den Compiliervorgang. Ist 
keine Hauptdatei angegeben, wird die Workdatei bearbeitet. 
Wurde keine von beiden vorher benannt, wird wieder nach 
dem Namen gefragt. Wird während des Compilierens ein Feh¬ 
ler festgestellt, springt Turbo zurück in den Editor; dabei 
bleibt der Cursor an der Stelle stehen, an der der Fehler auf¬ 
trat. Diese Eigenschaft läßt fast vergessen, daß Turbo ein 
Compiler ist. Das compilierte Programm wird in der Regel im 
Speicher abgelegt. Wie ein ablauffähiges »COM«-File er¬ 
zeugt wird, erfahren Sie später. 

Zur Fehlersuche (Debugging) bietet Turbo die Auswahl 
»Run«. Wie üblich wird damit ein Programm gestartet. Befin¬ 
det sich kein Programm im Speicher, muß erst der Name ein¬ 
gegeben werden. Ein compiliertes Programm wird sofort aus¬ 
geführt, andernfalls durchläuft Turbo zuvor automatisch den 
Punkt »Compile«. Befindet sich das Programm, beispiels¬ 
weise durch einen Programmierfehler, in einer Endlos¬ 
schleife, kann es durch die bei CP/M übliche Tastenkombina¬ 
tion <CTRL+C> abgebrochen werden. Allerdings muß 
dazu wieder eine bestimmte Compiler-Option gesetzt wer¬ 
den. Mit dem Menüpunkt »Save« schließlich wird die Arbeits¬ 
datei mit dem Kürzel ».PAS« auf Diskette gespeichert. Nun 


Compiler mit Optionen 


Nach der Eingabe von »O« erscheint ein Untermenü (Bild 2) 
von Turbo, das je nach der angewählten Compiler-Option 
anders aussehen kann. Mit dem Text »compile« wird wie mit 
einem Zeiger auf die aktive Option gewiesen. In der Stan¬ 
dardeinstellung (Memory = Speicher) wird der compilierte 
Objektcode im Speicher abgelegt. Ist diese Einstellung nicht 
schon gesetzt, kann sie mit »M« aktiviert werden. Natürlich 
können Sie mit Turbo, wie bereits angesprochen, auch ein 
ablauffähiges »COM«-File erzeugen. Dazu stellen Sie den 
Zeiger durch Drücken der Taste <C> auf »Com-file«. Nun 
haben Sie sogar die Möglichkeit, die Startadresse, sowie die 
maximale Endadresse zu ändern. Dies ist allerdings nur dann 
notwendig, wenn die Programme beispielsweise auf einer 
anderen Computerumgebung mit weniger Speicherplatz lau¬ 
fen oder wenn vor dem eigentlichen Programm absolute 
Variablen abgelegt werden sollen. 

Zu guter Letzt können Sie über die Option »H« noch Chain- 
Dateien erzeugen. Dabei ist zu beachten, daß solche 
Programm-Module in eine COM-Datei eingebunden werden 
müssen und die Startadresse der Chain-Datei mit der des 
COM-Files übereinstimmen muß. 

Sie wissen bereits, daß Turbo, wenn ein Programm mit RUN 
gestartet wird und abbricht, automatisch zum Editor zurück¬ 
kehrt. Was aber ist zu tun, wenn außerhalb der Turboum- 
gebung ein COM-File plötzlich mit einem Fehler aussteigt? 
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Prozeduren 

Append 

GetDir 

OvrDrive 

Assign 

GetMem 

OvrPath 

Bdos 

GotoXY 

Randomize 

Bios 

Erase 

Read 

BlockRead 

Execute 

Readln 

BlockWrite 

Exit 

Release 

Chain 

FillChar 

Rename 

Close 

InsLine 

Reset 

ClrEol 

Intr 

Rewrlte 

CIrScr 

LowVideo 

RmDir 

CrtExit 

Mark 

Seek 

Crtlnit 

MkDir 

Str 

Delüne 

Move 

Truncate 

Delay 

MsDos 

Val 

Delete 

New 

Wrlte 

Dispose 

NormVideo 

Writeln 

FreeMem 




Bild 3. Der Sprachumfang von Turbo Pascal 


Um den Vorteil der direkten Fehleranzeige genießen zu kön¬ 
nen, gibt es bei Turbo die Option »Find run-time-error«. Um 
diese Option richtig einzusetzen, notieren Sie sich den beim 
Programmausstieg angezeigten Programm-Counter (PC). 
Rufen Sie Turbo auf und laden Sie mit »W« die Textdatei Ihres 
fehlerhaften Programms. Wählen Sie die Option »O« und dort 
den Punkt »F«. Auf die Frage »Enter PC:« geben Sie den 
notierten Programmzählerstand ein. Der Editor wird aktiviert 
und der Cursor bleibt auf der fehlerhaften Stelle stehen. 

Die Compiler-Direktiven 


Turbo Pascal eignet sich also nicht nur zur Programmierung, 
sondern unterstützt den Programmierer bei der Quell¬ 
code-Eingabe ebenso wie beim Debugging. Damit wäre dem 
Programmierer eigentlich schon weit geholfen, doch Turbo 
bietet noch mehr. 

Eine Anzahl der Eigenschaften des Turbo-Compilers wer¬ 
den durch Compiler-Anweisungen (Direktiven) gesteuert. 
Eine Compiler-Steueranweisung wird als Kommentar mit 
besonderer Syntax eingebracht. Das bedeutet, daß immer 
dann, wenn ein Kommentar in einem Programm erlaubt ist, 
auch eine Compiler-Steueranweisung stehen darf. Eine sol¬ 
che Steueranweisung besteht aus einer sich öffnenden 
geschweiften Klammer. Danach folgt unmittelbar ein Dollar¬ 
zeichen (<$>), an das die Steueranweisung direkt 
anschließt. Sie besteht grundsätzlich aus einem Buchsta¬ 
ben. Es können auch ganze Listen angegeben werden, die 
durch Kommas voneinander getrennt werden. Als letztes 
steht eine sich schließende geschweifte Klammer. Anstelle 
der geschweiften Klammern können auch die Zeichen »(*« 
und »*)« stehen. Weder vor noch hinter dem Dollarzeichen 
dürfen Leerzeichen stehen. Ein Pluszeichen (+) zeigt an, daß 
die Compiler-Eigenschaft eingeschaltet ist (aktiv), ein Minus¬ 
zeichen (-) definiert die Eigenschaft als ausgeschaltet (pas¬ 
siv). 

Alle Compiler-Steueranweisungen haben Standardeinstel¬ 
lungen. Sie sind so gewählt, daß sie die maximale Ausfüh¬ 
rungsgeschwindigkeit und die minimale Codegröße einneh¬ 
men. Deshalb ist die Codeerzeugung für rekursive Prozedu¬ 
ren und die Index-Überprüfung standardmäßig nicht einge¬ 
schaltet. Überprüfen Sie vorher, ob Sie die gewünschten 
Steueranweisungen gesetzt haben. Im Anschluß folgt nun 
eine genaue Beschreibung der einzelnen Direktiven. 

Die erste Steueranweisung läßt sich durch ein »B« darstel¬ 
len. Damit wird der I/O-Modus gesteuert. Ist sie aktiv 


(»(*$B+*)«), ist die Konsole den Standarddateien INPUT 
und OUTPUT zugewiesen, also den Ein-/Ausgabekanälen. 
Ist sie passiv (»(*$B-*)«), wird das Terminal verwendet. Diese 
Steueranweisung gilt für einen gesamten Programmblock 
und kann innerhalb des Programms nicht neu definiert wer¬ 
den. Diese Anweisung sei hier nur der Übersicht halber auf¬ 
geführt, da die Terminalzuweisung für den C128 nicht vorge¬ 
sehen ist. 

Mit der Direktive »C« werden die Steuerzeichen während 
der Konsolen-Ein-/Ausgabe gesetzt. Ist sie aktiv 
(»(* $C+ *)«), unterbricht <CTRL+C> als Antwort auf eine 
READ oder READLN-Anweisung die Programmausführung. 
Mit <CTRL+S> wird die Bildschirm-Ausgabe ein- und aus¬ 
geschaltet. Ist sie passiv (»(* $C- *)«), werden Steuerzeichen 
nicht interpretiert. Der aktive Zustand verlangsamt die 
Bildschirm-Ausgabe. Wollen Sie also eine hohe Ablaufge¬ 
schwindigkeit erreichen, sollten Sie diese Steueranweisun¬ 
gen ausschalten. Die Steueranweisung ist für einen gesam¬ 
ten Programmblock gültig und kann während des Programms 
nicht neu definiert werden. 

Die Direktive »I« weist in Turbo eine Doppelfunktion auf. Die 
erste Variante wird zur, I/O-Fehlerbehandlung verwendet. Ist 
diese Steueranweisung aktiv (»(*$1+*)«), werden alle Ein-/ 
Ausgabeoperationen automatisch auf Fehler hin überprüft. 

Ist sie passiv (»(* $1- *)«), muß der Programmierer selbst mit 
Hilfe der Standardfunktion »lOResult« möglicherweise aufge¬ 
tretene Fehler ermitteln. Die zweite Anwendung von »I« 
bezieht sich auf das nachträgliche Laden von Programm- 
Modulen. Steht nach der »U-Anweisung ein Dateiname, wird 
die Datei mit diesem Namen in das Programm eingebunden 
und compiliert. 

Für die Index-Bereichsüberprüfung steht die »R«-Option 
zur Verfügung. Diese Steueranweisung kontrolliert die Index- 
überp,\: £ ung während des Programmlaufs. Ist sie aktiv 
(»(*$R+ *)«), wird bei allen Matrix-Indizierungsoperationen 
überprüft, ob die Werte innerhalb des definierten Bereichs 
liegen. Das gilt auch bei allen Zuweisungen für Skalare und 
Unterbereichsvariable. Ist sie passiv (»(*$R-*)«), wird keine 
Überprüfung vorgenommen. Dann kann es Vorkommen, daß 
Indexfehler das Programm durcheinanderbringen. Deshalb 
ist es am besten, wenn Sie diese Steueranweisungen bei der 
Entwicklung Ihrer Programme verwenden. Haben Sie die 
Fehler gefunden, wird die Durchlaufzeit durch Ausschalten 
der Direktive wieder kürzer. 


Debugging mit Komfort 


Die »V«-Compiler-Anweisung steuert die Typüberprüfung bei 
Zeichenketten, die in Unterprogrammen als »VAR«-Parame- 
ter übergeben werden. Ist sie aktiv (»(*$V+*)«), wird die 
Überprüfung ausgeführt. Das heißt, daß die Längen der 
aktuellen und formalen Parameter übereinstimmen müssen. 
Ist sie passiv (»(* $V- *)«), erlaubt der Compiler auch die Über¬ 
gabe der aktuellen Parameter, die mit der Länge der formalen 
Parameter nicht übereinstimmen. 

Mit der »U«-Steueranweisung werden die Anwenderunter¬ 
brechungen gesteuert. Sobald sie aktiviert wird 
(»(*$U+ *)«), kann der Anwender zu einer beliebigen Zeit 
während der Ausführung durch Eingabe von <CTRL-C> 
den Programmlauf unterbrechen. Im anderen Fall gibt es 
keine Möglichkeit zur Unterbrechung des laufenden Pro¬ 
gramms. Während der Testphase sollte dieser Schalter auf 
jeden Fall gesetzt werden. Selbst wenn das Programm in der 
Turbo-Umgebung getestet wird, besteht keine Möglichkeit, 
den Ablauf zu unterbrechen. Steckt das Programm in einer 
Endlosschleife, hilft nur noch das erneute »Booten« des 
CP/M-Systems. 
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Die »A«-Direktive hat Einfluß auf die Erzeugung von absolu¬ 
tem, also nicht rekursivem Code. Nach der Aktivierung 
(»(* $ A + *)«) wird absoluter Code erzeugt. Ist dieser Schalter 
nicht gesetzt, erzeugt der Compiler Code, der rekursive Auf¬ 
rufe ermöglicht. Dieser Code belegt mehr Speicherplatz und 
macht die Ausführung langsamer. 

Die »W«-Steueranweisung regelt die Ebenen der ver¬ 
schachtelten WITH-Strukturen. Damit wird die Anzahl der 
RECORDs, die innerhalb eines Blocks geöffnet sind, festge¬ 
legt. Nach »W« muß unmittelbar eine Ziffer zwischen eins und 
neun stehen. 

Die letzte Direktive wird zur Matrizenoptimierung einge¬ 
setzt und läßt sich durch den Buchstaben »X« ansprechen. 
Nach der Aktivierung wird die Codeerzeugung für Matrizen 
auf maximale Geschwindigkeit optimiert. Ist die Anweisung 
passiv, wird statt dessen die Codegröße minimiert. 

Nun haben Sie einen Überblick über die Fähigkeiten des 
Compilers erhalten. Was jeden Pascal-Programmierer inter¬ 
essiert, ist der in Turbo implementierte Sprachumfang. Auch 
darüber gibt es nur Positives zu berichten. 

Erweiterter Sprachumfang 


Als Standard bei den »normalen« Pascal-Compilern hat sich 
das USCD-Pascal durchgesetzt. Wir zeigen Ihnen die gravie¬ 
rendsten Unterschiede zwischen USCD- und Turbo-Pascal 
(Bild 3) auf. Am meisten fallen die Zusatzfunktionen von Turbo 
im Bereich der Dateiverwaltung auf. Während in den meisten 
herkömmlichen Pascal-Versionen mit Datenpuffern gearbei¬ 
tet wird, arbeitet Turbo Pascal mit vordefinierten Prozeduren, 
die die Handhabung von Dateien erleichtern. Damit aber 


noch nicht genug der Unterschiede. In Turbo sind bereits eine 
Menge Standardoperatoren vorhanden. Diese dienen zum 
Abfragen bestimmter Zustände während des Programm¬ 
ablaufs. So können beispielsweise jederzeit Ein-/Ausgabe- 
fehler über die Funktion lOResult abgefragt werden, wenn 
die entsprechende Compiler-Option eingestellt ist (siehe 
weiter oben). Für die Bildschirmsteuerung stehen dem 
Pascal-Programmierer ebenfalls viele Prozeduren zur Verfü¬ 
gung. So ist es kein Problem, einzelne Zeilen zu löschen oder 
den Cursor auf einen bestimmten Bildschirmpunkt zu positio¬ 
nieren. Wenn man länger mit Turbo Pascal gearbeitet hat, 
möchte man den Komfort und die Erweiterungen, die das 
System bietet, auf keinen Fall mehr missen. 

Lohnt sich Turbo Pascal? 


Diese Frage kann guten Gewissens mit »ja« beantwortet wer¬ 
den. Schon wegen der Benutzerfreundlichkeit des gesamten 
Programmpakets, wie auch der Popularität der Sprache, kann 
Turbo Pascal jedem CP/M-Anwender empfohlen werden. Von 
Systemen vergleichbarer Leistung ist man in der Zwischen¬ 
zeit stolze Preise gewohnt. Turbo Pascal hingegen kostet für 
den C128 nur zirka 219 bis 250 Mark, je nach Anbieter. Die¬ 
ses Angebot hält einem Preis-/Leistungsvergleich in jedem 
Fell stand. Die Unterschiede zum Pascal-Standard stellen 
dabei keine Einschränkung, sondern eher eine Erweiterung 
dar. Turbo Pascal, leicht erlernbar und kostengünstig, erweist 
sich als eines der besten Programm-Entwicklungssysteme, 
die für CP/M momentan erhältlich sind. (rf) 

Info: Heimsoeth Software, FraunhoferstraBe 13, 8000 München 5 
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Strukturiertes 

Programmieren in Comal 


Comal ist eine Programmiersprache mit erstaunli¬ 
chen Fähigkeiten. Da sie die besten Eigenschaf¬ 
ten vieler bekannter Sprachen enthält, ist sie 
zudem leistungsfähig und benutzerfreundlich. 

V or zwei Jahren nur einem engen Kreis von Spezialisten 
bekannt, macht auch in der Bundesrepublik Deutsch¬ 
land eine neue Computersprache Furore: Comal. 
1973 wurde sie in Dänemark von Borge Christensen mit 
dem Ziel entwickelt, eine Alternative zu dem unstrukturierten 
Basic und dem schwer zu handhabenden Pascal für den Ein¬ 
satz an allen Schulen, aber auch für anspruchsvollere 
Anwendungen zu schaffen. Die ersten Versuche in dieser 
Richtung bedeuteten nicht mehr als eine Basic-Erweiterung 
(wie zum Beispiel Simons Basic). Doch sehr bald löste man 
sich von den alten Grenzen. Herr Christensen entwarf ein 
Konzept, das sich als richtungweisend heraussteilen sollte. 

Das Rezept war schnell formuliert: Die neue Sprache (in 
Zukunft Comal 80) genannt, sollte folgende Bedingungen 
erfüllen: 

1) Strukturiertheit wie in Pascal 

2) direkte Interaktivität wie in Basic 

3) anfängergerechte Handhabung der grafischen Fähigkei¬ 
ten eines Computers wie bei Logo 

4) Übertragbarkeit von Programmen auf möglichst viele Com¬ 
puter 

Nach kurzer Zeit lagen die ersten Implementationen vor. 
Die wichtigste von diesen nannte sich später COMAL 0.14 
und lief auf dem Commodore 64. Aufgrund von Differenzen 
zwischen den Entwicklern und der damaligen Auftragsfirma 
wurde diese Version allgemein freigegeben: Sie kann heute 
von jedermann kopiert und weitergegeben werden! 

Dies trug natürlich enorm zur Verbreitung der Sprache bei. 
Die skandinavischen Länder, Irland, Schottland, Kanada, 
USA... Überall wurde Comal mit Begeisterung aufgenommen. 
Seit sich in Deutschland eine Gruppe um die Verbreitung und 
Pflege der Sprache bemüht, fallen auch hier immer mehr 
Schranken. In vielen Bundesländern gilt COMAL inzwischen 
als die einzige Sprache, welche zugleich die meisten Anfor¬ 
derungen des Lehrplanes erfüllt und andererseits sehr 
schnell und ohne Mühe erlernt werden kann. Seit kurzem rea¬ 
gieren auch die Schulbuch- und Zeitschriftenverlage darauf. 

Was ist nun an dieser Sprache besonderes, daß sie solche 
Erfolge hat? Wir werden dies etwas genauer untersuchen. 

Comal hat lange Namen 


Vorbei sind die Zeiten der kurzen und daher unverständlichen 
Variablennamen. Wenn man sagen kann 

Durchschnitt:=Summe_Werte/Anzahl_Werte 

so ist hier schon durch die Formulierung eine Klarheit und 
Eindeutigkeit vorgegeben, welche auch nach Monaten erhal¬ 
ten bleibt. Versuchen Sie einmal, nach einem halben Jahr in 
einem Basic-Programm die Bedeutung der verwendeten 
Variablen zu enträtseln! Selbst in dem Programm, an wel¬ 
chem Sie gerade arbeiten, haben Sie oft genug Schwierigkei¬ 
ten: Was bedeutete eigentlich wieder >fu$«? 


Namen dürfen in Comal maximal 63 Zeichen haben, was für 
alle Fälle ausreichend ist. Dazu kommt, daß für die Namen der 
Label (= Sprungmarken), Prozeduren (eine Form von Unter¬ 
programmen) und Funktionen dasselbe gilt. 

Comal erleichtert das Umsteigen 


Nahezu jeder hat schon einmal mit Basic gearbeitet und 
kennt dessen Befehlssatz. Deshalb hat man sich entschlos¬ 
sen, in Comal einen Standard von Basic her zu übernehmen. 
Andererseits wurden jedoch diese Befehle mit erweiterten 
Möglichkeiten ausgestattet. So können Sie eine FOR-NEXT- 
Schleife wie in Basic eingeben: 

FOR i=l TO 10 
PRINT i 
NEXT 

Sobald Sie jedoch diese Zeilen LISTen, schauen sie etwas 
anders aus, da Comal sie sofort in seine eigene Schreibweise 
umsetzt: 

FOR i:=l TO 10 DO 
PRINT i 
ENDFOR i 

Dcc^ beschränkt sich Comal nicht auf die Nachahmung 
von Basic. Es bietet erweiterte Möglichkeiten an: 

FOR i:=l TO 10 DO PRINT 1 
Diese Zeile ist eine Kurzform der FOR-NEXT-Schleife. 

Comal ist strukturiert 


Sehr bald hat man erkannt, daß eine rationelle Programment¬ 
wicklung ohne bestimmte Regeln nicht möglich ist. Eine der 
wichtigsten dieser Regeln besagt, daß die Struktur eines Pro¬ 
grammes möglichst sofort erkannt werden soll, ja daß ein Pro¬ 
gramm mit Hilfe geeigneter Strukturen zuerst auf dem Papier 
entwickelt wird, bevor es zur Umsetzung im Computer, der 
eigentlichen Codierung in der gewählten Sprache, kommt. 

In Comal wurde diese Regel derart berücksichtigt, daß es 
sogar schwerfällt, unstrukturiert ein Programm zu schreiben. 
Dies geht soweit, daß einfache Hierarchien, wie zum Beispiel 
Schleifen, schon beim Auslisten eines Programmes dadurch 
gekennzeichnet werden, daß die Strukturkörper eingerückt 
dargestellt sind. Sie haben dies weiter oben schon am Bei¬ 
spiel der FOR-Schleife gesehen, man kann es aber noch 
deutlicher aufzeigen: 

FOR Schleifenzähler:=1 T0 endwert DO 
PRINT Schleifenzähler 
FOR zweite_schleife:=l to 5 DO 
PRINT "innere Schleife" 

ENDFOR zweite_schleife 
ENDFOR Schleifenzähler 

Auf Anhieb erkennt man, welche Anweisungen in welche 
Struktur gehören: Alle Befehle der gleichen Hierarchie sind 
gleichweit eingerückt. 

Doch nicht nur Äußeres macht die Strukturierung aus. 
Comal bietet mehr. Dies beginnt bei den einfachen Schleifen 
und Verzweigungen und endet mit dem Konzept der Proze¬ 
duren und Funktionen. 
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Neben der schon angesprochenen 
Schleife gibt es noch weitere Formen: 
WHILE bedingung DO 
block 

ENDWHILE 

REPEAT 

block 
bedingung 


UNTIL 

LOOP 


(nicht in 0.14!) 


block 

EXIT WHEN bedingung 
EXIT 

ENDLOOP 

Sie sehen, Comal ist reich gesegnet mit Möglichkeiten der 
Gestaltung von Schleifen. Wem dies zuviel oder verwirrend 
erscheint, dem sei gesagt: Gerade durch die vielen Möglich¬ 
keiten können die meisten Algorithmen genauso in Comal 
geschrieben werden, wie sie in der Umgangssprache formu¬ 
liert wurden: 

Umgangssprache: 

SOLANGE die Länge eines Textes kleiner als 20 Zeichen ist, 
hänge ein Leerzeichen am Ende an. 

Comal: 

WHILE LEN(text$) <20 DO 
text$:+" " 

ENDWHILE 

(WHILE LEN(text$) <20 DO text$:+" ") 

Umgangssprache: 

Wiederhole: S46R 

Verdopple die Zahl 

Wenn die Zahl ohne Rest durch 4 teilbar ist, dann gebe sie 
aus bis die Zahl größer als 100 ist. 

Comal: 

REPEAT 

zahl:=Zahl#2 
IF (zahl MOD 4)=0 THEN 
PRINT zahl 

ENDIF 

UNTIL zahl>100 

Umgangssprache: 

Lege die Datenformate fest. 

Schleife für immer: 
lösche den Bildschirm 
schreibe den Menütext 
hole Tastendruck 
untersuche den Tastendruck: 

wenn die Taste »0« gedrückt ist, beende das Programm 

wenn die Taste »1« gedrückt ist, gehe zur Dateneingabe 

wenn die Taste »2« gedrückt ist, ändere Daten 

wenn die Taste »3« gedrückt ist, suche Daten 

wenn die Taste »4« gedrückt ist, gebe die Daten aus 

sonst gebe Fehlermeldung 

Ende der Untersuchung 

Ende der Schleife 

Comal: 

Datenformate_festlegen 

LOOP 

PAGE 

menuetext_sehreiben 
REPEAT 
taste$:=KEY$ 

UNTIL taste$ IN "0123456789" 


FOR-ENDFOR- OASE taste$ OF 
WHEN "0" 

EXIT 

WHEN "1" 

neue_Daten_eingeben 
WHEN "2" 

Daten_aendern 
WHEN "3" 

Daten_suchen 
WHEN "4" 

Daten_ausgeben 
OTHERWISE 

PRINT "Eingabefehler!" 

PRINT "weiter mit Taste.." 

WHILE KEY$="" DO NULL 
ENDCASE 
ENDLOOP 

Gerade am letzten Beispiel sehen Sie, wie schnell ein Pro¬ 
gramm aufgebaut werden kann. Sie brauchen hier nur noch 
die entsprechenden Prozeduren zu schreiben, dann ist das 
Programm fertig. Zum Austesten genügt es, einfach leere 
Prozeduren zu schreiben. Was Prozeduren sind, erfahren Sie 
weiter unten. 

Gleichzeitig führt das letzte Beispiel zu den weiteren Struk¬ 
turierungsmöglichkeiten hin: den bedingten Verzweigungen. 

Comal kennt viele Möglichkeiten, anhand einer Bedingung 
im Programm verschiedene Wege zu gehen. Die einfachste 
davon ist wieder aus Basic übernommen: 

IF zahll> zahl2 THEN DO aktion 
Oft müssen bei einer erfüllten Bedingung jedoch mehrere 
Aktionen erfolgen. Jede Folge von Befehlen nennt man einen 
Block. In Comal gilt die Regel: Überall dort, wo ein Befehl ste¬ 
hen darf, darf auch ein Block stehen. Die Ausnahme bilden 
die Ku» formen von Strukturen. Doch auch hier kann man 
eben einen Namen schreiben, welcher beide Erfordernisse 
zugleich erfüllt: Er ist nur ein Befehl, aber sein Aufruf bewirkt 
die Abarbeitung eines kompletten Blocks. 

Verwendet man mehrere Befehle, so lautet die obige Struk¬ 
tur: 

IF bedingung THEN 
...block... 

ENDIF 

Zwischen IF und ENDIF darf beliebig viel stehen, genau wie 
zum Beispiel in Pascal. Überhaupt werden Sie immer wieder 
eine starke Ähnlichkeit mit dieser Sprache feststellen kön¬ 
nen. 

Was tun wir, wenn wir, abhängig von der jeweiligen Bedin¬ 
gung, unterschiedliche Befehle ausführen lassen wollen? 
Comal hilft auch hier weiter: 

IF bedingung THEN 
Block für "Bedingung wahr" 

ELSE 

Block für "Bedingung falsch" 

ENDIF 

Nehmen wir nun folgendes Problem an: Sie wollen Ihren 
Abend verplanen. Dabei sagen Sie: Wenn meine Freundin 
kommt, bleibe ich zu Hause. Wenn es regnet, gehe ich in ein 
Konzert. Andernfalls möchte ich einen Spaziergang machen. 
In Comal würde dies so aussehen: 

IF freundin_kommt THEN 
zu_hause_bleiben 

ELIF regen=TRUE (TRUE heist WAHR) 
gehe_ins_Konzert 
ELSE 

Spaziegang 
ENDIF 

In Pascal wäre dies nur durch eine Schachtelung mit 
IF..ELSE IF..ENDIF..ENDIF erreichbar, in Basic müßten Sie 
verwirrend im Programm springen. 
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Als wir am Anfang ein kleines Programm geschrieben 
haben, haben wir die mächtigste Form der Verzweigung ken¬ 
nengelernt: die CASE-Struktur. Hier wird ein Ausdruck, meist 
eine Variable, als Kontrolle benutzt, anhand dessen die ein¬ 
zelnen Möglichkeiten mit WHEN direkt angegeben und ent¬ 
sprechende Aktionen ausgeführt werden. Tritt ein Fall ein, 
welcher nicht durch ein passendes WHEN abgedeckt ist, so 
wird in den OTHERWISE-Teil gesprungen. 

Comal ist schnell 


Bei der Konstruktion von Comal mußte ein Kompromiß 
geschlossen werden: Schnelligkeit und Benutzerfreundlich¬ 
keit vertragen sich schlecht. Aber es ließ sich doch machen: 

- Die Rechengeschwindigkeit wurde durch bessere Routi¬ 
nen erhöht. 

- Die Zeichenverarbeitung geschieht extrem schnell, da nicht 
mit der dynamischen Speicherverwaltung von Basic gearbei¬ 
tet wird. Deshalb entfällt auch die gefürchtete Garbage Col¬ 
lection. Comal arbeitet bis zu 70mal schneller als das 
Commodore-Basic, wobei Basic-Erweiterungen wie Simons 
Basic übrigens noch langsamer sind. 

- Es wurde eine interne Darstellung des Programmes 
gewählt, welche die Ausführungszeiten optimiert. Dabei 
wurde die Konzeption der Sprache Forth teilweise übernom¬ 
men. 

- Schon während der Eingabe findet eine erste Übersetzung 
statt, welche durch eine weitere Phase nach RUN ergänzt 
wird. So wird beispielsweise bei ENDLOOP gleich die Spei¬ 
cheradresse des dazugehörigen LOOP mit abgelegt, und es 
braucht während des Programmablaufes kein Ziel mehr 
errechnet zu werden. 

- Da ebenfalls schon bei der Eingabe die Syntax überprüft 
wird, kann diese bei der Ausführung entfallen. Natürlich müs¬ 
sen Laufzeitfehler trotzdem berücksichtigt werden, so zum 
Beispiel ein Zahlenüberlauf oder der Aufruf einer nicht vor¬ 
handenen Prozedur. 

Comal unterstützt die Grafik 


Ein großes Manko des im C 64 eingebauten Basic ist das voll¬ 
ständige Fehlen von Grafikbefehlen. Dem wurde Rechnung 
getragen, wobei man ein bereits bewährtes und eingeführtes 
Konzept zugrunde legte: Das Zeichnen mit der »Turtle«, einer 
Dreiecksfigur, welche auch im Direktmodus angesprochen 
werden kann. Dies macht die Sprache Logo für Einsteiger so 
interessant. 

Die Befehle sind einfach und verständlich. Wer das Ganze 
in deutsch haben möchte, kann dies sehr einfach ohne 
gewichtigen Geschwindigkeitsverlust tun. Ein Beispiel: 

PROC vorwärts(schritte) 

forward(schritte) 

ENDPROC vorwärts 
PROC rechts(winkel) 

right(winkel) 

ENDPROC rechts 

Dabei ist man so klug gewesen, bei den Winkelangaben 
unser gewohntes System beizubehalten: Man arbeitet mit 
Grad-Angaben. Dies erleichtert manches. So kann durch fol¬ 
gende Befehle sehr schnell ein Rechteck gezeichnet wer¬ 
den: 

vorwärts(höhe) 
rechts(90) 
vorwärts(breite) 
rechts(90) 
vorwärts(höhe) 
rechts(90) 


vorwärts(breite) 
rechts(90) 

Man programmiert genauso, als ob man mit einem Bleistift 
auf einem Blatt Papier zeichnen würde. 

Prozeduren & Funktionen 


Das weitaus mächtigste Sprachelement in Comal ist das Kon¬ 
zept der Prozeduren und Funktionen. Darunter hat man sich 
eine Art von Unterprogrammen vorzustellen. In Comal sind 
diese jedoch mit einigen Besonderheiten ausgestattet. 

Zum einen werden Funktionen und Prozeduren anhand 
ihres Namens aufgerufen. Dies korrespondiert mit dem Prin¬ 
zip, keine Bezüge auf Zeilennummern zuzulassen. 

Zum anderen können sogenannte Parameter übergeben 
werden. Dabei gibt es prinzipiell zwei Typen: 

1. Der Werteparameter ist nichts anderes als eine Kopie 
eines Wertes. Übergeben Sie zum Beispiel eine Variable, so 
wird deren Inhalt benutzt. Am Ende ist aber wieder der alte 
Inhalt vorhanden. Man nennt dies auch Lokalität. 

2. Der Variablenparameter ist gekennzeichnet durch das 
Wort REF. Eine Veränderung an diesem Parameter ist endgül¬ 
tig und wird dann auch dem aufrufenden Programmteil 
bekannt. 

Bei Funktionen gilt es schließlich noch zu bedenken, daß 
unbedingt etwas zurückgegeben wird. Dies kann eine ganze 
Zahl, eine Fließkommazahl oder ein Text sein. Entsprechend 
wird auch der Typ der Funktion definiert. 

Allgemein sind Prozeduren und Funktionen so aufgebaut: 
PROC narae[(Parameterliste)] [CLOSED] 

_block.. 

ENDPROC name 

nun» < 

FUNC name[$/#][(Parameterl.)][CLOSED] 

...block... 

RETURN funktionsergebnis 


ENDFUNC name 

Wir wollen das verdeutlichen. Unsere Befehlsfolge zum 
Zeichnen eines Rechteckes soll mit einem Namen versehen 
werden: 

PROC rechteck(höhe,breite) 
vorwärts(höhe) 
rechts(90) 
vorwärts(breite) 
rechts(90) 
vorwärts(höhe) 
rechts(90) 
vorwärts(breite) 
rechts(90) 

ENDPROC rechteck 

Nachdem Sie einmal RUN gesagt haben, verhält sich diese 
Prozedur wie eine Befehlserweiterung. Wenn Sie im Direkt¬ 
modus eingeben 
rechteck(l0,50) 

so wird auch das entsprechende Rechteck gezeichnet. 
FUNC durchschnitt(wert(),anzahl) CLOSED 
summe:=0 

F0R i:=l T0 anzahl DO 
summe:+wert(i) 

ENDF0R i 

RETURN summe/anzahl 
ENDFUNC durchschnitt 

Wie Sie sehen, kann ein komplettes Feld als Parameter 
übergeben werden. Aufgerufen wird diese Funktion wie eine 
bereits eingebaute, zum Beispiel »SIN« oder »LEN«. 

Durch das Wort CLOSED gilt die Funktion absolut als lokal. 
Außerhalb verwendete Namen sind in der Funktion genauso 
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unbekannt wie umgekehrt. Dadurch gibt es keine Konflikte 
mit verwendeten Namen. Außerdem wird eine weitere Forde¬ 
rung der Informatik erfüllt: Ein Block soll möglichst ein 
schwarzer Kasten (black box) sein, wobei oben Werte hinein¬ 
getan werden und unten das Ergebnis herauskommt. Alles, 
was innerhalb dieser »black box« passiert, ist für das restliche 
Programm nicht vorhanden. 

Bei der Textverarbeitung wurde Comal nicht an irgendeine 
Sprache angelehnt, sondern es wurde etwas eigenes ent¬ 
wickelt, was sich durch Klarheit und Geschwindigkeit beson¬ 
ders auszeichnet. 

Zuerst einmal muß von vorneherein die maximale Länge 
jeder verwendeten String-Variablen angegeben werden. Dies 
geschieht mit dem Wort DIM, das aber ansonsten wie in Basic 
zum Anlegen von Arrays benutzt wird. 

DIM name$ OF 20 

DIM schüler$(0:50) OF 30 

Dadurch wird der entsprechende Speicherplatz reserviert. 
Der Vorteil liegt auf der Hand: Es entstehen niemals »Müll- 
Strings«, und der Zugriff auf den Inhalt ist schnell, da sich die 
Lage besser errechnen läßt. Die Zeiten der gefürchteten Gar- 
bage Collection, dem zeitaufwendigen Ausräumen von 
String-Leichen, gehören der Vergangenheit an. 

Zum anderen wird jeder String so behandelt, als wäre er 
das, was man in Pascal mit »Array Of Char« bezeichnet. Jedes 
einzelne Zeichen in einem String kann sofort adressiert und 
manipuliert werden. 

DIM redaktion$ OF 40 
redaktion$:="64er Redaktion" 

PRINT redaktion$(6:8) 

— >Red 

PRINT redaktion$(:4) 

— > 64er 

PRINT redaktion$(9:) 

— >aktion 
redaktion$(2):="5" 

PRINT redaktion? 

— >65er Redaktion 

Dieses Konzept ist so flexibel, daß die Basic-Funktionen 
MID$, LEFT$ und RIGTH$ nicht mehr benötigt werden. 

Natürlich hat diese Art von String-Verwaltung ihren Preis: 
Zum einen benötigt die Verwaltung dieser Strings zusätzlich 
zwei Byte, da neben der aktuellen Länge auch die dimensio¬ 
nierte Länge gespeichert wird. Zum anderen wird genau 
soviel Platz belegt, wie durch DIM reserviert wurde, auch 
wenn die Variablen leer sind. Aber es kann auch nicht mehr 
Vorkommen, daß während eines Programmes die Meldung 
OUT OF MEMORY erscheint, nur weil die Strings zu sehr 
angewachsen sind. 

Wie Sie gerade im letzten Beispiel gesehen haben, ist das 
Konzept der Teil-Strings sogar für Zuweisungen gültig: 
INPUT "Nachname: ":eintrag$(l6:30) 

Die gesamte Eingabe wird in »eintragS« ab der 16. Stelle 
abgelegt. Ist sie länger als die erlaubten 15 Zeichen (Stelle 
16 bis 30), so wird der Rest einfach abgeschnitten. Ist sie 
kürzer, füllt Comal automatisch mit Leerzeichen auf. Überle¬ 
gen Sie einmal die Einfachheit der Programmierung einer 
Dateiverwaltung. 

Dynamische iehlermelduagea 


Ein wichtiger Punkt jeder Computersprache sind die verfüg¬ 
baren Fehlermeldungen und der Umgang mit ihnen. Hier kann 
COMAL geradezu als Vorbild dienen. 

Jede Zeile wird bei ihrer Eingabe zuerst einmal auf ihre syn¬ 
taktische Richtigkeit geprüft. Eine fehlerhafte Zeile wird gar 
nicht erst angenommen. Spielen wir dies einmal durch: 

10 FOR 


Sofort nach dem < RETURN > meldet sich Comal mit 
»Schreibfehler«, und der Cursor steht direkt hinter dem FOR. 

10 FOR i 

Wieder wird der Schreibfehler gemeldet. Wir ergänzen: 

10 FOR 1= 

Nun meckert Comal: »Ausdruck erwartet«. 

10 FOR i=l 

Auch hier gibt sich Comal nicht zufrieden. Dies setzt sich 
fort, bis die Zeile korrekt dasteht. Erst dann wird sie auch in 
den Speicher übernommen. Im Comal-Modul sind die Fehler¬ 
meldungen ausführlicher und klarer. So wird zum Beispiel 
direkt angegeben » := erwartet« oder »TO erwartet«. 

Eine weitere Prüfung des Programmes findet statt, sobald 
Sie mit RUN das Programm starten. Hier werden die Struktu¬ 
ren getestet. Eine Prozedur kann nicht mit ENDFUNC abge¬ 
schlossen werden, ein ENDFOR ist bei REPEAT fehl am 
Platze, ein vergessenes ENDIF wird angemahnt und so fort. 
Dieser Check dauert auch bei langen Programmen weniger 
als eine Sekunde, wird also kaum bemerkt. 

Die allerletzte Prüfung findet erst zur Laufzeit des Program¬ 
mes statt. Hier werden solche Dinge wie Undefinierte Texte 
oder arithmetischer Überlauf behandelt. 

Wenn Sie mit dem MODUL-Comal arbeiten, so haben Sie 
zusätzlich noch komfortable Fehlerbehandlungsmöglichkei¬ 
ten. Das nachfolgende Programmstück erlaubt es Ihnen, eine 
Zahl zwischen 1 und 50 einzugeben und dabei alle Fehlbe¬ 
dienungen auszuschließen: 

LOOP 

TRAP 

INPUT AT 4,1,2:"Zahl (1..50) : ":zahl 

IF INT(zahl) <> zahl THEN REPORT 

IF (zahle 1) 0R (zahl>50) THEN REPORT 

EXIT 

HANDI-b-p. 

ENDTRAP 

ENDL00P 

Alles was in diesem Fall zwischen TRAP und ENDTRAP 
steht, ist in die Fehlerbehandlungsroutine eingebunden. Bei 
Auftreten eines Fehlers wird dem Benutzer der Fehler mit 
REPORT angezeigt. Zwischen HÄNDLER und ENDTRAP las¬ 
sen sich noch weitere Anweisungen im Fall des Fehlerauf¬ 
tritts angeben. Auch eigene Fehlermeldungen lassen sich 
hier generieren, die dann wieder von übergeordneten behan¬ 
delt werden können: 

IF zahl>100 THEN REPORT 144, "Überlauf" 


Wo erhält man Comal? 


Comal gibt es für mehrere Rechner. Für den C64 sind 
momentan zwei Versionen verfügbar: Eine »freie« Version 
0.14 und ein Modul, das Ihren Computer zugleich um 96 
KByte erweitert. Die Bezugsquelle finden Sie am Ende des 
Artikels. 

Im Gegensatz zu vielen anderen Sprachen wird nicht nur 
Comal gepflegt, sondern auch seine Verbreitung gefördert. 
Dies bedeutet, daß es viel freie Software gibt. Eine beidseitig 
bespielte Diskette für 15 Mark. 

Die Comalgruppe Deutschland hat auch einen Telefon- 
Service eingerichtet. Hier werden alle Fragen zu Comal 
sofort geklärt. 

Schließlich gehört auch noch eine Anwenderzeitschrift 
dazu, die in unregelmäßigen Abständen erscheint und voll ist 
mit Tips & Tricks, Neuigkeiten, Kursen etc. Der Anwender wird 
also nicht allein gelassen. (Siegfried Bauer/jk) 

Bezugsquelle: Comal-Gruppe Deutschland, 2270 Utersum/Föhr, Tel. 04683-500, Mailbox 
04683-554, Tel.-Service: 04627-543 

Preis für das Comal-Modul: 209 Mark einschließlich deutschem Handbuch. 

Diskette 0.14: 15 Mark. Handbuch: 6,50 Mark. 
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Prolog - die Sprache 
der künstlichen Intelligenz 


Einen eigenen Bereich der Informatik bildet in der 
Zwischenzeit die Kl-Forschung. Prolog ist die 
Sprache, die der Kl-Forscher spricht, um seinem 
unwissenden Computer ein klein wenig Intelli¬ 
genz beizubringen. 

U m sich näher mit der Sprache Prolog zu beschäftigen, 
ist es ratsam, sich erst ein klein wenig Hintergrundwis¬ 
sen über die Entwicklung und Zielsetzung der künstli¬ 
chen Intelligenz anzueignen. Womit wir schon beim größten 
Problem der ganzen Kl-Forschung sind: Hintergrundwissen. 
Intelligenz setzt voraus, daß auf eine Situation an Hand von 
Erfahrungen und eben Wissen reagiert wird. Sie sind zum 
Beispiel ohne weiteres in der Lage, zwei Personen voneinan¬ 
der zu unterscheiden oder zu behaupten, daß diese Perso¬ 
nen miteinander verwandt sind. Dazu benötigen Sie aber das 
Wissen, warum ein Verwandtschaftsverhältnis besteht. Die¬ 
ses Wissen haben Sie sich irgendwann, beim ersten Kennen¬ 
lernen, angeeignet. Genauso liegt das Problem beim Compu¬ 
ter. Der Computer ist nicht in der Lage, logische Schlüsse zu 
ziehen, wenn nicht die benötigten Daten vorhanden sind. Der 
Mensch kann aufgrund der Tatsache, daß zwei Personen die¬ 
selben Eltern haben, die Schlußfolgerung ziehen, diese 
wären Geschwister. Der Mensch ist also aufgrund seines 
Wissens, manchmal auch als Lebenserfahrung bezeichnet, in 
der Lage, aus bestimmten Gegebenheiten eine passende 
und richtige Schlußfolgerung zu ziehen. Damit nun der Com¬ 
puter ebenfalls diesen Bildungsstand erreichen kann, muß 
ihm das Wissen, das Menschen über Jahre und Generatio¬ 
nen gesammelt haben, erst mitgeteilt werden. Hierin liegt 
eines der Probleme der Kl: die Speicherkapazität. Um alles 


Wissen der Menschen zu speichern, wären Unmengen an 
Speicherplatz vonnöten. Das zweite Problem ist die 
Geschwindigkeit eines Kl-Programms. Ab einer gewissen 
Datenmenge tun sich herkömmliche Computer unheimlich 
schwer beim Durchsuchen dieser Datenbanken. Dazu wer¬ 
den in Japan die sogenannten »Computer der 5. Generation« 
entwickelt, die mit Parallelprozessoren arbeiten. Program¬ 
miert werden diese Super-Computer in Prolog, das sich die 
Japaner für ihre Kl-Projekte entwickelt haben. 

Regel- und Steuerwerk 


Prolog kann nicht mit einer herkömmlichen Sprache vergli¬ 
chen werden, weder in der Arbeitsweise, noch im Sprachauf- 
bau. Sicherlich kennen Sie aus Basic-Programmen die lan¬ 
gen Ketten von nacheinander ablaufenden Befehlszeilen. 
Der Programmierer ist hier aufgefordert, die zu lösenden Pro¬ 
bleme in die entsprechende Sprache umzusetzen. Er muß 
sich konkrete Algorithmen überlegen, mit denen das anste¬ 
hende Problem gelöst werden kann. Nicht so in Prolog. Pro¬ 
log verlangt zur Lösung einer Aufgabe nur die ausformulierte 
Problemstellung. Diese Problemstellung kann man sich als 
Kommentar vorstellen, wie Sie ihn sicherlich in Ihren Basic- 
Programmen verwenden. Diese Vorgehensweise wird auch 
als »deklarativ« bezeichnet. Im Gegensatz dazu nennt man 
den Aufbau herkömmlicher Programmiersprachen »prozedu- 
ral«. Sie wissen also jetzt, daß Prolog eine kommentarorien¬ 
tierte Sprache ist. Doch wie kann man ein Programm aus 
ablauffähigen Kommentaren aufbauen? Sehen wir uns das 
Ganze näher an. Nehmen wir an, Sie wollten ein Programm, 
das dem Einsteiger sagen kann, ob beziehungsweise welche 
Computer für Prolog-Programmierung geeignet sind. 
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01) ki_faehig (commodore64). 

02) ki_faehig (ibm). 

03) kl_faehig (ibm_eomp). 

04) ki_faehig (vc20). 

05) ibm_comp (ibm). 

06) ibm_comp (commodorepclO). 

07) ibm_comp (sehneiderpe). 

08) program (commodore64,prolog64). 

09) program (ibm,turboprolog). 

10) program (commodorepclO,turboprolog). 

11) program (schneiderpc,turboprolog). 

12) ki_comp (X) if 

13) ki_faehig (X) and 

14) program (X,Y) or 

15) ibm_comp (X) and 

16) program (X,Y). 

Dieses Programm sieht für den Prolog-Einsteiger völlig 
unleserlich aus. Man fragt sich, ob überhaupt ein Interpreter 
in der Lage ist, diese wirr erscheinende Zeichenfolge zu ver¬ 
stehen. Dem Prolog-Kenner präsentiert sich ein durchaus 
verständliches Programm mit klaren Regeln und Fakten. 
Damit wären wir auf einer weiteren Station unserer Reise 
durch Prolog angekommen, den Regeln und Fakten. Um 
diese Phänomene zu erklären, eignet sich das obige Pro¬ 
gramm bestens. In den ersten 11 Zeilen, die Nummern wer¬ 
den nur zur Dokumentation verwendet, erhält Prolog die für 
das Problem »Welcher Computer empfiehlt sich für die Pro¬ 
grammierung in Prolog?« nötige Wissensbasis. Weder sind 
hier alle Kl-fähigen Computer aufgezählt, noch die komplette 
Menge der Geräte, die auf dem Markt erhältlich sind. Dem 
Prolog-Interpreter wird mitgeteilt, daß der C 64, der IBM und 
alle IBM-kompatiblen Kl-fähig sind. Danach erfolgt eine Auf¬ 
zählung der IBM-kompatiblen Computer. Die Fakten mit dem 
Namen »program« geben nun noch die für die aufgeführten 
Computer erhältlichen Prolog-Produkte an. Damit haben wir 
Prolog alles Wissenswerte über Computer und zugehörige 
Prolog-Software mitgeteilt. Die Regel (Zeile 12-16) teilt dem 
Prolog-Interpreter die Bedingungen mit, wie er die Anwender¬ 
eingabe mit der Wissensbasis, den Fakten, verknüpfen soll. 
Sehen wir doch eine mögliche Anwendereingabe an: 
kl_comp (commodore64) 

Die Variable »X« wird dabei fest an das Faktum 
»commodore64« gebunden. Das heißt, alle weiteren Opera¬ 
tionen, die mit »X« durchgeführt werden, arbeiten von nun an 
mit »commodore64«. Ob der C 64 nun wirklich in der Lage ist, 
künstliche Intelligenz zu unterstützen, hängt davon ab, ob es 
entsprechende Software dazu gibt. Diese Fakten sind in den 
Programmzeilen zu finden, die mit »program« beginnen. Hier 
ist festgelegt, daß auf dem C 64 mit dem Programm »Prolog 
64« Kl-Programmierung möglich ist. Auf die obige Anfrage 
antwortet der Interpreter folglich mit »YES« oder »TRUE«. 
Interessant ist der Lösungsweg, den Prolog dabei geht. 

Backtrackinq - 

Spaziergang durch das Wissen 


Prolog ist eine sehr »ausdauernde« Programmiersprache. 
Stellen Sie sich vor, sie stehen in einem Irrgarten und wissen 
nicht mehr weiter. Was werden Sie tun? Nun, Sie gehen zur 
nächsten Wegkreuzung und wählen einen der möglichen 
Wege aus, in der Hoffnung, es sei der richtige. Landen Sie 
dann in einer Sackgasse, gehen Sie zurück zur letzten Kreu¬ 
zung und versuchen einen anderen Weg. Das geht dann 
solange, bis Sie entweder den richtigen Weg gefunden 
haben oder es keine Möglichkeit mehr gibt, aus dem Irrgarten 
auszubrechen und Sie aufgeben. In diesem Stil arbeitet auch 
Prolog. Aus der Wissensbasis des obigen Programms erge¬ 
ben sich im Zusammenhang mit der aufgestellten Regel meh¬ 


rere Suchpfade für die Lösung. Prolog wird als erstes unter¬ 
suchen, ob der eingegebene Computer »ki_faehig« ist. 
Dabei wird die Wissensbasis von oben nach unten durch¬ 
sucht. Wird der Computer nicht gefunden, gibt Prolog logi¬ 
scherweise die Meldung »NO« aus. Findet Prolog den Com¬ 
puter im aufgeführten Wissen, wird noch die »AND«- 
Bedingung überprüft. Prolog sucht jetzt die »program«- 
Fakten ab. Wird dort der erfaßte Computer in Verbindung mit 
einem Programm gefunden, erfolgt die positive Meldung 
»YES«. Fällt die Abfrage negativ aus, gibt Prolog deswegen 
noch lange nicht auf. Vielmehr wird vom letzten Verknüp¬ 
fungspunktaus, der ein positives Ergebnis aufweisen konnte, 
der nächste mögliche Pfad durchgespielt. Von dort wird dann 
das nächste Faktum auf Richtigkeit getestet. Erst wenn alle 
»program«-Fakten mit negativem Ergebnis durchlaufen wur¬ 
den, gibt Prolog auf und wendet sich dem nächsten Teil der 
Regel zu. Prolog versucht dort als erstes die IBM-Kompati- 
bilität nachzuweisen und sucht dann bei positivem Ergebnis 
nach dem entspechenden Programm. Dieses Rückverfolgen 
und immer wieder neu von einem bestimmten, bereits vorher 
als richtig erkannten Punkt starten, nennt man »Back¬ 
tracking«. Hierin liegt auch der große Unterschied zu konven¬ 
tionellen Datenbanken. Prolog ist im Gegensatz zu diesen 
Programmen in der Lage, einen falsch eingeschlagenen Weg 
zurückzugehen und den nächstmöglichen, falls vorhanden, 
auszutesten. Das Backtracking ist also eine der mächtigsten 
Eigenschaften von Prolog. Ohne das Backtracking wäre es 
auch nicht möglich, das zu programmieren, was man heute 
allgemein unter künstlicher Intelligenz versteht. Prolog wäre 
ohne diesen wichtigen Bestandteil wirklich nur eine Program¬ 
miersprache, um Datenbanken zu erstellen. Sie werden sich 
jetzt natürlich fragen, ob das schon alles ist. Natürlich kann 
Prolog noch einiges mehr. 

Prolog und Listen 


Aus Basic kennen wir dimensionierbare Felder, aus Pascal 
die »ARRAYS«. Prolog verwendet zur Darstellung von sol¬ 
chen Datenstrukturen Listen. In einer Liste können mehrere 
Angaben zu einem Prädikat gemacht werden. Nun, da der 
Begriff »Prädikat« endlich gefallen ist, wird er natürlich auch 
erklärt. Betrachten Sie doch noch einmal das obige Pro¬ 
gramm. Die Angaben über Computer und Programme stehen 
in Klammern. Davor steht der Name. Diese Kombination wird 
in Prolog als Prädikat bezeichnet. Eine Liste ist ebenfalls ein 
Prädikat, mit dem Unterschied, daß mehrere Begriffe eine Art 
Tabelle bilden. Sehen wir uns ein Beispiel für eine solche 
Liste an. 

(Markt und Technik) 

Diese Liste besteht aus drei Elementen. Prolog-Listen sind 
aber nicht auf drei Teile begrenzt, sondern können beliebig 
lang sein. Ein großer Vorteil gegenüber herkömmlichen Pro¬ 
grammiersprachen. Es bleibt die Frage, wie diese Listen in 
Prolog behandelt werden. Am einfachsten sind da noch die 
Listen, die nur aus zwei Elementen bestehen. Diese werden 
über ein Listenmuster angesprochen. 

(elementl element2) 

In diesem Fall treten also keine Probleme auf. Schwieriger 
wird es, wenn die Liste eine beliebige Länge annimmt. Der 
Haken dabei ist, daß man oft selbst nicht weiß, wie lang die 
Liste nun wirklich ist. Prolog bietet auch dafür eine Lösung. 
Nehmen wir an, die Liste hätte, wie die bereits oben defi¬ 
nierte, mehr als zwei Elemente. Um diese zu bearbeiten, ver¬ 
wendet man ein spezielles Listenmuster. 

(elementl element2) 

»elementl« enthält jetzt den ersten Teil (erstes Element) 
und »element2« den Rest der Liste. Das Ganze sieht dann fol¬ 
gendermaßen aus: 
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elementl = Markt 
element2 = und Technik 

Sie wissen jetzt, daß Listen eine beliebige Anzahl an Ele¬ 
menten haben können und daß sie mittels Listenmustern 
bearbeitet werden. Listen können aber auch beliebig viele 
Sublisten enthalten. Sehen wir uns eine solche »verschach¬ 
telte« Liste an: 

(((Markt und Technik) 

(Buchverlag Softwareverlag) 

(Homecomputer Personalcomputer))) 

Daraus kann jetzt ein dreielementiges Listenmuster gebil¬ 
det werden, um die Liste anzusprechen. 

(Verlag Branche Zielgruppe) 

Als Ergebnis der daraus folgenden Verknüpfung erhalten 
wir ein eindeutiges Ergebnis: 

Verlag = Markt und Technik 

Branche = Buchverlag SoftwareVerlag 

Zielgruppe = Homecomputer Personalcomputer 
Sie sehen, die Listen in Prolog sind durch die verschiede¬ 
nen Listenmuster, mit denen sie angesprochen werden kön¬ 
nen, sehr flexibel und können nicht nur als Aneinanderrei¬ 
hung von Daten Verwendung finden, sondern durch die belie¬ 
bige Unterteilung mit Sublisten auch zur Strukturierung von 
Daten eingesetzt werden. 

Arithmetik und Rekursion 


Bis jetzt war immer von Datenmanipulation die Rede. Es 
wurde aufgezeigt, wie flexibel Prolog bei der Handhabung 
von großen Datenmengen ist. Man kann aber mit Prolog auch 
rechnen. Allerdings funktioniert das ganz anders, als Sie 
das vielleicht von herkömmlichen Programmiersprachen 
gewohnt sind. Für die Arithmetik gibt es in den meisten 
Prolog-Versionen ein eingebautes Prädikat: »SUM«. Wie 
gesagt, die anschließend geschilderte Methode ist sehr 
ungewohnt, aber auch ebenso praktisch. Betrachten wir 
doch einmal eine Möglichkeit der Addition: 

SUM (A,B,C) 

Diese Aussage ist solange richtig, wie die Summe aus A 
und B gleich C ist. Wenn Sie diesen Ausdruck in Ihr Programm 
einbauen, können Sie ihn folgendermaßen aufrufen. 
SUM(7,8,15) 

Da sieben plus acht fünfzehn ergibt, antwortet Prolog 
prompt mit »YES«. Sollten Sie Zahlen eingeben, die nicht mit 
dem Ergebnis (»C«) übereinstimmen, erhalten Sie natürlich 
ein »NO« als Antwort. Mit diesem Prädikat kann jetzt auch 
subtrahiert werden. Sie wollen beispielsweise die Differenz 
aus »18-10« feststellen. Die Subtraktion kann ohne weiteres 
auf die Addition zurückgeführt werden. Das bedeutet, daß 18 
die Summe aus 10 und einer Unbekannten ist. Darüber brau¬ 
chen wir uns keine Gedanken zu machen, diese Arbeit über¬ 
nimmt Prolog. 

SUM (A,10,18) 

Prolog antwortet jetzt, wer hätte es anders erwartet, mit 
acht. Vielleicht haben Sie jetzt schon erkannt, daß es eine 
Möglichkeit geben müßte, unendlich viele Ergebnisse anzu¬ 
fordern. 

SUM (A,B,C) 

Das ist nicht eine Wiederholung der obigen Definition. Pro¬ 
log sollte jetzt einfach alle möglichen Kombinationen ausge¬ 
ben, die ein Ergebnis aufweisen. So fatal das klingen mag, es 
würden hier logischerweise alle Additionen durchgespielt, 
die überhaupt möglich sind. Hier stößt man schnell an die 
Grenzen von Prolog und des verwendeten Computers. Laut 
theoretischem Sprachstandard ist diese Kombination ohne 
weiteres möglich. Doch dazu müßte die Prozessorlogik 
ebenso deklaritiv aufgebaut sein wie Prolog. Die verwende¬ 
ten Prozessoren in Heim- und Personal Computern arbeiten 


heute aber mit prozeduraler Prozessorlogik. Vielleicht brin¬ 
gen es die Japaner mit ihrem ehrgeizigen Projekt, den Com¬ 
puter der 5. Generation zu bauen, einmal fertig, solch kom¬ 
plexe Anfragen an ein Prolog-Programm beantworten zu kön¬ 
nen. 

Kommen wir aber jetzt noch einmal auf die bereits behan¬ 
delten Listen zu sprechen. Bisher hatten Sie nur Zugriff auf 
das erste Element, während der Rest komplett als zweites 
Element verarbeitet wird. Listen können in Prolog rekursiv 
angewendet werden. Dabei wird die komplette Liste einfach 
umgedreht. Das letzte Element ersetzt das erste und das 
erste das letzte. In der Theorie klingt das wieder unheimlich 
schwierig. Prolog stellt für Listenmanipulation wieder zwei 
Standardprädikate zur Verfügung: REVERSE und APPEND, 
wobei APPEND nichts mit Anhängen zu tun hat. 
reverse ((Elementl Element2), 
rekursive_Liste) 

Die bearbeitete Liste wird wieder in das erste Element und 
den Rest aufgeteilt. Danach dreht Prolog die gesamte Liste 
um (Rekursion). »Element2« kann dann ebenfalls wieder 
umgekehrt werden und so weiter. 

Ein etwas anderes Befehlsformat weist APPEND auf. Die¬ 
ses vordefinierte Prädikat findet beim Listenvergleich Ver¬ 
wendung. Zwei Listen werden zusammengebunden und das 
Ergebnis mit einer dritten verglichen. 
append((64er),(Magazin),(64erMagazin)) 

Diese Eingabe wird Prolog mit Sicherheit durch ein »YES« 
bestätigen. Sie sehen, daß Prolog von vorneherein einige 
nützliche Prädikate eingebaut hat, die für ein sinnvolles Pro¬ 
grammieren unerläßlich sind. 

Daß Prolog nicht gerade eine Sprache zum Erstellen von 
herkömmlichen Datenbanken ist, haben Sie sicherlich schon 
festgestellt. Auch für komfortable Dialogprogramme nimmt 
man ticch besser die bekannten und leistungsfähigen Spra¬ 
chen, wie etwa Pascal, her. Wem sollte also dieses futuri¬ 
stisch anmutende Prolog nützen? Nun, da gibt es natürlich 
einmal die Kl-Förscher, die versuchen, den Computern einen 
Hauch von menschlicher Vernunft beizubringen. Da ist auf 
der anderen Seite das militärische Interesse an künstlicher 
Intelligenz und da gibt es die Industrie, die alles immer noch 
besser und noch schneller machen will. 

Prolog-Anwendungen 


Die Industrie kann sich dazu heute verschiedener Prozeß¬ 
steuerungen bedienen, die bereits in Prolog geschrieben 
sind. Diese Programme sind in der Lage, Veränderungen an 
Werkstücken selbständig zu erkennen und eine entspre¬ 
chende Reaktion zu zeigen. So gibt es beispielsweise Dreh¬ 
maschinen, die, je nach Werkstück und Beschaffenheit, das 
benötigte Werkzeug auf eigene Veranlassung einlegen und 
damit arbeiten. 

Ein weiteres Beispiel für künstliche Intelligenz stammt aus 
den USA. Wenn das System auch nicht in Prolog program¬ 
miert wurde, sondern in der von den Amerikanern verwende¬ 
ten Kl-Sprache LISP, demonstriert es doch deutlich die 
momentanen Fähigkeiten der Kl. Dieses Programm wurde für 
das Analysieren von Bodenproben eingesetzt und sollte aus 
den Angaben, die über die Probe gemacht wurden, erkennen 
können, ob sich in der Gegend, aus der die Probe stammte, 
Mineralstoffvorkommen befinden. Nach Aussagen der Ame¬ 
rikaner wurde mit Hilfe dieses Kl-Systems ein großes Vor¬ 
kommen entdeckt und zwar ohne die Probe monatelang zu 
untersuchen. 

In diesem Fall spricht man von Expertensystemen, die in 
der Wirtschaft seit längerer Zeit professionell eingesetzt wer¬ 
den. Diese Systeme verfügen über eine große Wissensbasis 
zu einem bestimmten Fachgebiet, das jederzeit abrufbar und 


SONDERHEFT 12 


45 








PROGRAMMIERSPRACHEN 


C 64 


in der Lage ist, Fragen zu diesem Fachgebietzu beantworten. 
Der größte Suppenhersteller in den USA setzt ein solches 
Expertensystem in Verbindung mit seinem Maschinenpark 
ein. Der »Experte« Computer gibt dem Techniker bei Produk¬ 
tionsstörungen konkrete Hinweise auf die Fehlerquelle und 
bietet gleichzeitig eine oder mehrere Lösungen an. 

Natürlich muß dieses Wissen dem Computer erst zur Verfü¬ 
gung gestellt werden. Dazu bildete sich in letzter Zeit das 
Berufsbild des »Knowledge Engineer« (Wissens-Ingenieur). 
Er hat die Aufgabe, sich das Wissen über ein Fachgebiet zu 
verschaffen und die Umsetzung dieses Wissens auf den 
Computer vorzubereiten. Das Wissen erhält er dabei von 
einem erfahrenen Fachmann. 

Die meisten auf dem Markt erhältlichen Expertensysteme 
sind heute nicht nur viel zu teuer, sondern auch nur für Groß¬ 
rechner erhältlich. Außerdem beschränken Sie sich größten¬ 
teils auf bestimmte Fachgebiete. Die Bestrebungen gehen in 
Richtung flexibles Expertensystem. Diese Systeme bieten 
dem Anwender ein Grundprogramm, in das er sein spezielles 
oder globales Wissen eingeben kann. Dieses steht konstant 
zur Verfügung. Denkbar sind (theoretisch) Datenbanken, die 
das gesamte Wissen der Menschheit gespeichert haben. 
Wenn Sie als Privatmann dann von zu Hause auf diese Daten 
zugreifen können, dürfte nicht nur ein Traum mancher Kl- 
Förscher erfüllt sein. Dann wird sich auch die totale Informa¬ 
tionsgesellschaft gebildet haben. 

Damit sind die Anwendungsbereiche der Kl allerdings noch 
nicht erschöpft. Ein weiteres Kl-Problem ist die Bilderken¬ 
nung. Wenn der Mensch einen Vogel sieht, weiß er eben, daß 
es sich um einen Vogel handelt. Zwar ist das Sehen für Com¬ 
puter durch die Digitalisiertechnik heute kein Problem mehr, 
die Schwierigkeit besteht in der Herstellung des Bezugs zum 
Bild. Der Computer kann nicht ohne weiteres feststeilen, daß 


es sich um eine bestimmte Sache handelt, wenn nicht als 
Gegenstück die Sache zum Vergleich im Speicher bereit¬ 
steht. Da jedoch bewegliche Körper verschiedene Zustände 
eingehen können, ist die Schwierigkeit dieser Aufgabe für 
den Computer leicht abzuschätzen. 

Ein letztes Arbeitsgebiet der Kl-Fbrscher ist die Sprache. 
So arbeiten die Japaner und Amerikaner darauf hin, dem 
Computer Ohren zu verleihen. Dann wäre es tatsächlich mög¬ 
lich, sich mit dem Computer zu unterhalten. Diese Errungen¬ 
schaft liegt zwar noch in weiter Ferne, doch ist es bereits 
möglich, mit einem Prolog-Programm in geschriebener Spra¬ 
che zu kommunizieren. Allerdings sollten sich nur Profis an 
ein solches Projekt heranwagen. 

Was bringt die Zukunft? 


Die Kl-Forschung steht heute an der Schwelle zur »mechani¬ 
schen Intelligenz«. Computer sollen für den Menschen das 
Denken übernehmen. Das ist zwar noch Zukunftsmusik, soll 
aber möglichst schnell realisiert werden. Es ist die Aufgabe 
des Menschen, die Entwicklung stets unter Kontrolle zu hal¬ 
ten. Es liegt in der Hand der Bewohner dieses Planeten, die 
Errungenschaften der Kl für die Verbesserung der vorherr¬ 
schenden Lebensbedingungen einzusetzen. Auf keinen Fall 
darf die Maschine den Menschen ersetzen oder zu einer gei¬ 
stigen Verarmung führen, was bei einem »denkenden« Com¬ 
puter nicht mehr auszuschließen ist. Wer sich näher mit Kl 
befaßt, fühlt sich manchmal erschreckt an den gläsernen 
Menschen oder den »Großen Bruder« erinnert. Trotz der Fas¬ 
zination, die Kl auf den Computer-Freak ausübt, muß auch 
auf die Gefahren dieser Wissenschaft hingewiesen werden. 
Wie gesagt, der Mensch hat es in der Hand. (rf) 


C - Die Sprache 
des Systemprogrammierers 


Für Programmierer, die sich nicht mit Maschinen¬ 
sprache abmühen wollen, aber trotzdem gerne 
auf Systemebene zugreifen würden, ist C genau 
das richtige. Strukturiert und maschinennah prä¬ 
sentiert sich diese Sprache dem Anwender. 

B isher konnte sich der begeisterte Computer-Freak 
noch mit seinen Basic- und Assembler-Kenntnissen 
durchschlagen. Bis vor einiger Zeit die Sprache C auf 
dem Software-Markt auftauchte. Von C hörte man Dinge, die 
das Herz jedes Programmierers höher schlagen lassen. Da 
ist zum einen die strukturierte Programmierung, zum anderen 
die Möglichkeit, maschinennah zu programmieren. Doch was 
verbirgt sich hinter C? Wo liegen die Vorteile gegenüber 
Basic, Pascal und anderen geläufigen Sprachen, von Kl- 
Exoten und Spezialentwicklungen abgesehen? 

C entstand während der Versuche der amerikanischen 
Bell-Laboratories, das Betriebssystem Unix zu entwickeln 
und auf verschiedene Computer umzusetzen. UNIX ist ein 
extrem leistungsfähiges Mehrbenutzer-(Multiuser) und 
Multitasking-Betriebssystem, das bis dahin fast ausschließ¬ 
lich in Assembler geschrieben war und dementsprechend 


wenig Verbreitung fand, denn es mußte für jeden Prozessor 
neu entwickelt werden. Diese Probleme plagten den Pro¬ 
grammierer Dennis M. Ritchie von den Bell-Laboratories und 
er schuf - C. Es sollte eine übertragbare, schnelle, also 
maschinennahe und standardisierte Hochsprache werden, 
mit allen Strukturbefehlen, wie man sie eigentlich nur von 
unstandardisierten, häufig recht langsamen Systemen her 
kannte. Als erstes wurde natürlich das Betriebssystem UNIX 
in C neu geschrieben. Seither ist Unix auf vielen Computern 
verfügbar. 

Der Sprachschatz von C ist standardisiert. Es entfallen die 
aus Basic bekannten Schwierigkeiten mit vielen Dialekten, 
die nichts mehr gemein haben. So können C-Programme auf 
kleinen, billigen Terminals entwickelt und in nahezu unverän¬ 
derter Form auf den teuren Supercomputern eingesetzt wer¬ 
den. 

C-Programme zeichnen sich auch durch eine hohe 
Geschwindigkeit aus, vor allem, wenn von der Möglichkeit 
der maschinennahen Programmierung Gebrauch gemacht 
wird. So können beispielsweise mit einem einzigen Befehl 
Bits rotiert werden, ebenso leicht können einzelne Bit eines 
Byte direkt angesprochen werden. Außerdem ist es möglich, 
häufig benutzte Werte in Prozessorregistern abzulegen (zum 


46 


SONDERHEFT 12 











C64/C128 


PROGRAMMIERSPRACHEN 


Beispiel Schleifenindizes), was den Vorteil bringt, daß der 
Prozessor direkt, ohne Umwege über Adreßschiebereien, 
auf die Daten zugreifen kann. Diese Vorteile dürften sicher 
auch so manchen Assembler-Freak dazu veranlassen, sich 
mit C zu beschäftigen. 

Der einzige Standard 


Nun zu einer Eigenheit von C, die den Basic-Benutzer 
anfangs zumindest entsetzen wird: die Programmeingabe. In 
Basic sieht es (bei einfachen Versionen) noch so aus: 
Zeilennummer...Befehll:Befehl2:... 

Außerdem hat man den Direktmodus, Basic ist eine Inter¬ 
pretersprache, über den vieles vor dem Einbau ins Programm 
getestet werden kann. Fehlermeldungen werden - während 
des Programmlaufs - oft in rauhen Mengen auf uns losgelas¬ 
sen. 

C dagegen ist eine Compiler-Sprache. Bei nahezu allen C- 
Systemen wird das Programm über einen speziellen Editor 
eingegeben, der oft viele Funktionen einer professionellen 
Textverarbeitung besitzt. Dabei wird das Programm an einem 
Stück eingegeben, beziehungsweise einzelne Module wer¬ 
den aneinandergehängt. Erhält der Programmtext das Prädi¬ 
kat »wertvoll«, kann man mit Schritt zwei beginnen: dem Com- 
pilieren. Hier wird das erstellte Programm in Maschinenspra¬ 
che übersetzt. Abschließend wird noch ein Link-Vorgang 
durchgeführt. Dabei wird um das eigentliche Programm noch 
ein Paket aller benutzten System- und sonstigen Unterrouti¬ 
nen gebastelt, so daß das Programm auch ohne die C- 
Umgebung lauffähig ist. Bei manchen C-Compilern wird beim 
Compilieren Assembler-Code erzeugt, das heißt, das Pro¬ 
gramm muß vor dem Linken noch zusätzlich assembliert wer¬ 
den. Bei kurzen Programmen gestaltet sich dieser »Edit- 
Compile-Link«-Zyklus noch erträglich. Doch bei größeren 
Gebilden sind Compilier- und Linkzeiten von mehreren Minu¬ 
ten keine Seltenheit, sondern die Regel. Befinden sich dann 
noch Fehler im Programm, muß der ganze Vorgang neu 
durchlaufen werden. Deshalb sollte der Programmierer dar¬ 
auf achten, daß der Quelltext gut vorbereitet wurde. Ausführ¬ 
liche Vorarbeiten sind vor der eigentlichen Programmierung 
notwendig. 

Edit-Compile-Link-Run 


Die Ablaufgeschwindigkeit der Programme wiegt diesen 
Nachteil wieder auf. C unterscheidet sich auch noch in ande¬ 
ren Punkten von herkömmlichen Programmiersprachen. So 
hat man beispielsweise nicht alle Befehle im eigentlichen 
Sprachkern (dieser umfaßt lediglich 28 Befehle (Tabelle 1), 
wie beispielsweise die Anweisungen für Schleifenkonstrukte 
und Variablendefinitionen. Alles andere, wie etwa Befehle zur 
Bildschirmausgabe, wird in Form von Systembibliotheken auf 
Diskette mitgeliefert. Das Konzept liegt auf der Hand: Kompa¬ 
tibilität. Denn alles, was auf die Maschine direkt zugreift, wird 
ausgelagert und nur bei Gebrauch in das Programm einge¬ 
bunden. Jeder Computer hat unterschiedliche Betriebssy¬ 
stemroutinen, für die dann die Systembibliotheken angepaßt 
werden müssen. 

Doch nun zu den weiter oben bereits angesprochenen 
Variablendeklarationen. In Basic kennen wir (in dieser explizi¬ 
ten Form) solche Vereinbarungen eigentlich nicht. Dort kann 
einfach mitten im Programm eine Variable verwendet werden, 
ohne daß diese vorher irgendwie gesondert definiert worden 
wäre. C jedoch verlangt, ähnlich wie Pascal, die Deklaration 
jeder Variablen vor ihrer Benutzung. Eine solche Definition 
sieht dann beispielsweise folgendermaßen aus: 
int a 
int a,b 


Die 28 C-Schlüsselwörter 

auto 

default 

extern 

int 

sizeof 

Union 

break 

do 

float 

long 

static 

unsigned 

case 

double 

for 

register 

struct 

while 

char 

eise 

got 

return 

switch 

continue 

entry 

if 

short 

typedef 


Tabelle 1. Die Standard-Schlüsselworte von C 


Im ersteh Beispiel wird eine Integer (Ganzzahlvariable) mit 
dem Namen »a« vereinbart. Ebenso im zweiten Beispiel, nur 
zusätzlich noch eine Variable »b«. Integer werden oft in zwei 
Byte gespeichert und meist vorzeichenbehaftet verwendet. 
Integer, wie sie oben definiert wurden, erstrecken sich »nur« 
über den Bereich zwischen -32868 und 32867. »Long inte¬ 
gere« werden genauso definiert wie die gewöhnlichen, nur 
mit vorangestelltem »long«. 
long int e,f,g 

Diese Zahlen (sie belegen doppelt soviele Bytes als die 
normalen Ganzzahlvariablen) haben eine »Bandbreite« von 
-2147483648 bis 2147483647. 

Es können auch »short integere« (sie belegen 1 Byte), vor¬ 
zeichenlose Zahlen (»unsigned«), Zeichenvariable (»char«) 
und Fließkommazahlen (»float«) vereinbart werden. 

Dem Basic-Programmierer mag es unverständlich und 
umständlich erscheinen, jede Varible vor der Verwendung 
definieren zu müssen. Doch hinter diesem scheinbaren 
Nachteil verbirgt sich eine große Hilfe. Jeder, der umfangrei¬ 
chere Basic-Programme schreibt, wird zugeben, daß er es 
mit der Eindeutigkeit von Variablen nicht so genau nimmt. 
Hier ist »E« mal Schleifenindex, mal steht es als Variable zur 
Bere^, lung der Einwohner in Hinterdupfing. Und am Ende 
hat »E« dann einen Wert, den es gerade nicht hätte haben 
dürfen. Bei C weiß man eben immer, welche Variable wofür 
verwendet wird. Außerdem lassen sich lokale Variable defi¬ 
nieren, also solche, die nur für ein spezielles Unterprogramm 
verwendet werden und im Hauptprogramm keine Verwen¬ 
dung finden können. 

C ist eine strukturierte Hochsprache. Der Programmierer 
hat also alle Möglichkeiten zur strukturierten und modularen 
Programmierung. Es gibt die IF.ELSE-Struktur, FOR-, 
WHILE-, DO..WHILE- sowie SWITCH..CASE-Konstruktionen. 
Aus dieser Auswahl sehen wir uns die IF.ELSE-Anweisung 
näher an. In C lautet das allgemeine Format: 
if (logischer Ausdruck) Befehl 1 

eise Befehl 2 

Wo bleibt das von fast allen anderen Programmiersprachen 
her bekannte »then«? Wir brauchen es ganz einfach nicht. 
»Befehl 1« wird ausgeführt, wenn der logische Ausdruck wahr 
ist, ansonsten tritt »Befehl 2« in Aktion. Hierbei zeigt sich ein 
weiterer Vorteil von C-Programmen. Befehle tragen keinen 
unnötigen Ballast mit sich herum, alles kann kurz und einfach 
umschrieben werden. Doch zurück zu IF..ELSE. Ein kleines 
Beispiel könnte so aussehen: 
lf (a<b) c=a 

eise c=b 

Wenn also »a« kleiner ist als »b«, dann wird »c« mit »a« 
gleichgesetzt, sonst wird der Befehl nach ELSE ausgeführt 
(c=b). So einfach kann das sein. 

In C braucht man kein umständliches »x=x+1«, um die 
Variable x zu inkrementieren (um 1 zu erhöhen), dafür hat 
man spezielle Befehle. So hat »++x« genau dieselbe Wir¬ 
kung wie die oben angeführte Variablendreherei. Ähnlich 
funktioniert auch das Dekrementieren mit »-x«. 

Doch Vorsicht ist gerade bei dieser Kürze der Anweisun¬ 
gen geboten! Schnell schreibt man »x-f+«, was auch einem 
gültigen Befehl entspricht, aber eine andere Funktion hat als 
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programmierung 




■ Grafik-Rom für den MPS802: das 
neue Betriebssystem ermöglicht u.a. Gra¬ 
fik mit 640 Punkten pro Zeile ■ Das Jah¬ 
resinhaltsverzeichnis: Damit Sie Artikel, 
Listings und Testberichte besonders schnell 
finden können ■ Das Listing des Monats: 
Leistungsstarkes Dame-Spiel zum Abtip¬ 
pen ■ Bedienung im Fachhandel: Unsere 
Tester berichten ihre Erfahrungen im Com¬ 
puterfachhandel, mit Femseh- und Radio¬ 
geschäften- bzw. Abteilungen ■ Die 
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Falls Sie »64'er« noch nicht regelmäßig bezie¬ 
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nement und nutzen die damit verbundenen Vor¬ 
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»+ ---x«. Auch sonst macht der Compiler bis auf Syntaxprü¬ 
fungen keine weiteren Fehlerabfragen; und zwar nicht, um 
dem Programmierer die Fehlersuche in seinen Produkten zu 
erschweren, sondern um ihm bei der Art der Anweisungen 
freie,Hand zu lassen. Es gibt sogar Situationen, in denen der 
Anfänger keinen Zusammenhang in den Anweisungen eines 
Programmes feststellen kann. Für den Profi jedoch mag 
gerade dies das »non-plus-ultra« darstellen. 

Ein weiteres, fast lebenswichtiges Werkzeug für den Pro¬ 
grammierer sind Pointer (=Zeiger). Es soll auf etwas gezeigt 
werden. Im speziellen C-Fall gibt es beispielsweise Variablen¬ 
pointer, über die man nicht den Inhalt der Variablen erhält, 
sondern direkt deren Adresse im Speicher. Was dadurch in 
Verbindung mit Bit-Manipulationen aus dem Computer her¬ 
ausgeholt werden kann, läßt sich erahnen. 

Was bietet C aber nun dem Maschinen-Freak? Die eben 
angesprochenen Pointer und auch die wichtigsten Bit- 
Befehle, die schließlich die maschinennahe Programmierung 
erst ermöglichen. So gibt es Befehle zum Shiften (Verschie¬ 
ben) der Bits in einem Byte natürlich in beide Richtungen, 
sowie und-/oder-/exklusiv-oder-Verknüpfungen und Einer¬ 
komplementbildung. In einem Beispiel sieht das folgender¬ 
maßen aus: 

#b< < 

wobei in »b« eine Adresse für einen Speicherplatz steht, mit 
»*« der Zugriff auf diesen »freigegeben« und schließlich die 
Bits einmal nach links geshiftet werden (was einer Multiplika¬ 
tion mit zwei entspricht). Zeigen die spitzen Klammern in die 
andere Richtung, so werden die Bits einmal nach rechts ge¬ 
shiftet, was einer Division durch zwei entspricht. Der Opera¬ 
tor für bitweises »und« heißt < & >, für »exklusiv oder« < " >, 
für »oder« < I >; ein < ~> bildet das Einerkomplement einer 
Zahl, was einem Umkehren aller Bits entspricht. Soviel zu den 
Elementen, die wohl hauptsächlich den Assembler-Pro¬ 
grammierer interessieren werden. 

Inzwischen dürfte es klar herausgekommen sein: C ist 
unglaublich flexibel und leistungsstark. Wesentlich leistungs¬ 
fähiger sogar als jede andere geläufige, höhere Programmier¬ 
sprache. Um auch einen C-Standard-Befehl zu erklären, 
sehen wir uns die PRINTF-Anweisung näher an. An dieser 
Anweisung läßt sich auch gut das durchdachte Konzept der 
Bibliotheksroutinen sowie die Flexibilität der Sprache 
demonstrieren. 

Ein letzter Vergleich mit Basic sei gestattet: 

PRINT "1234ABC" 

gibt die Zeichen zwischen den Anführungszeichen auf dem 
Bildschirm aus. Formatierte Zahlenausgabe ist im Basic V2.0 
des C 64 nicht über einen PRINT USING-Befehl, wie ihn viele 
andere Basic-Dialekte kennen, möglich. Man muß eigene 
Ausgaberoutinen in Assembler schreiben, wobei oft mit viel 
Aufwand recht gute Ergebnisse zu erzielen sind. Doch sind 
diese Routinen dann auch flexibel? Was macht der Program¬ 
mierer, der in Assembler noch nicht so bewandert ist? 

C bietet genügend Lösungen für diese Probleme. Das Zau¬ 
berwort heißt PRINTF und ist eine Abkürzung für »print for- 
mattet«, was soviel bedeutet wie formatierte Zeichenaus¬ 
gabe. PRINTF ist nicht im Sprachkern enthalten, sondern in 
einer der Standard-Bibliotheken untergebracht. Gerade des¬ 
halb konnte dieser Befehl so vielseitig gestaltet werden. 

Nach PRINTF folgt von Klammern eingeschlossen eine 
Umwandlungsvorschrift, die auch als Kontrollstring bezeich¬ 
net wird. Danach folgt, vom Rest durch Komma getrennt, die 
auszugebende Zahl. Anhand eines Beispiels läßt sich das 
veranschaulichen, 
printf ('%5d',z) 

Der Kontrollstring beinhaltet »%«,»5« und »d«. Das »%«- 
Zeichen kennzeichnet den Kontrollstring, also fängt jeder mit 
diesem an. Die »5« veranlaßt den Computer zur Reservierung 
eines (5 Zeichen langen) Leerzeichenfeldes. Das »d« schließ¬ 


lich gibt an, wie die Zahl umgewandelt werden soll, bevor sie 
rechtsbündig in das Leerzeichenfeld geschrieben wird. 
Reicht die angegebene Anzahl der Leerzeichen nicht aus, 
werden automatisch weitere angehängt. Die Zahl, welche die 
Anzahl der reservierten Leerzeichen festlegt (auch Feld¬ 
breite genannt), kann auch entfallen; in diesem Fall wird auto¬ 
matisch die richtige Feldbreite errechnet und verwendet. 
Außer »d« (für dezimale Integerzahl) stehen noch viele wei- 
tere Umwandlungsanweisungen zur Verfügung (Tabelle 2). In ' 
Listing 1 sehen Sie noch ein kurzes C-Programm, das einige 
der hier angesprochenen Befehle verwendet. Dabei gibt es 
noch eines anzumerken: Das Hauptprogramm beginnt immer 
mit »main ()«. Das eigentliche Programm wird von geschweif¬ 
ten Klammern umrahmt. 


/« Programm our Berechnung der Quadrate der Zahlen von 1 bia 100«/ 

main() 

{ 

lnt x,q; 

printf(’Dieses Programm berechnet das Quadrat der Zahlen 1-10"); 
for (i * li * <s 10; *+i) /* Schleife von 1 bis 10 */ 

{ 

q = a * a; /* Quadrieren */ 

printf ("%d",a,q); /« Formatierte Ausgabe */ 

> 

} /* Ende Programm */ 

Listing 1. Beispielprogramm in C 


Formatanweisungen für den PRINT-Befehl 

Id 

lange Integer 

Io 

lange Oktalzahl 

Ix 

lange Hexadezimalzahl 

b 

ganzzahlige Binärzahl 

c 

einzelnes Zeichen 

d 

ganzzahlige Dezimalzahl 

e 

Fließkommazahl mit Exponent 

f 

Fließkommazahl in voller Länge ohne Exponent 

g 

verwendet entweder e oder f, je nach Speicherbedarf 

h 

kurze Integer 

0 

ganzzahlige Oktalzahl 

s 

Zeichenkette 

u 

vorzeichenlose Integer 

X 

ganzzahlige Hexadezimalzahl 


Tabelle 2. Formatanweisungen 


Doch wofür kann man diese offensichtlich einmalige Pro¬ 
grammiersprache überhaupt einsetzen? Beispiele lassen 
sich genügend anführen. Durch geschickte Programmierung 
lassen sich, beispielsweise bei Grafikprogrammen, Ge¬ 
schwindigkeiten erzielen, die nahe an die reiner Assembler¬ 
programme heranreichen, jedoch durch wesentlich über¬ 
sichtlicher strukturierte und vor allem portable Programmie¬ 
rung erstellt wurden. Außerdem ist ein Paradebeispiel der 
Amiga. Das Betriebssystem dieses Computers ist in C 
geschrieben. 

Auch viele Universitäten kommen von den althergebrach¬ 
ten Sprachen (Cobol, Fortran) langsam ab und wenden sich 
immer mehr C zu. 

Lohnt es sich also, für den Heimcomputer einen C-Com- 
piler zu beschaffen? Wer nicht erwartet, daß diese Sprach- 
umsetzungen all das bieten, was für PCs und Minicomputer 
verfügbar ist und trotzdem die Programmierung unter C ler¬ 
nen möchte, ist sicherlich gut beraten, sich einen Compiler 
zu leisten. C hat Zukunft eingebaut. (Ingolf Krüger/rf) 
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C64 


Freesoft-Förth: 

Die starte Alternative 


Software zum Nulltarif ist der Traum eines jeden 
Computerbesitzers. Jetzt können Sie sich die lei¬ 
stungsfähige Programmiersprache Forth auf die¬ 
sem Weg für den C64 erschließen. 

D ie Programmiersprache Forth ist jetzt in der Version 
Ultraforth 83 für den C64 erhältlich. Der Clou daran ist 
nun jedoch, daß die Förth-Systemsoftware als Freesoft 
veröffentlicht wurde. Das heißt, man kann in den Besitz dieser 
Programmiersprache kommen ohne viel Geld auszugeben. 
Eine kleine Begriffserläuterung wäre im Zusammenhang mit 
Freesoft allerdings angebracht. Public Domain (PD) bedeutet 
frei übersetzt »für die Öffentlichkeit«. Auf den Computer 
angewandt, heißt PD nichts anderes, als daß es Programm¬ 
autoren gibt, die, wenn sie ein Programm entwickeln, ihr Wis¬ 
sen und Können fast kostenlos zur Verfügung stellen. PD- 
Programme können zum Selbstkostenpreis bezogen wer¬ 
den, sind frei kopierbar und dürfen an andere Computerbe¬ 
nutzer weitergegeben werden. Freesoft und Shareware sind 
Ableger des PD- Bereichs, mit denen der Anwender genauso 
verfahren kann, jedoch meist im Programmvorspann gebeten 
wird, bei intensiver Nutzung des Programms einen geringen 
Geldbetrag an den Autor zu überweisen. Oft erhält man dann 
eine neuere Programmversion und/oder eine ausführliche 
Programmdokumentation. Angeboten werden auf diesem 
Weg hauptsächlich Utilities, also kurze Hilfsprogramme, 
Spiele sowie seit einiger Zeit auch Programmiersprachen. 
Und eine dieser Programmiersprachen, genauer Ultraforth 
83, das uns in der Version 3.5 zum Test vorlag, wurde von 
Mitgliedern der Förth-Gesellschaft e.V. für den C64 ent¬ 
wickelt. Das Förth-System ist auf zwei beidseitig beschriebe¬ 
nen Disketten erhältlich, auf denen sich Förth, Erklärungs¬ 
texte, Hilfsprogramme, Quelltexte, ein Assembler und Grafik¬ 
routinen befinden. Weiterhin lag uns auch noch ein Hand¬ 
buch als Ringordner vor, das nach Aussagen der Autoren 
ständig erweitert wird und später sogar über den Buchhandel 
erhältlich sein soll. Ultraforth 83 ist eine wirklich fantastische 
Umsetzung der Sprache auf dem C64, die nahezu keine 
Wünsche offen läßt. Auch für andere Computer sind bereits 
Umsetzungen geplant bzw. erhältlich. 

Multitasking integriert 


Geladen wird Förth von der »Systemdiskette« auf der auch 
eine Demonstration sowie verschiedene Hilfsbildschirme 
(Screens) enthalten sind, durch LOAD »*«,8. Nach dem Pro¬ 
grammstart beginnt bereits eine recht eindrucksvolle 
Multitasking-Demo, bei der mehrere Operationen scheinbar 
gleichzeitig ablaufen. Die fünf Buchstaben-Sprites F,0,R,T 
und H verfolgen den frei verschiebbaren Cursor über den 
Bildschirm. Nachdem die Demo gelöscht wurde, befindet 
man sich im Förth-Interpreter, in dem alle fehlerfreien Einga¬ 
ben sofort ausgeführt werden. Dieses lnterpreter-/Compiler- 
Konzept ist ein wesentliches Merkmal des gesamten Förth- 
Konzeptes. Fast alle Eingaben können über den Interpreter- 
Modus sofort getestet und gegebenenfalls korrigiert werden. 
Dies geschieht, ohne den langwierigen Edit-Compile-Link- 
Zyklus anderer Compilersprachen gehen zu müssen. Über 
den ebenfalls integrierten Editor können Programme einge¬ 


geben, editiert und gespeichert werden. Beim Laden werden 
die Programme sofort compiliert, was zum Beispiel einen 
gewaltigen Geschwindigkeitsvorteil gegenüber Basic-Pro- 
grammen bringt. So behält man die Flexibilität des Interpre¬ 
ter-Modus sowie die hohe Geschwindigkeit compilierter 
Fiorth-Programme. Eingegeben werden die Programme wie in 
den meisten anderen Förth-Umsetzungen auch bei Ultraforth 
83 über »Screens«. Das sind Textseiten, in denen das Pro¬ 
gramm erstellt wird und die dann hintereinander auf der Dis¬ 
kette abgelegt werden. Der Befehlsumfang von Ultraforth 
83 ist zwar nicht so überdimensioniert wie bei Super-Förth, 
jedoch sehr umfangreich und reicht vollkommen zur Pro¬ 
grammierung aus. Der Anwender wird dadurch erst richtig an¬ 
geregt, eigene Befehlsworte zu definieren, worauf die Philo¬ 
sophie von Förth gerade abzielt. Hervorragendes wurde von 
den Programmierern auch bei der Umsetzung des Multitas¬ 
king auf den C 64 geleistet, so daß es sogar Druckerspooler 
gibt. Dies sind Programme, die im Hintergrund ablaufen und 
Text oder Grafik ausdrucken, ohne das Hauptprogramm auf¬ 
zuhalten. Weiterhin sind in der C 64-Version leistungsfähige 
Grafikbefehle als eigene Förth-Wörter vordefiniert. Sie kön¬ 
nen in eigenen Programmen ebenso verwendet werden wie 
alle bereits zur »Grundausstattung« eines jeden Förth- 
Systems gehörenden Worte. 

Starke Befehle 


Das ganze System hält sich übrigens an den im Jahr 1983 
definierten 83’er Standard, der bisher auf Computern wie 
dem C 64 kaum bis gar nicht anzutreffen war. Es handelt sich 
dabei um eine leistungsfähige Weiterentwicklung des 
ursprünglich auch als Public Domain Version verbreiteten fig- 
Förth. Ultraforth 83 wurde aber auch um einige für die Pro¬ 
grammierung wichtige Befehle erweitert. Diese sind zwar 
nicht im Standard beschrieben, jedoch durchaus sehr nütz¬ 
lich. Zum Beispiel die vielen C64-spezifischen Befehle, wie 
»curoff«, der ein Ausschalten des Cursors bewirkt, etc. 

Neben den weiter oben schon angesprochenen Grafikbe¬ 
fehlen wie Grafik ein/aus (graphic/nographic) enthält das 
System auch eine vollständige Implementation der »Turtle- 
Grafik«-Befehle (pencolor, right, left etc.) sowie starke 
SPRITE-Routinen. Die unter Förth übliche UPN-Schreib- 
weise bleibt natürlich auch hierbei erhalten. UPN bedeutet 
Umgekehrte Polnische Notation, auch Präfix-Schreibweise 
genannt, und beschreibt eine spezielle Eingabeart mathema¬ 
tischer Ausdrücke. Dabei werden zuerst die Zahlen und dann 
die auszuführenden Rechenzeichen eingegeben. Diese 
Schreibweise wird auch bei verschiedenen programmierba¬ 
ren Taschenrechnern verwendet und ist zwar etwas gewöh¬ 
nungsbedürftig aber auch ungeheuer flexibel. Sie kann, als 
interessantester Effekt, mit sehr hoher Geschwindigkeit 
interpretiert und ausgeführt werden. Näheres dazu im Bei¬ 
spiel 2 am Ende dieses Artikels. 

Haadbuch für Könner 


Das Handbuch zu Förth gliedert sich in vier Teile sowie einen 
Anhang, der sich hauptsächlich den auf den Disketten be- 
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findlichen Programmen und Hilfsmitteln sowie den Grafikbe¬ 
fehlen widmet. Außerdem werden in diesem Teil auch Abwei¬ 
chungen von Ultraforth 83-Befehlen zu den in verschiede¬ 
nen Lehrbüchern verwendeten Ausdrücken sowie die Feh¬ 
lermeldungen angesprochen. Der erste Teil umfaßt Erläu¬ 
terungen zu den verschiedenen systemspezifischen Förth- 
Strukturen sowie zum allgemeinen Aufbau von Förth-Worten 
und deren Verknüpfung im Speicher. Weiterhin werden die 
Multitasking-Fähigkeiten, Möglichkeiten zur Fehlersuche 
und die Anpassung von Ultraforth 83 an andere Computer 
beschrieben. Im zweiten Teil werden sämtliche Befehle, die 
irgendwie mit Ultraforth 83 Zusammenhängen, genau aufge¬ 
führt und in einem kurzen Erklärungstext beschrieben. Eine 
Begriffsdefinition findet sich in Teil drei. In Teil vier schließlich 
wird der sehr gute Bildschirmeditor für den C64 recht aus¬ 
führlich beschrieben. 

Abschließend läßt sich sagen: Ultraforth kann im Vergleich 
zu anderen Förth-Varianten spielend mithalten. Zusätzlich hat 
es aber den großen Vorteil, daß man in den Besitz all seiner 
Fähigkeiten fast kostenlos gelangen kann. Besonders die 
hervorragenden Befehle zum Multitasking-Betrieb, die Gra¬ 
fikbefehle und der gute Bildschirmeditor verdienen volles 
Lob. Sie beweisen, daß auch und gerade Freesoft- 
Programme sehr gute Leistungsmerkmale aufweisen kön¬ 
nen. Ultraforth 83 ist also eine rundum gelungene Umset¬ 
zung dieser interessanten Programmiersprache auf dem 
C64. 

Als Beispiele zeigen wir Ihnen noch zwei kleine Förth- 
Programme, die sehr gut die einfache Struktur einer Schleife 
sowie die UPN-Schreibweise verdeutlichen. 

Beispiel 1. 

: LI DO 10000 1 I . LOOP ; 

Dieses kleine Förth-Programm durchläuft eine Schleife 


10000 mal und gibt jeweils den Schleifenindex auf dem Bild¬ 
schirm aus. Der Doppelpunkt am Anfang ist ein festes Förth- 
Wort, das den Beginn einer neuen Wortdefinition festlegt. 
»LI« ist der Name des neuen Wortes, unter dem das »Pro¬ 
gramm« nun immer aufgerufen werden kann. »DO« und 
»LOOP« bilden den Schleifenrahmen. Da die Schleife den 
Rahmen von 1 bis 10000 durchlaufen soll, wird zuerst 
10000 auf den Stapel gelegt und danach die 1. »I« legt den 
Schleifenindex auf den Stapel. ».« ist mit dem »PRINT« von 
Basic vergleichbar. Es holt den obersten Stapelwert, zeigt ihn 
dann auf dem Bildschirm an und löscht ihn danach vom Sta¬ 
pel. »;« beendet schließlich die Wortdefinition. 

Beispiel 2. 

Die Rechnung 3*7 + 25 sähe in Präfix-Schreibweise so 
aus: 25 3 7 * + 

Zuerst werden die Zahlen 25, 3 und 7 auf dem Stapel pla¬ 
ziert. Der Stapel sieht dann folgendermaßen aus (TOS=Top 
of Stack bedeutet oberstes Stapelelement): 

7 (TOS) 

3 

25 

Das Wort »*« multipliziert die zwei obersten Stapelele¬ 
mente und speichert das Ergebnis anstelle dieser Zahlen als 
TOS: 

7 

3-> 21 (TOS) 

25 25 

Schließlich wird mit dem Befehl»+« eine Addition durchge¬ 
führt und das Ergebnis wieder als TOS gespeichert. 

21 

25 —> 46 (TOS) (Ingolf Krüger/jk) 

Bezugsquelle: Förth-Gesellschaft eV, Schanzenstraße 27, 2000 Hamburg 6, Tel: 040-435070 
(Mo 11-18 Uhr) 


Basic im Galopp 


Wie schnell sind Basic-Compiler wirklich? Brin¬ 
gen sie den erhofften Geschwindigkeitsgewinn 
gegenüber interpretiertem Basic? Wir haben die 
Compiler für den C64 und C128 einem gründli¬ 
chen Test unterzogen. 

C ompiler ist das Zauberwort, das jedem Basic-Program- 
mierer einen Hauch von Maschinensprache vermittelt. 
Und je mehr davon, desto besser. Wie weit die Compiler 
an die Maschinensprache heranreichen und welche Vorzüge 
sie sonst noch bieten, haben wir zum Gegenstand dieses 
Tests gemacht. 

Doch bevor wir uns die Compiler näher ansehen, sollten wir 
uns mit den Grundlagen der Compilierung vertraut machen. 
Im Vordergrund steht beim Compiler natürlich die Geschwin¬ 
digkeit. Dann sollte das Basic-Programm am besten ohne 
Änderungen compilierbar sein. Das kann aber schon zu Pro¬ 
blemen führen. Denn eventuell hat man eine Befehlserweite¬ 
rung geladen, die nicht übersetzbar ist. Oder man muß um 
der Geschwindigkeit willen den Compiler durch spezielle 
Befehle steuern. Zum Beispiel bei Schleifen, die von Integer- 
Variablen abhängig sind. Im Basic 2.0 ist das verboten, bei 
Compilern läßt sich hier viel Zeit gewinnen. 

Der Grundgedanke ist einfach: aus Basic soll Maschinen¬ 
sprache werden. Doch leider finden nicht alle Basic-Befehle 
ihre Entsprechungen in der Maschinensprache. Eher das 


Gegenteil ist der Fall. Alle Berechnungen, die Dezimalzahlen 
enthalten, String-Operationen, IF-THEN-Abfragen etc. müs¬ 
sen in ganze Befehlsketten zerlegt werden. Sprünge, Unter¬ 
programmaufrufe, POKEs, DATA-Zeilen oder Ausgaben mit 
PRINT sind dagegen noch einfach zu übersetzen. Die Über¬ 
setzung in reine Maschinensprache wäre immer mit erhebli¬ 
chen Speicherplatzverlusten verbunden. 

Eine zweite Möglichkeit ist die Erzeugung des sogenann¬ 
ten »Adreßcodes«. Dazu wird das Programm nicht in 
Assembler-Code übersetzt, sondern als Adreß-, Speed- oder 
Pseudo-Code (P-Code). Also nicht in Maschinensprache, 
sondern eine dem Basic ähnliche Struktur. Dieser P-Code ist 
extrem kurz, er benötigt im günstigsten Fall knapp die Hälfte 
eines Basic-Programms. Zur Ausführung benötigt er aller¬ 
dings noch einen speziellen Interpreter, eine Programmbi¬ 
bliothek und etwas mehr Zeit. Der neue Interpreter und die 
Programmbibliothek bilden das »Run-Time-Modul«. In den 
meisten Fällen ist die Ausführungszeit nur wenig höher als bei 
echtem übersetzten Maschinen-Code. Dieser ist nämlich nur 
dann effektiver, wenn das Basic-Programm sich mit wenigen 
Maschinensprachebefehlen übersetzen läßt. Bei transzen¬ 
denten Funktionen, wie Sinus- oder Wurzelberechnung, muß 
auch der Maschinen-Code auf die langsameren Gleitkomma- 
Routinen zurückgreifen. 

Zum Test angetreten sind fünf Compiler, drei für den C 64, 
zwei für den C128. Dies sind Austro-Comp, Austro-Speed, 
Basic 64, Austro-Comp 128 und Basic 128. In Tabelle 1 fin- 
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C64/C128 


Zeit in 
Sek, 


2,0 


1 , 50 - 


0 , 50 ' 


Bild 1.1000 Durchläufe einer FOR-NEXT-Schleife 

2,10 




den Sie die dazugehörigen Daten: Preis, Lieferumfang und 
Bezugsadresse. 

Wie man einen Compiler testet? Man mißt ganz einfach die 
Zeit. Dabei hilft uns ein Programm, das die wichtigsten zeitkri¬ 
tischen Programmteile enthält. Jeder Teil wird im Test 1000 
mal durchlaufen, so daß äußere Einflüsse (zum Beispiel Inter¬ 
rupts) nicht ins Gewicht fallen. Die interne Uhr TIS ist für den 
Test ausreichend genau. Ein solcher Benchmark-Test ist in 
Listing 1 abgedruckt. Vor und nach jedem Schleifendurchlauf 


wird die Anfangs- beziehungsweise Endzeit gespeichert. Am 
Schluß des Programmes, ab Zeile 900, wird dann die Laufzeit 
ermittelt. Die Tests gliedern sich wie folgt: 

Benchmark 1: FOR-NEXT-Schleife 

Benchmark 2: IF-THEN-Schleife 

Benchmark 3: Rechnen mit und Klammern 

Benchmark 4: GOSUB und RETURN 

Benchmark 5: Indizierte Felder beschreiben 

Benchmark 6: Funktionen SIN, TAN, EXP, VAL, STRS 
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Austro-Comp 

Austro-Speed 

Austro-Comp 128 

Basic 64 

Basic 128 

Lieferumfang 

1 Diskette 

1 Diskette 

1 Diskette 

1 Diskette 

1 Diskette 


1 Handbuch 

1 Handbuch 

1 Handbuch 

1 Handbuch 

1 Handbuch 


1 Dongle 

1 Dongle 

1 Dongle 



Preis 

Bei A-Speed enthalt. 

129 Mark o. MwSt. 

190 Mark o. MwSt. 

99 Mark 

99 Mark 

Bezugsadresse 

Digimat 

Digimat 

Digimat 

Data Becker 

Data Becker 


Tabelle 1. Bezugsadresse und Preise der Compiler. Ein Dongle ist ein Kopierschutzstecker. 



Basic 

V 2 

Austro- 

Comp 

Austro- 

Speed 

Ba 

P-Code 

sic 64 
M-Code 

Basic 

V7 

Austro- 
Comp 128 

Bas 

P-Code 

ic 128 
M-Code 

Benchmark 1: 

1,37 

1,15 

1,10 

1,03 

1,02 

2,10 

1,35 

0,63 

0,65 

Benchmark 2: 

10,20 

2,07 

1,38 

1,85 

1,23 

14,40 

1,93 

0,95 

0,43 

Benchmark 3: 

70,92 

65,35 

63,93 

62,47 

61,45 

77,55 

41,62 

26,95 

26,11 

Benchmark 4: 

5,32 

1,35 

1,25 

1,35 

1,30 

13,52 

1,57 

0,97 

0,95 

Benchmark 5: 

8,78 

3,67 

2,78 

3,25 

2,77 

13,38 

4,48 

2,87 

2,36 

Benchmark 6: 

130,07 

122,42 

113,97 

120,35 

119,35 

142,57 

126,57 

65,50 

64,70 

Benchmark 7: 

25,87 

2,75 

2,63 

2,47 

2,25 

49,35 

2,50 

2,40 

2,18 

Benchmark 8: 

144,16 

74,95 

61,60 

40,53 

33,52 

181,38 

52,18 

36,90 

30,78 

Gesamtzeit: 

100,0% 

69,0% 

62,7% 

58,8% 

56,2% 

124,6% 

58,5% 

34,6% 

32,3% 

Compilierdauer 
für EDDI 

2:50 

3:00 

6:20 


2:20 

4:00 

Länge des Compi- 
lates EDDI 

(Bl=Blocks) 

24 Bl. 

32 Bl. 

32 Bl. 

40 Bl. 


51 Bl. 

60 Bl. 



Tabelle 2. Die Ergebnisse der Benchmark-Tests im Überblick 


Austro-Comp, Austro-Speed und Austro-Comp 128: Zeilennummern 100, 110, 120, 130, 150, 160 (Listing 2) 


Basic 64 und Basic 128: Zeilennummern 40, 60, 100, 110, 120, 130, 150, 160 (Listing 2) 


Tabelle 3. Welche Fehler wurden von den Compilern erkannt? 


Benchmark 7: READ und RESTORE 

Benchmark 8: Zufallsfeld mit 100 Elementen mit Bubble- 

Sort-Algorithmus sortieren. 

Test 9: zweimal UNDEFD STATEMENT (falsche Zeilen¬ 
nummer) und einmal SYNTAX-ERROR provozieren. Zeile 
750 enthält eine im Basic V2 nicht erlaubte Schleifenvariable 
1%. In 770 wird gewartet, bis die < RETURN >-Taste ge¬ 
drückt und wieder losgelassen wurde. 

Die Ergebnisse des Benchmark-Tests sind in Tabelle 2 
zusammengefaßt und in den Bildern 1 bis 8 grafisch darge¬ 
stellt. Die Ergebnisse dieser Tests liefern allerdings kein opti¬ 
miertes Bild jedes einzelnen Compilers. Durch Eingriffe in das 
Programm und Anweisungen an den Compiler können in der 
Regel noch höhere Leistungen erzielt werden. Für den C128 
mußte die Adresse in Zeile 770 geändert werden. Es heißt 
dann jeweils »...WAIT 212,...«. 

Der zweite Lauf ist ein Test der Compilierdauer. Wir greifen 
hier auf das schon im letzten Compiler-Test (64’er, Ausgabe 
2/85) verwendete Programm »Eddi« zurück. Dabei gibt es bei 
den C128-Compilern kein lauffähiges Compilat, denn die 
Abfrage der Funktionstasten ist für den C 64 ausgelegt und 
somit nicht auf den C128 übertragbar. Das ist auch nicht so 
wichtig, es kommt hier nur auf die Zeit an, die zum Compilie- 
ren benötigt wird. Eddi bietet dabei noch zusätzliche Tücken. 
Die sind in der absolut Basic-typischen Spaghetti-Pro- 
grammierung enthalten, welche sogar einen Programmfehler 


hervorgerufen hat: Zeile 1070 von Eddi enthält eine IF-Ab- 
frage, deren Sprungziel nichtexistiert. Die Abfrage ist jedoch 
sinnlos, der Fehler kommt im Ablauf nicht zum Tragen. Alle 
fünf Compiler haben auf diese Situation richtig reagiert: Der 
Fehler wurde angezeigt, beeinflußte jedoch den Compilier- 
ablauf nicht. 

Geschwindigkeit allein reicht aber nicht aus. Auch Pro¬ 
grammierfehler wie in Zeile 1070 sollte ein Compiler ohne 
Absturz überwinden - zumindest darf er sie nicht ohne Mel¬ 
dung übergehen. Darum haben wir Listing 2 mit Fehlern voll¬ 
gespickt. Lediglich Zeile 10 enthält keinen »echten« Fehler, 
sondern eine undimensionierte Feld-Variable. 

Austro-Comp & Austro-Speed 


ln Basic sind Felder maximal bis zum Index 10 zulässig. Da ein 
Compiler auch diese Felder reservieren muß, wird zusätzlich 
die selbständige Dimensionierung überprüft. Es darf also 
keine Fehlermeldung erscheinen. Einige Fehler sind während 
des Compilierens kaum zu finden. Welche Fehler erkannt 
wurden, entnehmen Sie bitte Tabelle 3. 

Austro-Comp und die verbesserte Version Austro-Speed 
werden mit einem ausreichenden Handbuch und einem 
besonderen Kopierschutz, dem Dongle, auf Diskette ausge¬ 
liefert. Ein Dongle ist ein Hardwarezusatz, der in den User- 
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Bild 3. Die Grundrechenarten und Kiammerrechnung 



Auslro- Basic 128 
Comp 128 P-Code 


Zeit in 
Sek. 


Bild 4. Bei GOSUB und RETURN kann viel gewonnen werden 

13,52 



Basic 128 
M-Code 


Port eingesteckt wird. Das Programm fragt das Vorhanden¬ 
sein ab und läuft immer nur mit einem bestimmten Dongle. Die 
Bedienung beider Programme ist identisch. 

Bevor man den Compiler startet, sollte man sich vergewis¬ 
sern, ob auf der Diskette genug Platz vorhanden ist, um das 
Compilat, ein Zeilen-File und noch weitere, vom Compiler 
wieder gelöschte Hilfs-Files aufzunehmen. Das Zeilen-File 
enthält die Speicheradressen aller Programmzeilen. Das ist 
wichtig für den Fall, daß ein Laufzeitfehler auftritt. Das compi- 
lierte Programm meldet dann nur die Adressen, so daß der 
Fehler anhand des Zeilen-Files lokalisiert werden kann. 

Eine Besonderheit beider Compiler sind dynamische 
Arrays. Es ist im Gegensatz zu den meisten anderen Compi¬ 
lern erlaubt, Felder durch Variable zu dimensionieren. Die 
Anweisung DIM A(N) ist also erlaubt. 

In zwei Durchläufen arbeiten die Austro-Compiler das 
Basic-Programm Eddi ab. Austro-Comp benötigt dafür 2:50 
Minuten, Austro-Speed genau drei. Beide entdecken den 
Programmfehler und erzeugen ein 24 beziehungsweise 32 
Blöcke langes Compilat und das Zeilen-File. 


Basic 64 wird auf Diskette und mit einem Handbuch mittle¬ 
ren Umfangs ausgeliefert. Die Dokumentation ist durchweg 
gut, und führt in alle Funktionen des Compilers ein. Auch die 
Compiler-eigenen Zusätze (Compiler-Direktiven) sind im 
Handbuch ausreichend erklärt. 


Basic 64 


Basic 64 ist ein 2-Pass-Compiler, der jedoch über wesentlich 
mehr Einstellmöglichkeiten verfügt als die Austro-Compiler. 
Die Bedienung ist einfach, da sie durch ein Menü gesteuert 
wird. Dabei bietet er eine Fülle von Einstellmöglichkeiten und 
Compiler-Direktiven (Steuerung des Compilers aus dem 
Basic-Programm heraus). Basic 64 kann, wenn nötig, 
Maschinen-Code erzeugen und ihn mit dem P-Code vermi¬ 
schen. So können zum Beispiel zeitkritische Unterpro¬ 
gramme im Maschinen-Code compiliert sein, während das 
Hauptprogramm im platzsparenden P-Code geschrieben ist. 
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PROGRAMMIERSPRACHEN 


Bild 5. Das Füllen eines auf 1000 Felder dimensionierten Arrays 


Zeit in 
Sek. 


150- 


100 - 


130,07 


13,38 



Bild 6. Transzendente Funktionen (SIN, TAN, EXP, sowie VAL und STR$) werden 
kaum beschleunigt, da die Routinen des Interpreters benutzt werden. Nur Basic 
128 benutzt eigene Rechenrcv'men. 


142,57 



Basic 128 
M-Code 
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Weitere Möglichkeiten sind freies Verschieben des Compi- 
lats im Speicher, die Nutzung von mehr als 60 KByte, modifi¬ 
zierte Integer-Arithmetik und die Simulation von ON ERROR 
GOTO-Befehlen. 

Eine zusätzliche Eigenschaft, die ihn von anderen Compi¬ 
lern abhebt, ist der Warm-Overlay: Beim Nachladen von Pro¬ 
grammteilen werden die Variablen nicht gelöscht. Somit 
kommt Basic 64 dem Interpreter näher als andere. 

Der einzig einschränkende Faktor besteht in der variablen 
Dimensionierung (DIM A$(N)). Dies ist durch die spezielle 
Variablenbehandlung der Compiler nicht zulässig. Tritt trotz¬ 
dem eine solche Dimensionierung auf, fragt das Programm 
nach der Feldgröße, um diese für die Variable einzusetzen. 

Auch vor etwaigen Erweiterungen macht Basic 64 nicht 
halt. Simons Basic, ExBasic Level II, Supergrafik 64, Super¬ 
grafik 64+ und Basic 4.0 werden in uncompilierten Code 
(Non-Compiled-Code) abgelegt und zur Ausführung an den 
Interpreter übergeben. 

Nach 6:20 Minuten ist Basic 64 mit Eddi fertig. Auf der Dis¬ 
kette befindet sich nun das 32(40) Blocks lange P-(M-) Com- 
pilat. Der Fehler in Zeile 1070 wurde erkannt, es wurde trotz¬ 
dem ein lauffähiges Compilat erstellt. 

Austro-Comp 128 


Der C128-Compiler wird wie seine C64-Kollegen auf Dis¬ 
kette, mit Handbuch und Dongle ausgeliefert. Bis auf vier 
Befehle ist Austro-Comp 128 zum Basic 7.0 kompatibel. 
Diese Einschränkungen betreffen die Befehle TRAP, 
RESUME, COLLISION und GRAPHIC CLR. Bei TRAP, RE- 
SUME und COLLISION dürfen keine Variablen angewandt 
werden. Statt GRAPHIC CLR wird lediglich GRAPHIC 0 aus¬ 
geführt. 

In zwei, für Overlay-Files drei Durchläufen bearbeitet 
Austro-Comp 128 das auf der Diskette befindliche Basic- 
Programm. Fünf Direktiven können den Compiler während¬ 
dessen steuern. Eine davon ist die Überprüfung des Dong¬ 
les. Somit kann auch das Compilat geschützt werden. 

Bei der Arbeit ist es dem Compiler möglich, auf zwei Lauf¬ 
werke oder ein Doppellaufwerk zuzugreifen. 


Die erstellten Overlay-Files sind Kalt-Overlays, da keine 
Variablen oder deren Inhalte übernommen werden. Dafür 
muß nur ein Programm das etwa 11 KByte lange Run-Time- 
Modul enthalten. Bei Programmpaketen, bei denen das erste 
Programm als Menü dient, die Folgeprogramme aber unab¬ 
hängig oir.d, lohnt sich das Kalt-Overlay. 

Variable Dimensionierung wird vom Austro-Comp 128 
unterstützt. Dies wird möglich durch ein spezielles Zeigerar- 
ray »z *%«, das immer dann angelegt wird, wenn im Source- 
File Arrays Vorkommen. Der Array-Name z-% ist im Basic 
unmöglich, damit sind Kollisionen der Variablen ausgeschlos¬ 
sen. 


Basic 128 


Trotz des im SLOW-Modus langsameren Basic V7.0 ist das 
Compilat der Benchmark-Tests schneller als auf dem C64. 
Das Testprogramm Eddi wurde in 2:20 Minuten abgearbeitet. 
Mit 51 Blocks ist das Compilat ziemlich lang, was jedoch ein¬ 
leuchtend ist, da im Run-Time-Modul der Befehlssatz des 
C128 als Ballast mitgeschleppt wird. Erstaunlicherweise war 
das Programm fast lauffähig. Lediglich die Funktionstaste¬ 
nabfrage entsprach nicht dem CI28. 

Bestehend aus Diskette und einem sehr ausführlichen 
Handtyjch wird Basic 128 ausgeliefert. Die speziellen Opti- 
mierurYjsyerfahren für Source-Programme sind beispielhaft 
erklärt beim Lesen wird man in die Arbeitsweise des Compi¬ 
lers hineinversetzt. 

Basic 128 ist eine Weiterentwicklung des Basic 64. Er ist 
kompatibel zum Basic V7.0, viele Funktionen sind verbes¬ 
sert. So sind eigene Rechen-Routinen enthalten, Warm- 
Overlays mit Variablen-Inhalten sind durchführbar, die im 
Basic 7.0 undokumentierten Befehle werden unterstützt. 

Neben den üblichen Compiler-Optimierungen führt das 
Run-Time-Modul Laufzeit-Optimierungen der Variablen 
durch. Da Integer-Variablen nicht in jedem Programm 
gekennzeichnet sind, ist die Laufzeit-Optimierung bei nicht 
an den Compiler angepaßten Programmen durchaus vorteil¬ 
haft. 

033 ? 
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Zelt in 
Sek. 


180- 



144.16 


Bild 8. Sortieren von 100 Zufallselementen mit Bubble-Sort 


181,38 
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Zur optimalen Programmierung stehen 15 Compiler- 
Direktiven bereit. Zur Verkettung oder zum Overlay von Pro¬ 
grammen und Programmteilen sind Symboltabellen ladbar. 
Dadurch verwenden dann die Programme gleiche Variabien- 
Adressen. 

Eddi wurde in 4:00 Minuten zu 60 Blocks P-Code compi- 
liert (M-Code war bei dem C 64-Programm nicht möglich). Es 
funktionierte auch hier wieder bis auf die Funktionstastenab¬ 
frage. Die Benchmark-Tests verliefen in einer erstaunlichen 
Geschwindigkeit, obwohl keine Compiler-Direktiven und kein 
Fast-Modus benutzt wurde. Die von Basic 128 erzeugten 
Programme sind um fast ein Drittel schneller als die der an¬ 
deren Compiler. 

Superschnell 


Für den C128 haben wir uns noch etwas Besonderes ausge¬ 
dacht. Denn im FAST-Modus sind die Programme doppelt so 
schnell wie Normal. Bei den Compilern Austro-Comp 128 
und Basic 128 benutzten wir noch zusätzlich Compiler- 
Anweisungen, um die Programme auf die kürzestmögliche 
Ausführungszeit zu beschleunigen. 

Wir gaben also in unserem Benchmark-Testprogramm noch 
in der ersten Zeile den FAST-Befehl und definierten alle Lauf¬ 
variablen in Integer-Variablen um. Jetzt sieht das Ganze 
etwas anders aus, nämlich bis zu 170mal schneller (IF-THEN 
bei Basic 128). Auch die sonst so zeitintensiven Rechen- und 
Stringverarbeitungsroutinen (Benchmarks 3, 6 und 8) wer¬ 
den jetzt in erträglichen Zeiten abgearbeitet. Austro-Comp 
128 benötigt insgesamt nur noch 20 Prozent, Basic 128 
knapp 12 Prozent gegenüber Basic V7. Optimieren lohnt sich 
also bei Compilern sehr. Die Ergebnisse dieses Durchlaufs 
können Sie Tabelle 4 entnehmen. 



Basic V7 
SLOW FAST 

Austro- 

Comp 

128 

Basic 

128 

Benchmark 1: 
Benchmark 2: 
Benchmark 3: 
Benchmark 4: 
Benchmark 5: 
Benchmark 6: 
Benchmark 7: 
Benchmark 8: 

2,10 

14,40 

77,55 

13,52 

13,38 

142,57 

49,35 

181,38 

1,05 

7,20 

38,78 

6,75 

6,69 

71,29 

24.68 

90.69 

0,25 

0,57 

18,98 

0,35 

1,57 

56,62 

0,82 

18,91 

0,15 

0,06 

11,40 

0,31 

0,90 

31,05 

0,90 

12,70 


Tabelle 4. Im FAST-Modus und durch die Verwendung von Com¬ 
piler-Direktiven läßt sich beim C128 noch viel herausholen 


Empfohlen wird... 


Geschwindigkeit ist Trumpf. Und den hält eindeutig Basic 
128 in der Hand. Für den C128 ist, wenn Sie nicht unbedingt 
die variable Array-Dimensionierung benötigen, Basic 128 zu 
empfehlen. Seine Fähigkeiten nutzen den C128 weitgehend 
aus. 

Beim C64 ist es eine Frage der Anwendung. Je nach 
Anforderung des Programms variiert die Geschwindigkeit 
des erzeugten Codes (siehe Benchmarks). Auch in der 
Bedienung ergeben sich keine einschneidenden Unter¬ 
schiede. Dadurch wäre es nicht richtig, eine Entscheidung zu 
fällen, ohne die Anforderungen des Benutzers zu kennen. 

(og) 


Info: 

Digimat, Arbeitergase 48, A-1050 Wien 

Data Becker, Merowingerstraße 30, 4000 Düsseldorf 
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100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 


REM ******************************* <238> 
REM BENCHMARKS FUER COMPILER. C 64 <066> 
REM ******************************* <002> 
EEM <192> 
REM ************* l ** FOR NEXT *** <011> 
PRINT " CCLR. DOWN}AUSFÜHRUNG : 1CLEFT}" ; 

- Al=TI <093> 
FOR 1=1 TO 1000 <082> 
NEXT I <254> 
E1=TI <089> 
REM ************* 2 ** IF THEN **** <039> 
PRINT''2CLEFT} “ i :A2=TI <193> 
1=0 <143> 
1=1+1 <203> 
IF I<1000 THEN 220 <190> 
E2=TI <157> 
REM ************* 3 ** RECHNEN **** <131> 
PRINT"3CLEFT}'' i =A3=TI <019> 
FOR 1=1 TO 1000 <194> 
C=I+I*<I-I/I)t(I/500> ' <015> 
NEXT I <120> 
E3=TI <227> 
REM ************* 4 ** GOSUB ****** <230> 
PRINT"4CLEFT>“i:A4=TI <099> 
FOR 1=1 TO 1000 <254> 
GOSUB 800 <086> 
NEXT I <180> 
E4=TI <039> 
REM ************* 5 ** FELDER ***** <255> 
PRINT"5CLEFT}" i =A5=TI <179> 
DIM F<1000>,F$<1000) <227> 
FOR 1=1 TO 1000 <068> 
F<I)=1 = F$(I)="TEXT" <015> 


620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

800 

900 

910 

920 

930 

940 

950 

960 

970 

980 


S$( I)=S$(I)+CHR$(RND(TI)*26+65) 

NEXT K 
NEXT I 

FOR 1=1 TO 99 

FOR K=I+1 TO 100 

IF S$< K> >S$<I)THEN 690 

S$ ( 0 > =S$ < K ) : S$ ( K ) =S$ < I > : S$ ( I > =S$ ( 0 > 

NEXT K.I 

E8=TI 

REM ************* g ** FEHLER ? *** 
GOTO 770 
GOTO 729 
GOSUB 739 

FOR I%=1 TO 2=NEXT 1% 

SYNTAX ERR OR 

PRINT"WARTEN":WAIT 197,1:WAIT 197,1.25 
5 

GOTO 900 
RETURN 


REM ************* AUSWERTUNG ****** 
PRINT“CCLR.3DOWNIB1 ="< El-Al)/60"SEK. 


PRINT"B2 
PRINT"B3 
PRINT"B4 
PRINT"B5 
PRINT"B6 
PRINT"B7 
PRINT"B8 


”(E2-A2 >/60"SEK. 
"(E3-A3 >/60"SEK. 
"< E4-A4)/60"SEK. 
"(E5-A5)/60"SEK. 
"(E6-A6)/60"SEK. 
"(E7-A7)/60"SEK. 
"< E8-A8)/60"SEK. 


Listing 1. Die Benchmark-Testprogramme 


NEXT I <250> 

E5=TI <117> 

REM ************* 6 ** FUNKTIONEN * <189> 

PRINT"6CLEFT}";=A6=TI <013> 

FOR 1=1 TO 1000 <128> 

C=SIN(I)=C=TAN(I)=C=EXP(1/30):C=VAL<ST 
R$(I>) <050> 

NEXT I <054> 

E6=TI 6 <185> 

REM ************* ? ** READ DATA ** <093> 

PRINT"7CLEFT}"i:A7=TI <093> 

FOR 1=1 TO 1000 <190> 

RESTORE:DATA 0 <087> 

READ D <096> 

NEXT I <126> 

E7=TI <009> 

REM ************* 8 ** SORTIEREN ** <108> 

PRINT"8CLEFT}“i=A8=TI <185> 

DIM S$<100) <051> 

FOR 1=1 TO 100 <078> 

FOR K=1 TO 10 <008> 


10 A<9)=500 

20 POKE 2,500:REM ILLEGAL QUANTITY 

30 POKE 70000,5:REM ILLEGAL QUANTITY 

40 PRINT CHR$(500):REM ILLEGAL QUANTITY 

50 DIM X(70000):REM ILLEGALQUANTITY 

60 PRINT 1/0:REM DIVISION BY ZERO 

70 DI« A(100):DIM A(200):REM REDIM'D AR. 

80 NjLäT I : REM NEXT WITHOUT FOR 

90 RETURN:REM RETURN WITHOUT GOSUB 

100 A=1E100:REM OVERFLOW 

110 SYNTAX:REM SYNTAX 

120 GOTO 0:REM UNDEF’D STATEMENT 

130 GOSUB 0:REM UNDEF’D STATEMENT 

140 READ A=REM OUT IF DATA 

150 A$ = 5:REM TYPE MISMATCH 

160 A="TEXT" -‘REM TYPE MISMATCH 

170 PRINT FN A(8):REM UNDEF’D FUNCTION 

180 PRINTN1:REM FILE NOT OPEN 

Listing 2. Welche Fehler werden erkannt? 


<068> 

< 222 > 

<216> 

<045> 

<213> 

<149> 

<158> 

<005> 

<157> 

<192> 

<044> 

<007> 

<049> 

< 212 > 

<180> 

<192> 
< 010 > 
<032> 
<070> 
<251 > 
< 111 > 
<189> 
< 011 > 
<089> 
<167> 
<245> 
<069> 


< 222 > 

< 220 > 

<066> 

<226> 

<106> 

<198> 

<076> 

<142> 

<232> 

<132> 

< 201 > 

<093> 

<119> 

< 212 > 

< 002 > 

<173> 

<196> 

<035> 
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Für jeden etwas: 
Programmiersprachen 
unter CP/M 


Eine Riesenauswahl an Programmiersprachen 
bietet der CP/M-Modus des C128. Wir berichten 
ausführlich über Leistungsmerkmale und infor¬ 
mieren Sie über bisher vielleicht noch unbe¬ 
kannte Sprachen. 

S chmerzlich vermißt der Programmierer unter CP/M das 
im C128 automatisch vorhandene Basic. Allerdings gibt 
es für CP/M eine Menge Compiler, deren Spektrum von 
Cobol bis C reicht. Jeder Programmierer wird hier seine Spra¬ 
che finden und darüber hinaus feststellen, daß Komfort nicht 
unbedingt teuer bezahlt werden muß. 

Die wohl am weitesten verbreitete Programmiersprache für 
Heimcomputer ist nach wie vor Basic Eine ganze Reihe von 
Interpretern und Compilern stehen für CP/M zur Verfügung. 
Ein für 89 Mark (Handbuch in Englisch 29 Mark) sehr preis¬ 
werter und leistungsfähiger Interpreter ist Nevada-Basic. Die¬ 
ser Interpreter überzeugt nicht nur durch sehr umfangrei¬ 
chen Sprachumfang (Bild 1), sondern auch durch die bedie¬ 
nerfreundliche Programmierumgebung. 

Wie fast alle CP/M-Programme wird Nevada-Basic uninstal- 
liert geliefert und muß daher erst an den C128 angepaßt wer¬ 
den. Dies geschieht mit dem mitgelieferten Programm »CON¬ 
FIG«. Hier brauchen Sie nur das Terminal »Lear Seigler ADM 
31« anzuwählen und schon ist die Installation fertig. Nach 
dem Laden von Nevada-Basic erscheint am Bildschirm die 
Einschaltmeldung mit der Anzeige des freien Speichers. Nun 
kann sofort mit der Eingabe des Programms begonnen wer¬ 
den. Zur Bearbeitung des Basic-Quellcodes stehen einige 


leistungfähige Befehle zur Verfügung. So sind die jedem 
Basic-Programmierer bekannten Anweisungen wie LIST und 
RUN voll implementiert. Das Inhaltsverzeichnis der Diskette 
kann mit CAT auf den Bildschirm geholt werden. Neue Zeilen 
werden einfach im Direktmodus eingegeben. Wollen Sie eine 
bestehende Zeile ändern, stoßen Sie auf eine Besonderheit 
des Interpreters. Mit dem aus dem C 64- oder C128-Modus 
gewohnten LIST-Befehl wird zwar die gewünschte Zeile 
angezeigt, aber bei Betätigung der Cursor-Tasten tut sich gar 
nichts. Dafür bietet Nevada-Basic die Anweisung EDIT an. 
Das Programm wird dadurch ab der gewünschten Zeile geli¬ 
stet, der Cursor auf der angegebenen Zeile positioniert. Nun 
steht für die Bearbeitung des Programms ein leistungsfähiger 
Bildschirm-Editor zur Verfügung, in dem der Cursor innerhalb 
der angezeigten Zeilen frei gesteuert werden kann (Full- 
Screen-Editor). Die Cursor-Steuerung erfolgt über die 
Cursor-Tasten oder über entsprechende Control- 
Sequenzen. Wird nach der Änderung einer Zeile 

< RETURN > gedrückt, schiebt der Editor automatisch eine 
REM-Zeile ein. Zum Speichern des erstellten Programms 
wird wie gewohnt der SÄVE-Befehl verwendet. Geladen wer¬ 
den Programme mit GET. 

Taucht während des Programmablaufs ein Fehler auf, so 
wird dieser am Bildschirm angezeigt. Durch Drücken von 

< RETURN > springt man dann in den Editor. Dort ist der 
Cursor sofort auf der fehlerhaften Zeile positioniert. Ein 
Aspekt, der etwas an den Editor von Turbo-Pascal erinnert. 
Natürlich können auftretende Fehler auch abgefangen wer¬ 
den. An den Anfang des Programms wird dazu einfach die 
Anweisung »ERRSET Zeilennummer« gestellt. Die Funktion 
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ist ähnlich dem Basic 7.0 des C128, dort lautet der entspre¬ 
chende Befehl TRAP. Hier kann nun die Basic-Fehlermeldung 
ausgegeben und entsprechend reagiert werden. 

Sehr gut gelöst wurde auch die Listingausgabe. Das Pro¬ 
gramm wird formatiert am Bildschirm angezeigt oder auf 
Drucker ausgegeben. So wird der Inhalt einer FOR..NEXT- 
Schleife mit Einrückungen ausgegeben (Bild 2). Für die Aus¬ 
gabe auf Drucker entfällt das Eröffnen von Kanälen oder die 
umständliche Kopiererei mit PIP. Es genügt der Befehl LLIST. 

Die implementierten Befehle repräsentieren den nahezu 
klassischen Basic-Standard. Was der Basic 7.0-Program- 
mierer schmerzlich vermissen wird, sind Strukturanweisun¬ 
gen wie etwa WHILE..DO. Dafür stehen aber mächtige 
Befehle zur Dateiverwaltung zur Verfügung, sowie eine 
umfangreiche Bibliothek an mathematischen Funktionen. Die 
Bearbeitung von sequentiellen und relativen Dateien bereitet 
keinerlei Probleme. Bei der Eröffnung einer Datei kann ange¬ 
geben werden ob sie nur gelesen, nur beschrieben oder in 
beiden Modi bearbeitet werden soll. Der Befehl REWIND 
stellt Dateizeiger für sequentielle Dateien auf den ersten Satz 
zurück. Dies ist vor allem dann nützlich, wenn auf ein- und die¬ 
selbe Datei mehrmals hintereinander von Anfang an zugegrif¬ 
fen werden soll. Man erspart sich das ständige Öffnen und 
Schließen. 

Vor allem für die Dateiverwaltung ist formatierte Ein-/Aus- 
gabe wichtig. Bei Nevada-Basic kann hierzu der PRINT- wie 
auch der INPUT-Befehl entsprechend erweitert werden. Bei 
PRINT können Sie genau definieren, in welcher Form Sie Zah¬ 
len ausgeben wollen. So ist es möglich anzugeben, ob die 
Ausgabe der Zahl als Integer, Fließkommazahl, mit Vorzei¬ 
chen oder mit vorgestelltem Dollarzeichen erfolgen soll. 
Sogar eine exponentielle Darstellung kann auf diese Weise 
erzwungen werden. Die Formatierung der Eingabe ist 
beschränkt auf die frei definierbare Länge des Erfassungsfel¬ 
des. Sehen wir uns eine solche INPUT-Anweisung etwas 
näher an: 

INPUT (4,1) A$ 

Neu ist für den Commodore-Programmierer die Zahlen¬ 
kombination in den Klammern. Die Zahl vier begrenzt die Ein¬ 
gabe auf maximal vier Zeichen. Durch die Zahl eins wird eine 
Zeitverzögerung eingestellt. Der Anwender hat dadurch etwa 
fünf Sekunden Zeit, um seine Eingabe durchzuführen, 
danach arbeitet das Programm von selbst weiter. Sind die vier 
möglichen Zeichen erfaßt, hängt Nevada-Basic selbständig 
ein < RETURN > an und arbeitet dann ganz normal weiter. 

Für den maschinenorientierten Basic-Programmierer ste¬ 
hen wie üblich die Funktionen PEEK und POKE zur Verfü¬ 
gung. Damit jedoch nicht genug. Mit dem Befehl LOAD kön¬ 
nen Sie Maschinenprogramme in den Interpreter laden. Die 
Anfangsadresse wird dabei in eine Variable übergeben. 
Sobald die Maschinenroutine benötigt wird, erfolgt der Aufruf 
über CALL. Dem CALL-Befehl werden die Startadresse und 
ein zu übergebender Wert als Variablen mitgeteilt. 

Eine besondere Stellung nimmt die Anweisung SYSTEM 
ein. Damit können Systemparameter eingestellt, ein 
Disketten-Reset durchgeführt oder auch alle offenen Dateien 
geschlossen werden. 

Als Interpreter kann Nevada-Basic aufgrund des guten 
Preis-Leistungsverhältnisses ohne Bedenken weiterempfoh¬ 
len werden. Die gute und bedienerfreundliche Programmier¬ 
umgebung, wie auch der umfangreiche Sprachumfang bie¬ 
ten dem ernsthaften Basic-Programmierer die Grundlage für 
die Erstellung von sinnvollen Programmen. Das Handbuch 
liegt zwar nur in englischer Sprache vor, ist aber erfreulich 
umfangreich und sogar zu Lernzwecken geeignet. Das Feh¬ 
len von Strukturanweisung ist zwar zu bemängeln, wenn man 
aber bedenkt, daß Basic nicht für die strukturierte Program¬ 
mierung entwickelt wurde, kann man dies ohne weiteres ver¬ 
schmerzen. 


Die Programmiersprache Cobol wurde in den 60er Jahren 
im Auftrag des Pentagon in den USA entwickelt. Bis 1974 
wurde die Sprache immer weiter verbessert, bis dann der 
sogenannte ANSI-Standard (ANSI74 und ANSI80) auf den 
Markt kam, der sich bis heute gehalten hat. Hauptsächlich 
wurde und wird Cobol auf Großrechnern in der Verwaltung 
zur Lösung kaufmännischer Probleme eingesetzt. Obwohl 
die Sprache, verglichen mit moderneren wie Pascal als veral¬ 
tet gilt, findet Cobol in den klassischen Anwendungsgebieten 
immer noch Verbreitung. Da Cobol als Großrechnersprache 
entwickelt wurde, ist es nur sehr schwierig, vollständige 
Implementationen auf Personal Computern zu installieren. 

Nevada-Cobol - der Altmeister 


Wenn dies doch gelingt, lassen sich die Hersteller der Compi¬ 
ler ihre Errungenschaft mit hohen Preisen versilbern. 
Nevada-Cobol dagegen bietet zum selben Preis wie Nevada- 
Basic eine ansprechende Untermenge (Bild 3) des ANSI- 
Standards, mit dem sich, unter Verzicht einiger wichtiger 
Funktionen versteht sich, durchaus vernünftig arbeiten läßt. 
Doch zuerst einiges über die dem C128-Besitzer vielleicht 
noch unbekannte Sprache. 

Ein Cobol-Programm ist eingeteilt in mehrere »DIVISIONS«, 
die fest vorgegeben sind und zum fehlerfreien Compilieren 


Nevada-Basic im Überblick 
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Bild 1. Sprachumfang von Nevada-Basic 


10 ERASE 

20 PRINT "DATEINAME"; 
30 INPUT DATEIS 
40 FILE # 1 ;DATEI$,3„50 
60 FOR 1=1 TO 10 STEP 1 
70 ERASE 

80 PRINT "TEXT 

90 INPUT TEXTS 

100 PRINT #1,I;TEXT$ 

110 NEXTI 
120 CLOSE # 1 


Bild 2. Strukturiertes Nevada-Basic-Listing 
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unbedingt vorhanden sein müssen. Eine Division kann man 
sich als Programmblock vorstellen, in dem bestimmte Aufga¬ 
ben, beispielsweise die Variablendefinition, abgewickelt wer¬ 
den. Diese Divisions sind wiederum in »SECTIONS« unter¬ 
teilt, die allerdings teilweise nur optional anzuwenden sind. In 
der »Identification Division« werden nur Kommentare ange¬ 
geben. Hier steht beispielsweise der Programmname, der 
Autor und das Erstellungsdatum. Als nächstes folgt dann die 
»Environment Division«, die alle Informationen zur verwende¬ 
ten CPU enthält. Hier werden auch die nötigen Anweisungen 
zur weiteren Dateihandhabung eingebaut. In der folgenden 
»Data Division« müssen alle im weiteren Programmverlauf 
verwendeten Felder definiert werden. Jedem verwendeten 
Feld wird eine Hierarchienummer vorangestellt. Diese ist ent¬ 
scheidend für die Stellung des Feldes bei der Verarbeitung. 
In der »Procedure Division« steht dann erst das endgültige 
Programm. Wie ein Cobol-Listing aussieht, sehen Sie an 
einem kleinen Beispiel (Bild 4). Als Source- und Object- 
Computer wurde eine Z80-CPU angegeben, Sie könnten 
aber genauso die 8080-CPU angeben, diese Zeile hat nur 
Dokumentationscharakter. In der nun folgenden »FILE¬ 
CONTROL« wird dem Computer mitgeteilt, daß sich die ver¬ 
wendete Datei auf Diskette befindet und der Zugriff sequen¬ 
tiell erfolgt. In der »FILE SECTION« wird die verwendete Datei 
näher beschrieben (FD = File Description = Dateibeschrei¬ 
bung). In »DAT-NAME« wird später der Name der Datei stehen 
und »DAT-SATZ« repräsentiert den dazugehörigen Satzauf¬ 
bau. Dieser wird anschließend als Datenfeld genau definiert. 
In diesem Beispiel besteht er aus den beiden Variablen 
»FELD1« und »FELD2«. In der »Working-Storage Section« 
schließlich wird noch der verwendete Dateiname definiert. 
Die VALUE-Anweisung weist dieser Variablen sofort den 
gewünschten Inhalt zu. Natürlich könnte man diesen Platz¬ 
halter während des Programms neu belegen. Damit wären 
alle für das Programm benötigten Definitionen getätigt. In der 
»PROCEDURE DIVISION« wird als erstes die Datei 
»ATEST.DAT« als Ausgabedatei geöffnet. Danach werden die 
beiden Felder des Datensatzes von der Console eingelesen. 
Zum Schluß wird der Satz geschrieben und die Datei 
geschlossen. 

Das Beispielprogramm wurde mit dem Nevada-Cobol- 
Compiler erstellt. Ein besonderes Merkmal dieses Software- 
Produkts ist die überraschend hohe Geschwindigkeit. So 
dauert die Übersetzung des besprochenen Programmes nur 
57 Sekunden. Wenn man bedenkt, daß das Commodore- 
CP/M nicht gerade zu den schnellsten Implementationen 
zählt und die Komplexität von Cobol betrachtet, ist das eine 
erstaunliche Leistung. 

Daß Cobol eine kaufmännische Sprache ist, wissen Sie 
jetzt. Doch dazu ist noch einiges mehr nötig als die Verarbei¬ 
tung von sequentiellen Dateien. Im kaufmännischen Bereich 
muß ein Programm sowohl Strings als auch Zahlen bearbei¬ 
ten können. Für die String-und Zahlenbehandlung finden sich 
in Nevada-Cobol einige ausgereifte Befehle, die mit dem nor¬ 
mierten Standard der Sprache identisch sind. Der eigentlich 
wichtigste Befehl ist MOVE. Mit diesem werden die Inhalte 
von Feldern ausgetauscht. Der MOVE-Befehl kann auf 
Strings und Zahlen angewandt werden. Nehmen wir an, Sie 
haben sich in der Working-Storage Section folgende Werte 
definiert: 


01 STRING-1 
01 STRING-2 
01 ZAHL-1 
01 ZAHL-2 


PIC X(10). 
PIC X(10). 
PIC 999V99. 
PIC 999V99. 


Nun können Sie mit Hilfe des MOVE-Befehls entweder 
Werte zuweisen oder die Werte austauschen. 

MOVE 1 64-ER' TO STRING-1. 

MOVE STRING-1 to STRING-2. 


Die Befehle von Nevada-Cobol 
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Bild 3. Der umfangreiche Sprachschatz von Nevada-Cobol 


MOVE 666 T0 ZAHL-1. 

MOVE ZAHL-1 T0 ZAHL-2. 

Sie weisen hier der Textvariablen »STRING-1« zunächst 
eine Konstante zu und übertragen diese dann auf die String- 
variabl^ 'STRING-2«. Genauso wird mit den Zahlenvariablen 
»ZAHL-1« und »ZAHL-2« verfahren. Nun wollen wir uns die 
Definition dieser Variablen etwas näher ansehen. Die Ziffern¬ 
kombination »01« ist die Ordnungsnummer der Variablen. 
Darauf wird später noch genauer eingegangen. »PIC« steht 
für »PICTURE« und gibt den genauen Aufbau der Variablen 
an. So ist genau festgelegt, daß die Variablen »STRING-1« und 
»STRING-2« genau zehn Byte lang sind. Das »X« kennzeich¬ 
net die Variable als alphanumerisches Feld. Etwas schwieri¬ 
ger scheint die Definition der beiden Zahlen-Variablen zu 
sein. Daß dem nicht so ist, werden Sie gleich feststellen. Die 
neun steht hier für Zahl, und gibt dem Compiler somit unmiß¬ 
verständlich zu erkennen, daß es sich um numerisches Feld 
handelt. Der Buchstabe »V« besagt lediglich, daß an dieser 
Stelle das Dezimalkomma stehen soll. Die Definition könnte 
noch ein anderes Aussehen haben: 

01 ZAHL-1 PIC 9(3)V9(2). 

01 STRING-1 PIC XXXXXXXXXX. 

Sie sehen also, daß man entweder mit der gewünschten 
Anzahl an »9« oder »X« auffüllt oder eben diese Menge als 
geklammerte Zahl angibt. 

Beim MOVE-Befehl muß noch beachtet werden, daß die 
Länge des Empfangsfeldes (Feld rechts von TO) nicht kleiner 
sein darf als die des Feldes, von dem gesendet wird. Auch 
können keine alphanumerischen Daten in numerische Felder 
gebracht werden. 

Cobol und Dateien 


Bei der Dateiverwaltung fühlt sich Cobol so richtig in seinem 
Element. Schließlich war das einer der Hauptaspekte bei der 
Entwicklung der Sprache. Wie eine Datei definiert werden 
muß, haben Sie bereits in dem kleinen Beispielprogramm 
gesehen. Bei Verwendung von relativen Dateien können sich 
die Vorteile von Cobol erst so richtig entfalten. Soll mit einer 
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0004 
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IDENTIFICATION DIVISION. 

PROGRAM-ID. 

TEST. 

AUTHOR. 

64-ER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 

Z80-CPU. 

OBJECT-COMPUTER. 

Z80-CPU. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT DATEI ASSIGN TO DISK 
ORGANIZATION IS SEQUENTIAL 
ACCESS MODE IS SEQUENTIAL 
RECORD DELIMITER IS STANDARD. 

DATA DIVISION. 

FILE SECTION. 

FD DATEI 

LABEL RECORDS ARE STANDARD 
VALUE OF FILE-ID IS DAT-NAME 
DATA RECORDS ARE DAT-SATZ. 


01 DAT-SATZ. 
02 FELD1 
02 FELD2 


PIC X(10). 
PIC X(10). 


lieh als numerische Variable definiert sein. Ein Zugriff auf die 
Datei sieht dann so aus: 

MOVE 234 TO SCHLUESSEL. 

READ TEST INVALID KEY GO TO FEHLER. 

Hier soll der Satz mit der Nummer 234 gelesen werden. 
Sollte dies nicht möglich sein, wird automatisch zum Sprung¬ 
ziel »FEHLER« verzweigt. Ansonsten kann mit dem Satz gear¬ 
beitet werden, wie er in der File-Description beschrieben 
wurde. Das Schreiben mit dem WRITE-Befehl funktioniert im 
Prinzip genauso, nur daß dann mit dem Satznamen und nicht 
mit dem Dateinamen gearbeitet werden muß. Der Satzname 
ist in der File-Description festgelegt. 


Tabellen und gegliederte Felder 


Jeder Programmierer kennt das Problem der Tabellenverar¬ 
beitung, wenn größere Datenmengen anfallen. Die Lösung, 
die Cobol hierzu anbietet, ist nicht nur leistungsfähig, son¬ 
dern auch komfortabel. Betrachten Sie folgendes Beispiel: 

01 TABELLE OCCURS 600. 

02 FELD-1 PIC 9(6). 

PIC X(20). 


02 FELD-2 
01 TAB-FELD. 
02 TFELD-1 
02 TFELD-2 


WORKING-STORAGE SECTION. 

01 DAT-NAME PIC X(14) 

VALUE IS "A:TEST.DAT" 

PROCEDURE DIVISION. 

BEGIN. 

OPEN OUTPUT DATEI. 

DISPLAY "FELD1: "WITH NO ADVANCING. 
ACCEPT FELD1. 

DISPLAY "FELD2: "WITH NO ADVANCING. 
ACCEPT FELD2. 

WRITE DAT-SATZ. 

CLOSE DATEI. 

STOP RUN. 

END PROGRAM TEST. 


Bild 4. Bearbeiten einer sequentiellen Datei mit Nevada-Cobol 

relativen Datei gearbeitet werden, müssen dazu in der File- 
Control noch spezielle Angaben gemacht werden. 

FILE-CONTROL. 

SELECT TEST ASSIGN TO DISK 
ORGANIZATION IS RELATIVE 
ACCESS MODE IS RANDOM 
RELATIVE KEY IS SCHLUESSEL. 

Hier wird wieder angegeben, daß sich die Datei auf Dis¬ 
kette befindet. Die Organisation ist diesmal relativ und es wird 
wahlfrei (relativ) zugegriffen. Der Zugriffsschlüssel ist in der 
Working-StorageSection unter dem Namen »SCHLUESSEL« 
definiert. Beim OPEN-Befehl können drei verschiedene Modi 
eingestellt werden: OUTPUT (nur Schreiben), INPUT (nur 
Lesen) und 1-0 (Schreiben und Lesen). Die Form der OPEN- 
Anweisung lautet daher wie folgt: 

OPEN Dateiname Modus. 

Als Dateiname wird hier jeweils der in der File-Control ver¬ 
wendete Name benutzt, in diesem Fall also »TEST«. Als Index 
zum Dateizugriff wird die jeweilige Satznummer in das Feld 
»SCHLUESSEL« gebracht (MOVE). Dieses Feld muß natür- 


PIC 9(6). 

PIC X(20). 

Eine Tabelle wird mit der OCCURS-Klausel festgelegt. Im 
obigen Beispiel beläuft sich die Größe auf 600 Elemente. 
Jedes Element besteht aus zwei Datenfeldern (FELD-1, 
numerisch, neun Byte und FELD-2, alphanumerisch, 20 
Byte). Diese Tabelle wird mit einem Index angesprochen. Im 
obigen Beispiel sind Sie auch mit der Untergliederung von 
Feldern konfrontiert. »TABELLE« ist ein Oberbegriff für 
»FELD-i« und »FELD-2«. »TAB-FELD« ist ein Oberbegriff für 
»TFELD-1« und »TFELD-2«. In folgendem Beispiel wird die 
Bedeutung der Untergliederung gezeigt: 

MOVE 4500 TO TFELD-1. 

MOVE '64-ER MAGAZIN' TO TFELD-2. 

MOVE TAB-FELD TO TABELLE (2). 

Die beiden Teile der Variablen »TAB-FELD« werden hier mit 
Daten versorgt. Dann wird »TAB-FELD« als Ganzes in das 
zweite Element der Tabelle gebracht. Durch diese Methode 
spart sich der Programmierer eine MOVE-Zeile und somit 
Speicherplatz und Rechenzeit. 

Nun haben Sie einen Überblick über die Datei- und Varia¬ 
blenhandhabung unter Cobol. Da aber für eine kaufmänni¬ 
sche Anwendung, wie bereits erwähnt, auch Berechnungen 
notwendig sind, werden noch die Rechenfunktionen der 
Sprache Cobol vorgestellt. 

Die Sprache bietet zwei Möglichkeiten zum Programmie¬ 
ren von Berechnungen. Da ist zum einen der umständlichere 
Weg über eigene Befehle oder die Berechnung mit dem 
Befehl COMPUTE. Sehen wir uns zunächst die umständli¬ 
chere Möglichkeit etwas näher an. Nehmen wir an, folgende 
Felder sind definiert: 

01 ZAHLl PIC 9(4). 

01 ZAHL2 PIC 9(4). 

01 ERGEBNIS PIC 9(6). 

Danach wird folgende Berechnung angestellt: 

ADD ZAHLl TO ZAHL2 GIVING ERGEBNIS. 

MULTIPLY ZAHLl BY ERGEBNIS GIVING ZAHL2. 

DIVIDE ERGEBNIS BY ZAHL2 GIVING ZAHLl. 

SUBTRACT ZAHLl FROM ERGEBNIS GIVING ZAHL2. 

Hier wird erst addiert, dann multipliziert, dividiert und sub¬ 
trahiert. Das Ergebnis der Operation steht jeweils in dem 
Feld, das mit GIVING zugewiesen wird. Wie bereits erwähnt, 
kann dies auch mit der COMPUTE-Anweisung durchgeführt 
werden. Damit sieht die Berechnung dann so aus: 
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COMPUTE ERGEBNIS = ZAHL1 + ZAHL2. 

COMPUTE ZAHL2 = ERGEBNIS * ZAHL1. 

COMPUTE ZAHL1 = ERGEBNIS / ZAHL2. 

COMPUTE ZAHL2 = ERGEBNIS - ZAHL1. 

Diese Schreibweise ist für den Basic-Programmierer 
wesentlich verständlicher als die vorhergehende. 

Man sieht also ganz deutlich, daß sich Cobol von anderen 
Sprachen abhebt. Zum einen sind genaueste Definitionen 
der verwendeten Variablen notwendig, zum anderen sind die 
Anweisungen und Befehle so formuliert, daß sich ein Cobol- 
Programm beinahe wie ein Roman liest. 

Im Lieferumfang von Nevada-Cobol ist noch zusätzlich ein 
Renumber-Programm enthalten. Die Programme müssen mit 
vierstelligen Zeilennummern geschrieben werden. Da die 
Texteditoren, die für CP/M erhältlich sind, über keine 
Zeilennummern-Funktionen verfügen, müssen derartige 
Aktionen über externe Programme durchgeführt werden. Der 
Compiler selbst bietet noch einen »Debugging-Mode«, der 
eine komfortable Fehlersuche ermöglicht. 

Trotz der hohen Ansprüche, die der ANSI-74-Standard an 
die Sprache Cobol stellt, konnte bei Nevada-Cobol eine 
erstaunlich große Untermenge dieses Standards implemen¬ 
tiert werden. 

Das größte Manko von Cobol besteht in den fehlenden 
Strukturanweisungen, wie sie heute in allen modernen Spra¬ 
chen vorhanden sind. Die einzigen Schleifenanweisungen 
sind IF...THEN und FOR..NEXT. Auch die Komplexität der 
Sprache wird viele Programmierer abschrecken, Cobol anzu¬ 
wenden. Wenn man allerdings längere Zeit damit gearbeitet 
hat, möchte man die komfortablen Elemente zur Dateiverwal¬ 
tung nicht mehr missen. Hier bieten auch moderne Spra¬ 
chen, wie zum Beispiel Pascal, keine revolutionären Verbes¬ 
serungen. 

Für weitere 29 Mark erhalten Sie ein Buch mit mehreren 
Cobol-Programmen zum Abtippen, unter anderem ein Haus¬ 
haltsbuch. Das Handbuch zu Nevada-Cobol ist erfreulich 
umfangreich und beinhaltet unter anderem eine Einführung in 
die Programmiersprache Cobol. Es ist in deutsch und in eng¬ 
lisch erhältlich. 

Abschließend kann bemerkt werden, daß sich der Cobol- 
Compil'er optimal für den Einsteiger in diese Sprache, wie 
auch für den ernsthaften CP/M-Programmierer eignet. Unter¬ 
stützt wird diese Aussage durch das sehr gute Preis- 
Leistungsverhältnis, das momentan hauptsächlich auf den 
schwachen Dollarkurs zurückzuführen ist. 

Nevada-Pascal - Leistung ist alles 


Mehr und mehr hat sich in letzter Zeit Pascal als die Program¬ 
miersprache für Mikro-Computer durchgesetzt. Beinahe ein 
Standard sind Compiler wie zum Beispiel Turbo-Pascal 
geworden. Daneben gibt es auch noch eine ganze Reihe 
anderer Produkte, deren Leistung nicht zu verachten ist. Ein 
wie bei der Nevada-Serie bereits gewohnt sehr kostengünsti¬ 
ges Produkt wird mit Nevada-Pascal angeboten. 

Mit der Programmiersprache Pascal werden wir uns hier 
nicht näher befassen. Dazu finden Sie in dieser Ausgabe 
einen ausführlichen Kurs und zwei weitere Compiler- 
Beschreibungen. 

Nevada-Pascal weist einige Besonderheiten auf, die sich 
sehr vorteilhaft auf das Produkt auswirken. Zum einen wäre 
da eine sehr schnelle und komfortable Tabellensuch- 
Funktion, zum anderen die Möglichkeit, ohne große Program¬ 
miertricks index-sequentielle Dateien zu erstellen. Bei dieser 
Dateiart wird nicht über die Satznummer auf die Datei zuge¬ 
griffen, sondern über einen Suchbegriff (String). Darauf wol¬ 
len wir im folgenden näher eingehen. Um index-sequentielle 
Dateien zu erstellen, ist es normalerweise notwendig, die 


Nevada-Pascal Funktionen 
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Bild 5. Die Funktionen von Nevada-Pascal 
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Bild 6. Fortran-Operatoren im Vergleich mit Basic 7.0 


Verwaiiung der Index-Datei selbst zu programmieren. 
Dadurch wird das Programm aufgebläht und sehr schnell 
unübersichtlich. Zwar kennt Nevada-Pascal keine implemen¬ 
tierten Funktionen und Prozeduren zum Aufbau einer sol¬ 
chen Dateiverwaltung, dafür werden aber auf der Compiler- 
Diskette einige Programmdateien mitgeliefert, die über eine 
»EXTERN«-Deklaration in das Pascal-Programm eingebun¬ 
den werden. Einige Variablendefinitionen sind allerdings not¬ 
wendig, um die benötigten Parameter übergeben zu können. 
Am Anfang ist das Arbeiten mit diesen Prozeduren sicherlich 
etwas ungewohnt und umständlich. Wer aber selbst schon 
eine index-sequentielle Dateiverwaltung programmiert hat, 
wird die Nevada-Lösung bald zu schätzen wissen. Die Aus¬ 
wahl der Kommandos, die für die index-sequentielle Bearbei¬ 
tung zur Verfügung stehen, läßt keine Wünsche offen. Vom 
Schreiben eines Records bis zum Anfügen von neuen Sätzen 
ist alles implementiert. Dabei wird die erstellte Indexdatei 
ständig aktualisiert. 

Die bereits angesprochene schnelle Routine zum Durch¬ 
suchen von Tabellen steht als Extern-Funktion zur Verfü¬ 
gung. Nachdem die nötigen Parameter im Definitionsteil 
deklariert sind, können problemlos große Arrays nach 
bestimmten Kriterien (Keys) durchsucht werden. 

Für die Fehlersuche in fertigen Programmen (Debugging) 
kann mit Hilfe der Funktion »TRACE« jede Programmzeile 
während des Ablaufs am Bildschirm angezeigt werden. Der 
Compiler erlaubt mehrere Trace-Modi. So kann man wählen 
zwischen Zeilen-, Prozedur- und Funktions-Trace. Zur Gestal¬ 
tung des Ausgabe-Listings, sowie der Festlegung der Ausga¬ 
beeinheit sind weitere Compiler-Optionen vorhanden. 

Da bei der Compilierung kein Run-Time-Modul erzeugt 
wird, erfolgt der Aufruf eines jeden Nevada-Pascal- 
Programms über ein eigenes Startprogramm. Auch hier kön¬ 
nen noch zusätzliche Optionen angegeben werden. So kann 
man nachträglich den Trace-Modus einschalten, oder ein 
»Activity-Analyser« (Analysieren der Programmaktivitäten). 
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Nevada-Fortran: Sprachumfang 

ACCEPT 

ASSIGN 

BACKSPACE 

BLOCK DATA 

CALL 

COMMON 

CONTINUE 

COPY 

CTRL DISABLE 

CTRL ENABLE 

DATA 

DIMENSION 

DO 

DOUBLE 

DUMP 

END 

ENDFILE 

ERRCLR 

ERRSET 

FORMAT 

FUNCTION 

GOTO 

IF..THEN..ELSE 

IMPLICIT 

INTEGER 

LOGICAL 

PAUSE 

READ 

REAL 

RETURN 

REWIND 

STOP 

SUBROUTINE 

TRACE OFF 

TRACE ON 

TYPE 

WRITE 

SIN 

COS 

TAN 

ATAN 

ATAN 2 

ALOG 

ALOG 10 

MOD 

AMOD 

SQRT 

FLOAT 

IFIX 

ABS 

IABS 

RAND 

EXP 

COMP 

CALL 

AMAXO 

AMAX1 

MAXO 

MAXI 

AMINO 

AMIN 1 

MINO 

MINI 

BIT 

SIGN 

ISIGN 

DIM 

IDIM 

CHAR 

PEEK 

CALL 

INP 

CBTOF 

Systemroutinen, die mit CALL aufgerufen werden: 

BIT 

CBTOF 

CHAIN 

CIN 

CLOSE 

CTEST 

DELAY 

DELETE 

EXIT 

MOVE 

OPEN 

LOAD 

LOPEN 

POKE 

OUT 

PUT 

RENAME 

RESET 

SEEK 

SETIO 


Bild 7. Nevada-Fortran-Funktionen im Überblick 


Nevada-Pilot: Befehle und Anweisungen 


T: 

A: 

M: 

J: 

U: 

E: 

C: 

R: 

APPEND: 

BYE 

CA: 

CALL 

CE: 

CH: 

CL 

CLOSED: 

CRAETEF: 

fc: R 

EDIT 

EOF: 

FOOT: 

GET 

INFO 

KILLF 

LIST 

LOAD 

NEW 

OPENF: 

PAUSE: 

POKE: 

PR: 

READ: 

REWIND: 

RL: 

RUN 

SAVE 

SET 

VIEW: 

VNEW: 

VSET: 

VSTART: 

WRITE: 

XEQ 

XI: 

XS: 




Bild 8. Die ungewöhnlichen Anweisungen von Nevada-Pilot 


Diese Analyse-Funktion erlaubt einen direkten Eingriff in den 
Programmablauf. Man kann damit alle Systemzeiger auf Null 
stellen oder ein Aktivitätshistogramm ausgeben lassen. 

Alles in allem zeigt sich der Nevada-Pascal-Compiler als 
sehr flexibles Software-Produkt mit herausragenden Lei¬ 
stungsmerkmalen, die man in dieser Preisklasse nur selten 
findet. Die Möglichkeiten, die sich aus den vielfältigen Funk¬ 
tionen (Bild 5) des Compilers ergeben, lassen dem Program¬ 
mierer große Freiräume bei der Erstellung von umfangrei¬ 
chen Dateiverwaltungen. 

Nevada-Fortran für Mathematiker 


Die Sprache Fortran findet hauptsächlich im wissenschaftli¬ 
chen Bereich Anwendung. Wenn umfangreiche und kom¬ 
plexe Berechnungen notwendig sind, bildet Fortran durch 
seine mathematische »Begabung« ein optimales Werkzeug 
für schnelle Computerlösungen. Wie Cobol, so ist auch Fort¬ 
ran eine bereits etwas ergraute Sprache, die fast nur noch auf 
Großrechenanlagen eingesetzt wird. Der größte Nachteil von 
Fortran ist zweifelsfrei das benötigte Quellcode-Format. Hier 
muß man sich strikt an die vorgegebenen Regeln halten, jede 
Abweichung vom Standard nimmt der Compiler sofort übel. 
Die ersten sechs Spalten einer Programmzeile dürfen nie mit 
Fortran-Anweisungen beschrieben werden, da diese Stellen 
allein für Label vorgesehen sind. Fortran-Label werden immer 


durch Zahlen ausgedrückt, können also keine konkreten 
Namen haben. Die Ein- und Ausgabeformate sind nur sehr 
umständlich zu handhaben, dafür aber relativ universell. So 
kann die Eingabe wie auch die Ausgabe von Daten ohne wei¬ 
teres auf ein anderes Gerät umgelenkt werden. Die klassi¬ 
schen Geräte waren hier der Lochkartenleser und -Stanzer. 
Die strukturierte Programmierung ist für den Fortran- 
Programmierer nur schwer zu realisieren. 

Die im Programmverlauf verwendeten Variablen müssen 
am Anfang definiert werden. Dabei wird auch der Variablen¬ 
typ mit angegeben (zum Beispiel: Integer). Um das Vorurteil 
der Unstrukturiertheit nicht ganz auf Fortran sitzen zu lassen, 
muß zu dessen Ehrenrettung gesagt werden, daß einfache 
Schleifenstrukturen, wie DO-WHILE...END-DOWHILE und 
IF...THEN...ELSE sehr wohl vorhanden sind. Der erfahrene 
Pascal-Programmierer wird allerdings die leistungsfähigen 
und bequemen Prozeduren und Funktionen vermissen. Aller¬ 
dings können Unterprogramme definiert werden, denen man 
verschiedene Parameter übergeben kann. 

Im weiteren werden wir etwas näher auf die mathemati¬ 
schen Fähigkeiten von Fortran eingehen. Für die Verarbei¬ 
tung existieren zwei Datentypen: Integer (ganze Zahlen) und 
Real (Gleitkommazahlen). Zum Rechnen stehen natürlich die 
vier Grundrechenarten zur Verfügung, zusätzlich noch 
Potenzieren. Die verschiedenen, auch aus Basic bekannten 
Vergleichsoperatoren werden in Fortran nicht durch die 
bekannten Zeichen dargestellt, sondern durch entspre¬ 
chende Zeichenoperatoren. So lautet beispielsweise der 
Operator für Ungleich: ».NE.« (not equal to). Die Operatoren 
müssen in Punkte eingeschlossen werden, um vom Compiler 
als Operatoren erkannt zu werden. Alle Standardoperatoren 
sind Vorhanden (Bild 6). Für die Bearbeitung von mathemati¬ 
schen Problemen bietet Nevada-Fortran eine umfangreiche 
Stand*» ■.'-Bibliothek (Bild 7), die im wesentlichen dem ANSI- 
Standard entspricht. Zur Berechnung von Bogengraden ste¬ 
hen vier Funktionen zur Verfügung. Der Logarithmus kann als 
natürlicher oder lOer-Logarithmus berechnet werden. Mit 
einer weiteren Anweisung können die Nachkommastellen 
eines Divisionsergebnisses bearbeitet werden. 

Auch für den Mathematiker tut sich das Problem der Daten¬ 
speicherung auf. Dazu bietet Nevada-Fortran eine ganze 
Reihe von Anweisungen an, die mit dem Befehl CALL aufge¬ 
rufen werden. Die Definition von Feldern ist mit Nevada- 
Fortran ebenfalls möglich. 

Wer seine mathematischen Probleme mit einer klassischen 
Programmiersprache lösen möchte, ist mit Nevada-Fortran 
bestens bedient. Nicht nur seine Leistungsfähigkeit macht 
dieses Produkt interessant, sondern auch der gewohnt nied¬ 
rige Preis, der es dem Heimanwender erlaubt, auf die Spra¬ 
che seiner Wahl zurückzugreifen, ohne einen größeren Kre¬ 
dit aufnehmen zu müssen. Wer tiefer in die Tasche greifen 
will, kann natürlich auf ein großes Compiler-Angebot zurück¬ 
greifen, muß sich aber auf Preise oberhalb der 1000-Mark- 
Grenze gefaßt machen. 

Nevada-Pilot für Individualisten 

Entwickelt wurde Pilot zum Entwerfen von Lernprogram¬ 
men, die nach dem Frage-und-Antwort-Prinzip arbeiten. 
Zweifellos eignet sich die Sprache durch die kurz gehaltene 
Schreibweise der einzelnen Befehle hervorragend für diese 
Programmart. Der Programmierer muß sich nicht mit Syntax- 
Regeln abmühen, sondern kann sich auf den Kern des Pro¬ 
blems konzentrieren. Für das bei Lernprogrammen auftre¬ 
tende Problem der String-Verarbeitung bietet Pilot eine Reihe 
von leistungsfähigen und nicht alltäglichen Befehlen (Bild 8) 
an. 

Pilot-Anweisungen sind nach folgendem Prinzip aufge¬ 
baut: 

Befehl:Operandenliste 

Einer der wichtigsten Pilot-Befehle ist die Type-Anweisung. 
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Diese existiert in zwei Formen. Die normale Type-Anweisung 
sieht folgendermaßen aus: 

T:PILOT IST SPITZE 

Dadurch erscheint ganz einfach der Text nach dem Doppel¬ 
punkt auf dem Bildschirm. Um Eingaben direkt an den Text 
anzuschließen wird der Befehl TH verwendet. Mit der Anwei¬ 
sung TP läßt sich der nachfolgende Text auf den Drucker 
umlenken. Mit einem ebenso einfachen Befehl werden Daten 
vom Bildschirm eingelesen. Die dem aus Basic bekannte 
INPUT-äquivalente Anweisung lautet in Pilot »A:« (Accept = 
akzeptiere). Jetzt sind praktisch die beiden wichtigsten Ele¬ 
mente von Pilot erklärt, um mit dem Computer in Verbindung 
zu treten. Die vom Anwender eingegebenen Daten muß man 
auf ihre Richtigkeit überprüfen können. Dazu bietet Nevada- 
Pilot wieder einige ungewohnte Anweisungen an, vergleich¬ 
bar mit IF..THEN aus Basic. So können über die Anweisung 
»M:« verschiedene Kriterien angegeben werden. Wurde kei¬ 
nes der definierten Kriterien eingegeben, so wird in Abhän¬ 
gigkeit des gewählten Sprungbefehls zum entsprechenden 
Label verzweigt. Diese Art der Abfrage beschränkt sich aller¬ 
dings auf einige fest vorgegebene Sprungziele. 

Die integrierte Sprunganweisung »J:« (Jump) ermöglicht 
das Ansteuern von freidefinierbaren Sprungzielen. Ein 
Sprungziel (Label) wird immer mit einem vorangestellten 
Stern (*) gekennzeichnet, auch beim Aufruf mit »J:«. Dieser 
Befehl ermöglicht auch den Sprung unter einer bestimmten 
Bedingung. Doch nun zurück zum bereits erwähnten Match- 
Befehl (M:). Dazu sehen wir uns ein kleines Beispiel an (Bild 
9). Der Befehl in der ersten Zeile ist für das Löschen des Bild¬ 
schirms verantwortlich. In Zeile zwei wird ein Label mit Namen 
»START« definiert. Danach wird mit dem Type-Befehl eine 
Frage auf dem Bildschirm ausgegeben. »A:« wartet auf eine 
Eingabe des Bedieners. Die M:-Anweisung legt fest, daß als 
gültige Eingabe nur »PARIS« zugelassen ist. Wurde PARIS 
eingegeben, ist die Bedingung »TY:« (Type if yes) erfüllt und 
es erscheint »RICHTIG« am Bildschirm. Die nächste Bedin¬ 
gung »JY:« (Jump if yes) ist somit ebenfalls erfüllt und es folgt 
ein Sprung zum Label »ENDE«. Wurde eine falsche Antwort 
eingegeben, werden die beiden Bedingungen als »nicht 
erfüllt« erkannt und übergangen. Ein kleiner Tip soll auf dem 
Weg zur richtigen Antwort weiterhelfen. Ist die nächste Ein¬ 
gabe wieder falsch, erscheint die korrekte Hauptstadt, 
ansonsten wird nach Ausgabe der entsprechenden Meldung 
zum Ende gesprungen. Die Anweisung »E:« zeigt dem Pilot- 
Interpreter das Programmende. 

Neben diesen Standard-Routinen bietet Nevada-Pilot noch 
zusätzliche Funktionen für Berechnungen und die Dateiver¬ 
waltung. So können die für Lernprogramme benötigten Daten 
in Dateien abgelegt und bei Bedarf eingelesen werden. 

C - Die Sprache der Zukunft 


Derzeit wird die EDV-Welt von der noch relativ jungen Spra¬ 
che C stark beeinflußt. Ursprünglich für das Betriebssystem 
UNIX entwickelt, steht C nun schon seit längerem für den 
C128 zur Verfügung, sei es im C128-Modus oder im CP/M- 
Modus. Der hier vorgestellte C/80-Compiler von Software- 
Toolworks läuft unter CP/M und bietet überraschend viele 
Standardfunktionen (Bild 10) der C-Norm, die von Kerni- 
gan/Ritchie, den »C-Erfindern«, festgelegt wurden. 

Der Compiler erzeugt in einem Durchgang ein Assembler¬ 
file und ein ablauffähiges COM-File. Zahlreiche Parameter, 
die beim Compileraufruf mit angegeben werden, ermögli¬ 
chen es dem Programmierer die Grundeinstellung des Com¬ 
pilers zu verändern und somit die Geschwindigkeit des 
Codes, was allerdings auf Kosten des Speicherplatzes geht. 

Die vom C/80 angebotenen Variablentypen brauchen den 
Vergleich mit anderen C-Compilern nicht zu scheuen. So ste¬ 


ch: 

* Start t:Wie heißt die Hauptstadt von Frankreich? 
a: 

m: paris 

ty:Richtig 

jy:*ende 

t:Vielleicht hilft Ihnen Pigalle weiter 
a: 

m:paris 

ty:Jetzt stimmt’s 
jy:ende 

t: Paris wäre die richtige Antwort gewesen 
*ende 

:e 


Bild 9. Pilot-Listing mit einfachem Entscheidungsbaum 


C/80-Funktionsübersicht 

GETCHARO 

PUT() 

Exrro 

ABS() 

ISALPHAQ 

ISSPACEO 

STRLEN() 

FTELLRO 

PUTCHARO 

FCLOSEO 

SBRK() ' 

ATOK) 

ISDIGIT() 

STRCATf) 

TOLOWERO 

EXEC() 

FOPEN() 

READ() 

PRINTF() 

ITOA() 

ISLOWER() 

STRCMPQ 

SEEK() 

COMMANDf) 

GET() 

WRITE() 

SCANF() 

INDEXQ 

ISUPPERO 

STRCPY() 

ftellq 


Bild 10. Standardfunktionen des C/80-Compilers 


hen außer den Datentypen »LONG« und »FLOAT« alle Mög¬ 
lichkeiten zur Auswahl. Die fehlenden Typen sind aber dann 
im Erweiterungspaket »C/80 Mathpak« enthalten, das zu 
einen. Aufpreis von 99 Mark erhältlich ist. Zeiger sind eben¬ 
falls vorhanden und arbeiten mit allen Datentypen zusam¬ 
men. Die Speicherungsklassen, die C/80 zur Verfügung 
stellt, entsprechen ebenfalls dem Standard. Sogar die Spei¬ 
cherklasse »auto« ist vertreten, die zu den Standardeinstel¬ 
lungen lokaler Variablen innerhalb einer Funktion gehört. 
Daneben gibt es noch die »static«-Klasse, die lokale »auto«- 
Variablen auch nach dem Verlassen einer Funktion am Leben 
erhält. Eine weitere Speicherklasse wird mit »register« ange- 
boten. Normalerweise ist es dem Compiler überlassen, wo er 
seine Variablen ablegt. Wenn Sie die Variable mit »register« 
deklarieren, verarbeitet der Compiler diese Variable direkt in 
einem der Prozessor-Register. Somit ist der schnellstmögli¬ 
che Zugriff auf die Variable gewährleistet. Zu guter Letzt kön¬ 
nen Sie noch die Speicherklasse »extern« anwenden. Damit 
können Variablen, die in einer als Modul verwendeten Funk¬ 
tion Vorkommen, als global definiert werden, so daß aus allen 
anderen Programmebenen darauf zugegriffen werden kann. 

Auffällig an C/80 ist vor allem die Tatsache, daß Standard- 
Dateien fehlen, die jedem C-Programmierer nach einiger Zeit 
vertraut sind. Gemeint ist hier beispielsweise »STDIO.H«, die 
ständig verwendete Ein-/Ausgabe-Parameter enthält. Die bei 
C/80 verwendeten »INCLUDE«-Dateien enthalten größten¬ 
teils die Module für die Steuerung der Bildschirm-, Disketten- 
und Drucker-Ein-/Ausgabe. So gibt es für die formatierte Bild¬ 
schirmausgabe mit »PRINTF« eine eigene Datei, die jedesmal 
mit der »INCLUDE«-Anweisung eingebunden werden muß, 
sobald sie, und das ist meistens der Fall, im Programm ver¬ 
wendet wird. Genauso wird mit einigen Funktionen der Datei¬ 
verwaltung verfahren, die in einer Datei namens »SEEK.C« 
abgelegt sind. Weiterhin steht »SCANF.C« für die formatierte 
Ausgabe und »STDLIB.C« für Systemzugriffe und String- 
Behandlung zur Verfügung. 

Wem C zur Systemmanipulation immer noch nicht aus¬ 
reicht, der kann über die Anweisung »#ASM« Assembler¬ 
code direkt in das Programm einfügen. Die Assemblerroutine 
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wird mit »#ENDASM* abgeschlossen. Beim Compilieren 
wird der Assemblercode übergangen und erst bei der 
Assemblierung weiterverarbeitet. 

Vor allem für den Systemprogrammierer ist die »INCLUDE«- 
Datei »CLIBIO.C« interessant, in deren Definitionsteil alle 
Systemaufrufe vorhanden sind. Allerdings nur die Aufrufe der 
CP/M-Version 2.2, die nicht alle Funktionen des CP/M 3.0 
enthält. Diese lassen sich, wenn der Programmierer über die 
nötigen Kenntnisse verfügt, ohne weiteres anfügen. 

Abschließend kann gesagt werden, daß sich der 
C/80-Compiler nicht nur für die Systementwicklung eignet, 
wie es bei Small-C der Fall ist. Der enorme Befehlsumfang 
sowie die Vielfalt der Variablen- und Speicherklassentypen 
erlaubt es dem versierten C-Programmierer durchaus, 
ernsthafte Anwendungen zu entwickeln. Da der Compiler ein 
Programm in einem Durchgang compiliert, werden aktzepta- 
ble Zeiten erreicht. Zum Schluß sei noch auf die Erweite¬ 
rungspakete hingewiesen. Wie bereits erwähnt, ist zusätz¬ 
lich das C/80-Mathpak erhältlich, eine Erweiterung für mat¬ 
hematische Anwendungen. Der C/80-Compiler, der für 189 
Mark erhältlich ist, wird auch zusammen mit dem Mathpak 
angeboten, die Kosten belaufen sich dann auf 279 Mark. 

Nevada-Edit - komfortable 
Programmierumgebung 


Um unter CP/M sinnvoll programmieren zu können, benötigt 
man einen leistungsstarken Bildschirm-Editor, der eine belie¬ 
bige Cursor-Steuerung erlaubt (Full-Screen-Editor). Vom 
CP/M-ED wird man in dieser Beziehung bitter enttäuscht. 
Wer sich aber zur Programmentwicklung keine Textverarbei¬ 


tung wie Wordstar anschaffen will, kann auch auf Nevada-Edit 
zurückgreifen. Der Editor kostet inklusive Handbuch 89 
Mark. Er bietet Full-Screen-Behandlung des editierten Tex¬ 
tes. Bei der Konfiguration des Editors an den C128 muß wie¬ 
der nur der Terminal-Typ »Lear-Seigler ASM31« angewählt 
werden. Danach erfolgt die Auswahl der gewünschten Exten¬ 
sion (Dateikennung). Die editierten Programme werden ohne 
die Dateikennung aufgerufen. Diese wird automatisch ange¬ 
fügt. Allerdings muß die Extension drei Zeichen lang sein. Für 
den C-Compiler wäre diese Funktion also ungeeignet. Hier 
muß die Dateikennung beim Starten des Editors mit angege¬ 
ben werden. 

Der Editor selbst bietet eine reichhaltige Auswahl an Funk¬ 
tionen, die teilweise Wordstar-orientiert sind. Nevada-Edit 
erweist sich als geeignetes Werkzeug zur Programmierung 
mit den verschiedenen Nevada Compiler-Sprachen. Der Edi¬ 
tor kann aufgrund seiner Funktionsvielfalt uneingeschränkt 
zur Erstellung von Quelltexten oder auch als Mini- 
Textverarbeitung verwendet werden und zeigt sich nach län¬ 
gerer Anwendung als große Hilfe bei der Programmierung. 

Viel Sprache für wenig Geld. So könnte man das Angebot 
der Nevada-Serie zusammenfassen. Beinahe jede gängige 
Sprache ist damit im CP/M-Modus des C128 verfügbar. Doch 
auch für die Liebhaber moderner Sprachen bieten beispiels¬ 
weise Nevada-Pascal oder C/80 eine echte Alternative zu 
den sonst oft überteuerten Compiler-Sprachen, die unter 
CP/M erhältlich sind. Man kann zwar nicht erwarten, daß ein 
billiges Produkt die Leistung der großen und teuren Compiler 
erreicht, ist aber angenehm überrascht, wenn beim ersten 
Arbeiten bereits die Funktionsvielfalt der verschiedenen 
Compiler auffällt. (rf) 

Info: Tesco GmbH, RüdenhausenerstraBe, 8714 Wiesentheid 
Comfood GmbH. FlaBkamp 24, 4400 Münster 
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Z 80 - Der CP/M-Steuermann 


Lernen Sie die zweite Seele des C128, den 
Z 80-Prozessor, näher kennen. Damit können Sie 
das leistungsfähige Betriebssystem CP/M besser 
ausnutzen. 

W er sich heute ernsthafter mit CP/M beschäftigen will, 
kommt nicht darum herum, den Z 80 Mikroprozessor 
etwas näher zu betrachten. 

Das Betriebssystem CP/M (»C«ontrol-»P«rogramm for 
»M«icrocomputers), das von der Firma Digital Research ent¬ 
wickelt wurde, ist zwar ursprünglich für den 8080-Mikropro- 
zessor der Firma Intel geschrieben worden, doch heutzutage 
wird in CP/M-Computern fast ausschließlich der Z 80-Mikro- 
prozessor (CPU) verwendet. So wird auch im Commodore 
128 PC eine Z 80 A CPU (A = 4-MHz-Version) für den CP/M- 
Modus eingesetzt. 

Kompatibilität Z 80 - 8080 


Die Kompatibilität der 80er-Prozessoren von Intel und Zilog 
stiftet bei CP/M-Benutzern immer wieder Verwirrung. Des¬ 
halb wird an dieser Stelle hierauf eingegangen. 

Die 8080-CPU der Firma Intel kann als der Stammvater der 
sogenannten 80er-Familie bezeichnet werden. Diese CPU 
ist seit 1974 lieferbar. Die Z 80-CPU wurde von der Firma 
Zilog entwickelt und wird seit 1977 vertrieben. Dieser Mikro¬ 
prozessor ist als konsequente Weiterentwicklung des 
8080-Mikroprozessors zu sehen. Der Z 80 ist aufwärtskom¬ 
patibel zum 8080-Mikroprozessor, das heißt er »versteht« 
alle Befehle des 8080 und besitzt darüber hinaus einen stark 
erweiterten Befehlssatz. Dieser erweiterte Befehlssatz darf 
aber für CP/M-Anwenderprogramme nicht benutzt werden, 
da Programme dann nicht mehr auf allen CP/M-Rechnern lau¬ 
fen würden (keine Kompatibilität mehr). Die Nutzung des 
erweiterten Befehlssatzes ist also auf Einzelanwendungen 
beschränkt. Einzelne Softwarehäuser weichen jedoch heute 
von dieser Regelung ab und bieten spezielle CP/M- 
Programme für CP/M- Rechner mit Z 80-CPU an. Diese Soft¬ 
warehäuser müssen sich jedoch den Vorwurf der »Nichtkom¬ 
patibilität« gefallen lassen. 

Wer nun glaubt, er könne einen defekten Z 80 durch einen 
8080 austauschen, der irrt gewaltig. Die Kompatibilität die¬ 
ser beiden Prozessoren beschränkt sich auf den Befehlssatz 
des 8080, das heißt der Z 80 versteht die Opcodes des 
8080. Hardwaremäßig besteht keine Kompatibilität. Der 
8080 (und die 8080-Nachfolger der Firma Intel) benutzt 
einen gemultiplexten Datenbus, das heißt auf den Adreßlei¬ 
tungen A0-A7 werden abwechselnd Adressen und Daten 
»transportiert«, während beim Z 80 alle Anschlüsse einzeln 
herausgeführt werden. 

Die Verwirrung bei ernsthaften CP/M-Einsteigern ist häufig 
vollends, wenn zur Erstellung von Maschinenprogrammen 
Assembler benutzt werden sollen. 

Der Besitzer eines C128 weiß, daß sein Computer mit einer 
Z 80-CPU ausgerüstet ist und das Betriebssystem CP/M 
Plus mitgeliefert wurde. Um den Z 80 näher kennenzulernen 
und um in Maschinensprache zu arbeiten, besorgt er sich ein 
Buch über den Z 80 und die zu CP/M Plus gehörenden Utili¬ 
ties SID, MAC und HEXCOM. SID ist ein Maschinensprache¬ 
monitor mit kleinem Assembler und Disassembler. MAC ist 
ein Makroassembler, der ein Maschinenprogramm in Assem¬ 
blersprache (mnemonische Form) in den Maschinencode 
übersetzt. HEXCOM erzeugt aus den von MAC übersetzten 


Dateien Programme, die direkt vom Betriebssystem aus auf¬ 
gerufen werden können (.com-Dateien). Wenn man sich jetzt 
mit SID einen Teil des Z 80-ROMs in seinem C128 disassem- 
blieren läßt, stellt man fest, daß die aufgelisteten Maschinen¬ 
sprachebefehle in mnemonischer Form nicht mit denen eines 
Z80-Buches übereinstimmen. Das liegt daran, daß die Opco¬ 
des des Z 80 und des 8080 zwar übereinstimmen (mit den 
weiter oben beschriebenen Einschränkungen), jedoch für 
beide Prozessoren andere Mnemonics verwendet werden. 
Die zum CP/M-System mitgelieferten Disassembler erzeu¬ 
gen jedoch Mnemonics im Intel-Format (8080-Mnemonics). 

Wer also den Z 80 kennenlernen möchte, muß entweder 
mit Opcodes arbeiten (zum Beispiel mit dem SID-Monitor) 
oder muß sich einen Z 80-Assembler besorgen. Die weiter 
unten beschriebenen Z 80-Assemblerbeispiele wurden mit 
dem Z 80-Makroassembler erstellt und getestet, der mit dem 
Small-C-Entwicklungssystem vom Markt&Teöhnik Verlag 
mitgeliefert wird. 

Der CP/M-Macroassembler MAC kann zwar auch Z 80- 
Mnemonics übersetzen, jedoch muß eine Mnemonic-Form 
benutzt werden, die sehr stark von der üblichen Zilog-Version 
abweicht, so daß dieser Weg nur als Notlösung akzeptiert 
werden kann. Welche Form die zu verwendenden Mnemo¬ 
nics haben müssen, können Sie erfahren, wenn Sie die ent¬ 
sprechende Diskette einlegen (CP/M Utilities-Disk 2) und 
dann »TYPE Z80.LIB« (< RETURN >) eingeben. 

Der Z 80-Macroassembler des Small-C-Entwicklungssy- 
stems und die meisten anderen Z 80-Assembler benutzen 
die übliche Zilog-Version für Z 80-Mnemonics. 

Dies- Vorbemerkungen sind notwendig, damit die ersten 
Versuche, praktisch mit dem Z 80 unter CP/M zu arbeiten, 
nicht in Verwirrung und Frustration enden. 

Aufbau des Z 80 


Der Z 80-Mikroprozessor besitzt einen 8 Bit breiten Daten¬ 
bus (deshalb 8-Bit-Prozessor), einen 16 Bit breiten Adreßbus 
und einen Steuerbus. Der Systemtakt muß extern von einem 
separaten Taktgenerator erzeugt werden. Der prinzipielle 
interne Aufbau des Z 80-Prozessors sieht wie folgt aus: 

Im Inneren des Prozessors befinden sich: 

- eine Arithmetik-Logik-Einheit (ALU) 

- ein Steuerwerk, das die internen Abläufe steuert sowie 
den Steuerbus verwaltet 

- vier reine Adreßregister (1. der Befehlszähler PC, 2. der 
Stapelzeiger SP, 3. das Indexregister IX und 4. das Index¬ 
register IY). 

- ein Refresh-Register (R-Register), das dazu dient, dyna¬ 
mische Speicher aufzufrischen. 

- zwei Akkumulatoren (A und A'), von denen jedoch nur einer 
zur Zeit benutzt werden kann. Auf den zweiten Akku kann 
jedoch umgeschaltet werden. 

- zwei Registersätze mit »normalen« Registern (B-,C-,D-,E-, 
H- und L-Register beziehungsweise B 1 , C 1 ,D ; ,E : ,H : und U 
Register). Diese jeweils 8-Bit breiten Register können zu 
jeweils drei 16-Bit breiten Registern zusammengezogen 
werden (BC-,DE- und HL-Register). 

Auch hier ist eine Registersatzumschaltung möglich 
(wie bei den Akumulatoren). 

- interne Daten-, Adreß- und Steuerbusse. Diese internen 
Busse sind durch Puffer von den äußeren Bussen 
getrennt. 

Es existieren noch weitere interne Register, die jedoch für 
den Programmierer nicht direkt erreichbar sind. 
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Vergleicht man den Z 80 mit dem 6502, so fällt die größere 
Anzahl von Registern beim Z 80 auf. Der Z 80 benötigt auch 
mehr Register, denn er gehört zu den sogenannten register¬ 
orientierten Prozessoren (wie die gesamte 80er-Familie), der 
6502 zu den speicherorientierten Prozessoren (65er- und 
68er-Familie). 

Viele Arbeiten, die die speicherorientierten Prozessoren 
im Arbeitsspeicher (RAM) durchführen, müssen bei den regi¬ 
sterorientierten Prozessoren innerhalb des Prozessors in 
einem ihrer vielen Register durchgeführt werden. Die 6502 
CPU behandelt Ein-/Ausgabebausteine (I/O) wie normale 
Speicherzellen. Das bedeutet, daß die meisten CPU-Befehle 
auch auf I/O-Bausteine anwendbar sind. 

Die Z 80 CPU benutzt für Ein-/Ausgabe über I/O-Bausteine 
besondere Befehle (IN und OUT). Die I/O-Bausteine befin¬ 
den sich nicht im »normalen« Adreßbereich, sondern werden 
über eine besondere Input/Output-Request-Leitung (IORQ) 
aktiviert und über die untere Hälfte des Adreßbusses (A0-A7) 
adressiert. Nach einem Hardware-Reset (zum Beispiel nach 
dem Einschalten) beginnt die 6502 CPU mit der Arbeit an der 
Speicherstelle FFFC, während die Z 80 CPU bei der Adresse 
0000 beginnt. 

Weiterhin unterscheiden sich die beiden Prozessoren in 
den üblicherweise verwendeten Taktfrequenzen. Diese wer¬ 
den häufig fälschlicherweise zum Vergleich der Arbeitsge¬ 
schwindigkeit von unterschiedlichen Prozessoren herange¬ 
zogen. Ein Vergleich ist direkt nur innerhalb gleicher Prozes¬ 
sorfamilien möglich. 

Die Prozessoren der 30er-Familie arbeiten normalerweise 
mit wesentlich höheren Taktfrequenzen als die Prozessoren 
der 65er-Familie. Die Schlußfolgerung, daß die 80er-Prozes- 
soren damit grundsätzlich schneller sind als die 65er-Prozes- 
soren, wäre aber falsch. Ein Mikroprozessor benötigt zur 
Abarbeitung eines Befehls in der Regel mehrere Taktzyklen. 
Vergleicht man nun Befehle des Z 80 und des 6502, die die 
gleiche Wirkung haben, so stellt man fest, daß der Z 80 in der 
Regel mehr Taktzyklen für den wirkungsgleichen Befehl 
benötigt als der 6502-Prozessor. Er muß, um auf die gleiche 
»Arbeitsgeschwindigkeit« zu kommen, mit einer höheren 
Taktfrequenz arbeiten. 

Der Z 80-Prozessor ist trotzdem verhältnismäßig schnell, 
weil er eine Methode benutzt, die als Pipelining bezeichnet 
wird. Vereinfacht ausgedrückt, bewirkt dieses sogenannte 
Pipelining, daß der Prozessor, während er einen Befehl bear¬ 
beitet, schon den nächsten Befehl lädt. 

Der Befehlssatz 
des Z 80-Mikroprozessors 


Die Befehle des Z 80 lassen sich wie beim 6502 in 
bestimmte Befehlsgruppen einteilen. 

1. Transportbefehle (auch Transferbefehle genannt) 

2. Arithmetische Befehle (Addition) 

3. Logische Operationen (UND-Verknüpfung) 

4. Registeranweisungen (Übertragsbit löschen) 

5. Sprungbefehle (Setze das Programm an der ange¬ 
gebenen Adresse fort) 

6. Programmunterbrechungen (Unterbrechung wird zuge¬ 
lassen) 

7. Unterprogrammbehandlung (Unterprogrammaufrufe) 

8. Sonstige Befehle (NOP, Leerbefehl no Operation). 

Wie bekannt, lassen sich mit 8 Bit maximal 256 Werte dar¬ 
stellen (0-255), das heißt, der Befehlssatz eines 8-Bit-Mikro¬ 
prozessors kann normalerweise maximal 256 Befehle betra¬ 
gen. Der 6502 besitzt 151 erlaubte (legale) Befehle (Opco- 
des) und in der C-MOS-Version 65C02 178 Befehle. Die 
restlichen Opcodes (bis zu einer Summe von 256) sind die 


sogenannten »illegalen Opcodes«, für deren Funktion die 
Hersteller keine Garantie übernehmen. 

Auch der 8080 bleibt mit der Anzahl seiner Befehle (242) 
im Rahmen der mit 8 Bit darstellbaren Werte. 

Der Z 80 hingegen besitzt mehr als 700 bekannte Befehle. 
Theoretisch sind es sogar mehr als 1000. Wie ist das bei 
einem 8-Bit-Mikroprozessor, der auch noch aufwärtskompa¬ 
tibel zum 8080/8085 ist, überhaupt möglich? Die Lösung ist 
einfacher als man glaubt. Beim Z 80 werden einige Opcodes, 
die beim 8080/8085 nicht benutzt werden, zur Umschal¬ 
tung des gesamten Befehlssatzes verwendet. Und zwar sind 
es die Opcodes DD, FD, ED und CB (hexadezimale Schreib¬ 
weise). Findet der Z 80 einen dieser Opcodes in einem Pro¬ 
gramm vor, schaltet er seinen Befehlssatz um. Das diesen 
Opcodes folgende Byte wird dann als neuer Opcode inter¬ 
pretiert. Diese neuen Befehle bestehen aus mindestens 
2 Byte (dem »Umschaltopcode«, gefolgt von einem Befehl). 
Diese genial einfache Lösung zur Erweiterung des Befehls¬ 
satzes für einen 8-Bit-Prozessor scheint den Entwicklern 
des Z 80 so gut gefallen zu haben, daß sie diese Methode 
noch weiter ausgebaut haben und bei den »Umschaltopco¬ 
des« DD und FD noch weitere Umschaltopcodes vorgesehen 
haben. Folgt dem DD oder dem FD ein CB, wird jeweils wieder 
in einen neuen Befehlssatz umgeschaltet. Diese Befehle 
bestehen dann mindestens aus 3 Byte (3-Byte-Befehle). 

Die beim Vorgänger des Z 80 (dem 8080) nicht benutzten 
Opcodes DD, FD, ED, CB, DDCB und FDCB schalten also 
beim Z 80 den gesamten Befehlssatz um. So ist es also mög¬ 
lich, mit einem 8-Bit Prozessor einen Befehlssatz mit mehr als 
256 Befehlen zu erzeugen. Nach diesem Prinzip funktioniert 
auch das sogenannte »Bank-switching«, die Speicherbank¬ 
umschaltung bei 8-BiLComputern mit mehr als 64 KByte 
Speicher (wie auch beim CI28). 

Z 80-Mnemonics 


Die Firma Zilog hat für den Z 80 eine eigene Form von Mnemo- 
nics (Gedächtnishilfe für Opcodes) entwickelt, die stark von 
den Intel-Mnemonics abweichen. Wer sich schon mit der 
6502-Maschinensprache beschäftigt hat und die 6502-Mne- 
monics kennt, kann sich aber freuen. Viele der Z 80-Mnemo- 
nics ähneln stark den 6502-Mnemonics. 

6502-Befehl: 

LDA $1000 

Wirkung: Lade den Akku mit dem Inhalt der Speicherstelle 
an Adresse 1000 hex. 

Z 80 Befehl: 

LD A,(1000h) 

Wirkung: Gleiche Wirkung wie beim 6502. Die Klammer 
um die Adresse steht bei den meisten Z 80-Assemblern für: 
Inhalt der Speicherstelle mit der Adresse in der Klammer in 
den Akku übertragen. Weiterhin erwarten die meisten Z 80- 
Assembler eine Angabe, in welchem Zahlensystem die Ad¬ 
ressenangabe erfolgt. In diesem Beispiel besagt das »h« hin¬ 
ter der Adresse, daß es sich um eine hexadezimale Adresse¬ 
nangabe handelt. Wird das »h« weggelassen, so nehmen die 
meisten Z 80-Assembler an, daß es sich um eine Dezimalzahl 
handelt, und rechnen die vermeintliche Dezimalzahl in eine 
Hexadezimalzahl um. 

Doch nun zu den Standardbefehlen der einzelnen Befehls¬ 
gruppen. 

Es hat wenig Sinn, im Rahmen dieses Artikels sämtliche 
Z 80-Befehle (über 700) aufzulisten und in ihrer Wirkung zu 
beschreiben. Selbst im Rahmen eines Z 80-Lehrbuches 
wäre diese Methode nicht nur langweilig, sondern auch 
unsinnig, da viele Befehle im Prinzip die gleiche Wirkung 
haben, sich jedoch nur auf andere Register beziehen. Des¬ 
halb werden hier die Standardbefehle der einzelnen Befehls- 
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gruppen besprochen. Dabei wird das Prinzip dieser Befehle 
deutlich, das allen anderen der gleichen Kategorie zugrunde 
liegt, um den Anwender (beziehungsweise den Lernenden) 
in die Lage zu versetzen, alle Befehle dieser Art bei Bedarf 
einzusetzen. Um größere Programme zu erstellen, sollte man 
sich dann einen kompletten Befehlssatz des Z 80 besorgen 
und die geeignetesten Befehle einsetzen. 

Die für den Einstieg in die Z 80-Programmierung wichtigen 
Befehlsgruppen werden im folgenden ausführlicher behan¬ 
delt. 

Transferbefehle 


Mit Hilfe von Transferbefehlen können: 

- Daten vom Prozessor (aus einem seiner Register) zum 
Speicher (RAM) und umgekehrt vom Speicher (RAM oder 
ROM) zum Prozessor 

- Daten vom Prozessor zu einem Ein-/Ausgabebaustein und 
umgekehrt 

- Daten innerhalb des Prozessors von einem Register in ein 
anderes Register übertragen werden. 

Diese Befehle werden in fast jedem Z 80-Maschinen- oder 
Assemblerprogramm benötigt. 

Die erste Kategorie der Transferbefehle sind die sogenann¬ 
ten Ladebefehle. Jeder Ladebefehl beginnt mit einem »LD« 
und einem Leerzeichen. Danach erfolgt die Angabe des Ziels 
und die Quelle der Daten. Diese beiden Angaben müssen 
durch ein Komma getrennt werden. Geladen werden kann 
jedes Register (Ziel) mit dem Inhalt jedes anderen Registers 
(Quelle) oder einer beliebigen Speicherstelle (Quelle). Es 
können sogar Register mit ihrem eigenen Inhalt geladen wer¬ 
den, wenn bei Ziel und Quelle die gleiche Registerangabe 
erfolgt. Die Wirkung eines solchen scheinbar unsinnigen 
Befehls ist eine kleine Zeitverzögerung des ablaufenden Pro¬ 
gramms. Diese Verzögerung kann manchmal aber recht nütz¬ 
lich sein (zum Beispiel bei Steuerungen). Die Aussage, daß 
jedes Register wie oben angegeben geladen werden kann, 
trifft natürlich auch auf den Akkumulator zu. Jedoch besitzt 
er, wie beim 6502, eine Sonderstellung. Das weiter oben 
angegebene Beispiel (Lade Akku 6502 und Z 80) ist so ein 
Sonderbefehl für den Akku. Doch zunächst einige Beispiele 
für normale Transferbefehle: 

Lade ein beliebiges Register mit einem angegebenen Wert 
(unmittelbare Adressierung) 

LD A, 1FH - Bedeutung: Lade den Akkumulator mit dem Wert 
1F hexadezimal 

LD B,2AH - Lade das B-Register mit dem Wert 2A hex. 

LD H,05H - Lade das H-Register mit dem Wert 5 hex. 

Jedes der sogenannten »Arbeitsregister« (A,B,C,D,E,H und 
L-Register) kann auf diese Weise mit einem beliebigen Wert 
zwischen 00 und FF (hexadezimal) geladen werden. 

Doch nun zum zweiten Beispiel: 

Lade ein Register mit dem Inhalt eines anderen Registers. 
LD A,B - Lade Akkumulator mit dem Inhalt des Registers B. 
LD B,C - Lade das Register B mit dem Inhalt des Registers C. 
LD H,A - Lade das Register H mit dem Inhalt des Akkus. 

Bereits diese wenigen Beispiele machen das Prinzip deut¬ 
lich. In gleicher Weise kann aus jedem Arbeitsregister in ein 
anderes geladen werden. Bei diesen Befehlen wird der Akku 
wie ein »normales« Register behandelt. 

Wie bereits angesprochen, existieren auch Befehle, um die 
Werte beliebiger Speicherstellen in ein Register zu bringen. 
Diese Befehle sind nicht sofort durchführbar. Bevor so eine 
Operation durchgeführt werden kann, muß die Adresse der 
Speicherstelle in eines der Registerpaare geladen werden. 

An dieser Stelle kommen wir erstmals auf die weiter oben 
bereits erwähnten Registerpaare zu sprechen. Die Kombina¬ 
tion aus B- und C-Register wird als BC-Register (16 Bit), die 
Kombination von D- und E-Register als DE-Register (16 Bit) 


und die Kombination aus H- und L-Register als HL-Register 
(16 Bit) bezeichnet. Somit stehen drei »16-Bit-Register« 
(Arbeitsregister) zur Aufnahme von 16-Bit-Werten, wie zum 
Beispiel Adressen, zur Verfügung. 

Es gibt jetzt zwei Möglichkeiten, diese »16-Bit-Register« 
mit Werten zu laden. Die erste besteht darin, nacheinander 
beide Register einzeln mit den beiden Bytes einer Adresse 
zu laden. Die zweite Möglichkeit besteht in der Verwendung 
von sogenannten »16-Bit-Befehlen«, mit denen eines der 
Registerpaare durch einen einzigen Befehl geladen wird. 

Soll nun ein beliebiges Register mit dem Inhalt einer Spei¬ 
cherstelle geladen werden, so muß die Adresse der Spei¬ 
cherstelle in einem der Registerpaare stehen. Die Befehls¬ 
folge könnte folgendermaßen aussehen: 

LD H, 10H - Lade das H-Register mit dem Hex-Wert 10 
LD L,00H - Lade das L-Register mit dem Hex-Wert 00 
LD C, (HL) - Lade das C-Register mit dem Inhalt der Spei¬ 
cherstelle, deren Adresse im HL-Register steht. In unserem 
Beispiel wäre das die Adresse 1000 hexadezimal. 

Zu beachten ist hierbei, daß das höherwertige Byte der 
Adresse im H-Register und das niederwertige Byte der 
Adresse im L-Register stehen muß. 

Sehen wir uns noch eine zweite Möglichkeit zum Laden von 
»16-Bit-Register« an: 

LD HL, 1000H - Lade das Registerpaar HL mit dem Wert 1000 
hex. 

LD C, (HL) - Die Wirkung ist äquivalent zu obigem Beispiel. 
Der Befehl »LD HL,nnnn« ist ein sogenannter 16-Bit-Befehl, 
das heißt, mit einem einzigen Befehl kann ein 16-Bit-Wert in 
ein Registerpaar geladen werden. Diese Möglichkeit, die auf 
alle Registerpaare anwendbar ist (auch auf Programmzähler 
und Indexregister), erleichtert die Programmierarbeit, spart 
Zeit und Speicherplatz. Nicht mehr, aber auch nicht weniger 
leisten diese oft genannten »16-Bit-Befehle« des »8-Bit- 
Prozessors« Z 80. 

Wie schon weiter oben erwähnt, nimmt der Akkumulator 
unter den Registern eine Sonderstellung ein. So auch beim 
Laden mit dem Inhalt einer Speicherstelle. Die soeben 
beschriebenen Ladebefehle sind die allgemeine Form für alle 
Register. Der Akkumulator kann auch direkt mit dem Inhalt 
einer beliebigen Speicherstelle geladen werden. Dazu wird 
der folgende Befehl verwendet: 

LD A, (1000H) - Lade den Akku mit dem Inhalt der Speicher¬ 
stelle an Adresse 1000 hex. 

Bevor wir weitere Befehle (Befehlsgruppen) des Z 80 ken¬ 
nenlernen, sei auf eine Besonderheit der meisten Z80-As- 
sembler hingewiesen. Versucht man zum Beispiel mit dem 
Befehl »LD A,(A000h)« den Inhalt der Speicherstelle A000 
(hex) in den Akkumulator zu laden, streiken die meisten 
Z 80-Assembler. Sie erwarten bei Zahlenangaben (Adres¬ 
sen) als erste Ziffer eine Zahl zwischen 0 und 9. Dieses Pro¬ 
blem läßt sich auf denkbar einfache Weise lösen. Man fügt zur 
Zahlenangabe einfach eine führende 0 hinzu. 

Der Befehl »LD A,(0A000h)« wird dann anstandslos über¬ 
setzt. 

Testen Sie Ihren Z 80-Assembler in dieser Beziehung, 
bevor Ihnen unnötigerweise graue Haare wachsen. 

Arithmetische Befehle 


Der Z 80 kann, wie die meisten Mikroprozessoren, grund¬ 
sätzlich nur addieren und subtrahieren. Da er diese Operatio¬ 
nen jedoch sehr schnell ausführt, können andere (Multiplika¬ 
tion oder Division) durch kleine Programme nachgebildet 
werden. Die Multiplikation 3*4 kann auch als Addition 
4+4+4 aufgefaßt und so programmiert werden. 

Unterschieden wird bei den arithmetischen Befehlen zwi¬ 
schen Operationen mit Übertrag und ohne Übertrag. Weiter- 



70 


SONDERHEFT 12 







C128 


CP/M 


hin ist zu berücksichtigen, daß die meisten Additions- und 
Subtraktionsbefehle über den Akkumulator laufen. Additio¬ 
nen ohne Berücksichtigung des Übertrags sehen folgender¬ 
maßen aus: 

ADD A, 03 h - Addiere zum Akkuinhalt den Wert 03 hex. Das 
Ergebnis steht im Akkumulator. 

ADD A, B - Addiere zum Akkuinhalt den Inhalt des B-Registers. 
Das Ergebnis steht im Akku. 

ADD A, (HL) - Addiere zum Akkuinhalt den Inhalt der Spei¬ 
cherstelle, deren Adresse im HL-Register steht. Das Ergeb¬ 
nis steht im Akku. 

Beim letzten Additionsbefehl muß, bevor addiert werden 
kann, das HL-Register mit der Adresse der Speicherstelle 
geladen werden (siehe Transferbefehle). Die Doppelregister 
erlauben es, mit dem Z 80 16-Bit-Arithmetik zu programmie¬ 
ren: 

ADD HL,BC - Addiere zum Inhalt des HL-Registers (16 Bit) den 
Inhalt des BC-Registers (16 Bit). Das Ergebnis steht im HL- 
Register. 

SUB 05H - Subtrahiere vom Akkuinhalt den Wert 5 hex. Das 
Ergebnis steht im Akkumulator. 

SUB C - Subtrahiere vom Akkuinhalt den Inhalt des C- 
Registers. Das Ergebnis steht im Akku. 

Soll ein eventuell entstandener Übertrag berücksichtigt 
werden, programmiert man mit folgenden Befehlen: 

ADC A, 09H - Addiere zum Akkumulatorinhalt die »Hexzahl« 09 
und das Übertragsflag C (C = Carryflag). Das Ergebnis steht 
im Akku. 

ADC A,C - Addiere zum Akkumulatorinhalt den Inhalt des C- 
Registers und das Übertragsflag. 

Die entsprechenden 16-Bit-Befehle lauten: 

ADC HL, DE - Addiere zum Inhalt des HL-Registers den Inhalt 
des DE-Registers und das Übertragsflag C. Das Ergebnis 
steht im HL-Register. 646R G 

SBC A, 04h - Subtrahiere vom Akkuinhalt den Wert 04 hex 
sowie das Übertragsflag C. Das Ergebnis steht im Akkumula¬ 
tor. 

Indizieren mit Hilfe von Registern 


Alle Register und Registerpaare können »inkrementiert« oder 
»dekrementiert« werden. Dabei ist zu beachten, daß die fol¬ 
genden Befehle, auf Registerpaare angewendet (16 Bit), 
keine Flags im Statusregister beeinflussen. 

INC A ;erhöhe den Inhalt des Akkus um 1 
INC B ;erhöhe den Inhalt des B-Registers um 1 
INC HL ;erhöhe den Inhalt des HL-Registerpaares 
um 1 

DEC A ;verringere den Inhalt des Akkus um 1 
DEC HL ;verringere den Inhalt des HL-Registers um 1 
Diese Befehle können für Zählaufgaben oder Zeitschleifen 
eingesetzt werden. 

Weitere arithmetische Befehle finden Sie in der folgenden 
Tabelle. 

DAA Dezimalanpassung (BCD-Code) 

CPL Bildung des Einerkomplements des Akkus 

NEG Bildung des Zweierkomplements des Akkus 
Der Z 80 besitzt die Logikbefehle AND (Bitweise UND- 
Verknüpfung zweier Bytes), OR (Bitweise ODER- 
Verknüpfung zweier Bytes), XOR (EXKLUSIV-ODER- 
Verknüpfung zweier Bytes) sowie den Vergleichsbefehl CP 
("C"om"p"are). 

AND 83H - Führt eine UND-Verknüpfung jedes Bits des Akkus 
mit jedem Bit der Zahl 83 hex durch. Für den Akkuinhalt OF 
hex würde dieser Befehl folgendes bewirken: 

Akkuinhalt OF hex = 00001111 binär 

83 hex = 10000011 binär 
AND-Befehl ergibt : 00000011 binär im Akku 


Nach dem AND-Befehl würde also 03 im Akku stehen. Mit 
Hilfe des AND-Befehls, der auf keinen Fall mit einer Addition 
verwechselt werden darf, können beliebige Bits »ausgeblen¬ 
det« werden. In diesem Zusammenhang spricht man auch 
von »Maskierung«. Diese Maskierung ist bei Ein-/Ausgabe- 
operationen häufig sehr hilfreich. 

Verknüpfungsbefehle des Z 80: 

AND C Bitweise UND-Verknüpfung der Inhalte des 
Akkus und des C-Registers. Ergebnis steht im 
Akku. 

OR 1FH Bitweise ODER-Verknüpfung des Akkuinhalts 
mit dem »Datenbyte« 1F hex. Das Ergebnis steht 
im Akku. Die Verknüpfung wird, wie beim AND- 
Befehl beschrieben, durchgeführt, mit dem 
Unterschied, daß, sobald ein Bit im Akku oder im 
»Datenbyte« oder in beiden den Wert »1« besitzt, 
das Ergebnis 1 ist. 

OR E Bitweise ODER-Verknüpfung des Akkuinhalts 
mit dem Inhalt des E-Registers. Das Ergebnis 
steht im Akku. 

XOR IAH Bitweise EXCLUSIV-ODER-Verknüpfung des 
Akkuinhalts mit dem »Datenbyte« 1A hex. Das 
Ergebnis steht im Akku. Die EXCLUSIV-ODER- 
Verknüpfung liefert als Ergebnis immer dann eine 
»1«, wenn die Inhalte der einzelnen Bits unter¬ 
schiedlich sind. Sind sie gleich, entsteht eine 
»0«. Dieser Befehl kann zur sogenannten Inver¬ 
tierung (Umkehrung) benutzt werden (bei Logi¬ 
kanpassungen). 

CP 1BH Vergleiche den Akkuinhalt mit dem »Datenbyte« 
1B hex. Dabei wird IBh vom Akkuinhalt subtra¬ 
hiert und das Ergebnis nicht weiter berücksich¬ 
tigt. Es werden lediglich Flags im Statusregister 
Lin*-». beeinflußt. 

CP D Vergleiche den Akkuinhalt mit dem Inhalt des D- 
Registers. Die Wirkung ist die gleiche wie bei vor¬ 
herigem Befehl. 

Alle logischen Operationen des Z 80 arbeiten nur mit 8-Bit- 
Daten. 


Mit Hilfe der sogenannten Registeranweisungen kann der 
Inhalt eines Registers verschoben werden. Der Inhalt jedes 
Bits wird in ein benachbartes Bit verschoben. Beim soge¬ 
nannten Rotieren wird ein »herausfallendes« Bit jeweils am 
Anfang oder Ende des Registers verschoben. Beim Z 80 
kann das Carryflag bei diesen Operationen mit einbezogen 
werden. 

Auch hier wieder ein Beispiel: 

RRA ;lasse den Inhalt nach rechts rotieren, das heißt jedes 
Bit (Inhalt) wird um 1 Bit nach rechts verschoben, der 
Inhalt von Bit 0 gelangt ins Carryflag, der Inhalt des Car- 
ryflags in Bit 7. 

Weiterhin können mit Hilfe von Registeranweisungen ein¬ 
zelne Bits im Flagregister beeinflußt werden. 

Der Z 80 ist im Gegensatz zu den meisten anderen Mikro¬ 
prozessoren mit einer Vielzahl von Befehlen zur Bitmanipula¬ 
tion ausgestattet, deren Beschreibung hier aber zu weit füh¬ 
ren würde. 


Sprungbefehle 


Sprungbefehle werden in fast jedem Maschinenprogramm 
benötigt. Wie beim 6502 (und anderen Mikroprozessoren) 
kann ein Sprung, das heißt eine Fortsetzung des Programm 
an einer angegebenen Adresse, von bestimmten Bedingun¬ 
gen abhängig gemacht werden. Ein Sprung ohne zusätzliche 
Bedingung wird unbedingter Sprung, ein Sprung, der nur 
durchgeführt wird, wenn eine zusätzliche Bedingung erfüllt 
ist, wird bedingter Sprung genannt. 
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Beispiele für unbedingte Sprünge: 

JP 1000h setze das Programm mit dem Befehl in der 
Speicherstelle 1000h fort. 

JP (HL) setze das Programm an der Adresse fort, die 
im HL-Register steht. 

Die Bedingung, die bei bedingten Sprüngen erfüllt sein 
muß, damit der jeweilige Sprung durchgeführt wird, ist der 
Zustand eines entsprechenden Flags im Flag-Register. Es 
kann der Zustand (0 oder 1) des Z, C, P/V oder S-Flags sein. 
Beispiele für bedingte Sprünge: 

JP Z,4000h setze das Programm an der Adresse 4000h 
fort, wenn das Zero-Flag 0 ist. 

JP NZ,5000h setze das Programm an der Adresse 5000h 
fort, wenn das Zero-Flag nicht 0, also 1 ist. 
Das Zero-Flag wird auf »1« gesetzt, wenn bei einer arithme¬ 
tischen oder logischen Operation vorher, ein Ergebnis »0« 
geworden ist. 

Beim Z 80 kann eine Programmunterbrechung (Interrupt) 
durch einen Baustein außerhalb des Prozessors durch ent¬ 
sprechende Befehle zugelassen oder unterbunden werden 
(maskierbare Interrupts). Hierfür dient der INT-Anschluß am 
Prozessor. 

Manipulation der Interrupts: 

El setze das Interrupt-Flip-Flop. Danach sind Interrupts 
zugelassen. 

Dl setze das Interrupt-Flip-Flop zurück. Danach ist ein 
Interrupt über den INT-Anschluß nicht mehr möglich. 
Zusätzlich besitzt der Z 80-Mikroprozessor noch eine 
»nicht maskierbare Interruptleitung« (NMI-Anschluß). Eine 
Interrupt-Anforderung über diese Leitung wird auf jeden Fall 
durchgeführt. Weiterhin gibt es beim Z 80 noch drei Interrupt¬ 
modi, die den Ablauf nach einem Interrupt festlegen (Befehle: 
IM 0, IM 1 und IM 2). Damit der Prozessor bei Unterbrechun¬ 
gen nicht durcheinanderkommt, wird bei einem Interrupt der 
gerade bearbeitete Befehl zu Ende bearbeitet, bevor der Pro¬ 
zessor auf einen Interrupt reagiert. 


Hauptprogramm gehört ein RET-Befehl im Unterprogramm. 
Auch hierzu wieder ein Beispiel: 

Hauptprogramm: 
beliebiger Befehl 

CALL 2000H setze das Programm an der Adresse 2000 

hex. fort. 

nnnn nächster Befehl 

Unterprogramm: 

2000 beliebiger Befehl 

RET springe zurück ins Hauptprogramm zum 

nächsten Befehl (Adresse nnnn) 

Es können nicht nur eigene Unterprogramme aufgerufen 
werden, sondern auch Unterprogramme des Betriebssy¬ 
stems (CP/M-BDOS-Routinen). Diese Möglichkeit erleichtert 
die Programmierarbeit mit dem Z 80 ganz enorm. In den Pro¬ 
grammbeispielen machen wir von dieser Möglichkeit 
Gebrauch. 

Sonstige Befehle 


ln diese Gruppe sind die Befehle eingeordnet, die in keine der 
anderen Gruppen passen. Zu diesen Befehlen gehört der 
Befehl »HALT«. Die CPU unterbricht die Programmausfüh¬ 
rung und führt so lange den Befehl »no Operation« (NOP) aus, 
bis ein Reset durchgeführt wird oder ein Interrupt erfolgt. Der 
Befehl NOP gehört in diese Gruppe. Er bewirkt nur eine kleine 
Zeitverzögerung (1 Maschinenzyklus) des ablaufenden Pro¬ 
gramms. NOPs können in ein Programm genommen werden, 
um das Programm später an dieser Stelle mit zusätzlichen 
Befehlen zu erweitern. 

Zum Abschluß sollen noch zwei kleine Beispielprogramme 
(Listing 1 und Listing 2) vorgestellt werden, die für einen Ein¬ 
stieg ii. die praktische Programmierarbeit benutzt werden 
können. Um diese Programme auszuprobieren, benötigt man 
einen Editor (ED, Wordstar oder etwas ähnliches), einen 


Unterprogrammbehandlung 


Unterprogramme können beim Z 80 mit Hilfe der CALL- 
Befehle aufgerufen werden. Der CALL-Befehl bewirkt einen 
Sprung zu einem Unterprogramm an einer angegebenen 
Startadresse. Wie die Sprungbefehle, können auch die 
Unterprogrammaufrufe an Bedingungen geknüpft werden. 
Im Gegensatz zu den Jump-Befehlen (JP) »merkt« sich der 
Prozessor jedoch seine »Absprungadresse«. Er kann nach 
der Beendigung des Unterprogramms das ursprüngliche 
Programm mit dem Befehl fortsetzen, der dem CALL-Befehl 
im Hauptprogramm folgt. Dieser Rücksprung erfolgt, wenn 
der Prozessor im Unterprogramm einen RET-Befehl 
(RETURN) vorfindet, das heißt zu jedem CALL-Befehl im 


Testprogramm Z 80 (TEST.MAC) 

Ausgabe eines Zeichens auf dem Bildschirm 


ORG 0100H 
LD C.02H 

LD E,"R" 

CALL 6 

CALL 0 
END 


;Startadresse des Programms 

;Lade das C-Reg. mit dem Wert 02 hex(BDOS- 

;Funktion 2) 

;Lade das E-Register mit dem ASCII-Wert 
; für R 

;Sprung ins CP/M-BDOS, Aufruf der BDOS- 
;Funktion 2 
;Rücksprung zu CP/M 
;Ende des Quellprogramms 


;Beim Sprung ins BDOS wird die BDOS-Funktion 
;ausgeführt, deren Nummer im C-Register steht (hier 
;BDOS-Funktion 2) 

;Die BDOS-Funktion 2 gibt das ASCXI-Zeichen auf dem 
;Bildschirm 

(aus, dessen Wert im E-Register steht (hier R). 


Listing 1. Ausgabe eines einzelnen Zeichens 


Z 80-Assembler, der das mit dem Editor erstellte Assembler¬ 
programm in den Maschinen-Code übersetzt und einen Lin¬ 
ker, der aus dem übersetzten Programm eine direkt unter 
CP/M aufrufbare »COM«-Datei erstellt. 

Die Namenserweiterung muß nach den Erfordernissen des 
verwendeten Assemblers gewählt werden. Der bei der 
Erstellung dieser Beispielprogramme verwendete Makro¬ 
assembler des Small-C-Entwicklungssystems verlangt die 
Erweiterung MAC, andere Assembler erwarten den Zusatz 
ASM. Ganze Zeilen werden vom Assembler als Kommentar¬ 
zeilen angesehen, wenn als erstes Zeichen ein »;« steht. 

Die Bedienung Ihres Editors, Assemblers und Linkers ent¬ 
nehmen Sie bitte den Handbüchern zu diesen Programmen. 

(Rüdiger Szillus/rf) 


2. Testprogramm (TEST2.MAC) 

Ausgabe eines Strings auf dem Bildschirm 


ORG 0100h 
LD C,09h 

LD DE,TEXT 

CALL 5 
CALL 0 


;Startadresse 100 hex. 

;Lade den Wert 09 hex. ins 
;C-Register 

;Lade die Anfangsadresse 
;von "TEXT:" 

;Sprung ins BDOS 
;RUcksprung zu CP/M 


TEXT: DB "Rüdiger Szillus $";Definition des Datenbytes 
END ;Ende des Quellprogramms 


;Beim Sprung ins BDOS wird die BDOS-Funktion 9 
;ausgeführt. 

((Nummer steht im C-Register). 

(Die Adresse des auszugebenden Strings steht im DE- 
(Register ((hier Label TEXT:), 

;BDOS-Funktion 9 = Ausgabe eines Strings auf dem 
(Bildschirm. 

(Das $-Zeichen markiert das Ende des Strings und muss 
;angegeben werden. 


Listing 2. Ausgabe eines Strings 
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dBase II 
als 

Programmierspradie 


Um alle Möglichkeiten, die dBase II bietet, aus¬ 
schöpfen zu können, benötigt man Kenntnisse 
über die Programmierung dieser leistungsfähi¬ 
gen Dateiverwaltung. Wir zeigen Ihnen, wie Sie 
die dBase-ll-Datenbanksprache für eigene An¬ 
wendungen heranziehen können und somit ein 
Programm im Programm benutzen. 

S pricht man über CP/M, tauchen immer wieder die Namen 
von drei Programmen auf: Wordstar 3.0, Multiplan 128 
und dBase II. Jeder weiß dann zu berichten, daß die ein¬ 
zelnen Programme in der Reihenfolge ihrer Nennung der 
Textverarbeitung, der Tabellenkalkulation und der Dateiver¬ 
waltung dienen. Dies stimmt natürlich, jedoch stellt man mit 
dieser pauschalen Aussage das Licht von dBase II unter den 
Scheffel. dBase II ist wohl das bekannteste Datenbanksy¬ 
stem für den professionellen Einsatz und außerdem eine sehr 
leistungsstarke Programmiersprache, die bestimmte Ele¬ 
mente von Basic und Pascal beinhaltet. Hinzu kommen spe¬ 
zielle Befehle für die Bearbeitung von Dateien, die in dieser 
Form und Häufung nicht zu übertreffen sind (ausgenommen 
die neue Version dBase III für IBM und kompatible Computer). 

Dieser Bericht soll am Beispiel einer einfachen modular 
aufgebauten Adressenverwaltung in die Benutzung von 
dBase II als Programmiersprache einführen und dem interes¬ 
sierten Leser die Möglichkeit der unbegrenzten Erweiterung 
und Änderung des Programms bieten. 

Die Vörbereitung 


Bevor wir anfangen zu arbeiten, müssen wir eine entspre¬ 
chende Arbeitsdiskette vorbereiten. Dazu gehen Sie folgen¬ 
dermaßen vor: 

1. Schalten Sie das Diskettenlaufwerk ein 

2. Legen Sie die CP/M-Systemdiskette in das Laufwerk 

3. Schalten Sie den Computer ein 


4. Nach Erscheinen des A> geben Sie »PIP« ein und 
drücken < RETURN > 

5. i'Kich Erscheinen des »*« entfernen Sie die CP/M- 
Diskette und legen die dBase-ll-Diskette Nr. 1 ein 

6. Tippen Sie nun »e:=a:*.*« ein und drücken Sie 
<RETURN> 

7. Nach mehreren Diskettenwechseln, zu denen Sie Ihr 
Computer jeweils auffordert, besitzen Sie eine Arbeitskopie 
von dBase II 

8. Wenn wieder »»«erscheint, drücken Sie < RETURN >, 
wodurch Sie wieder ins CP/M-Betriebssystem gelangen, was 
Sie leicht am A> erkennen können 

9. Legen Sie die Arbeitskopie von dBase II ins Disketten¬ 
laufwerk 

10. Geben Sie »dBase II« ein und drücken Sie 
<RETURN> 

11. Beantworten Sie die Frage nach dem Datum und 
drücken Sie < RETURN >. 

Sie befinden sich nun in dBase II, das auch eine Art 
Interpreter-Hochsprache darstellt und sich jeweils mit einem 
».« meldet. Bevor wir in die eigentliche Arbeit mit dieser Spra¬ 
che einsteigen, müssen Sie die Struktur der Datenbank vor¬ 
bereiten. Geben Sie dazu ein: 

CREATE adressen < RETURN > 

Nach einer kurzen Weile stellt dBase II fest, daß es sich 
hierbei um eine neue Datei handelt und will nun von Ihnen wis¬ 
sen, welche Struktur die Datei besitzen soll. Geben Sie die 
folgenden Daten ein: 


ANREDE, 

c, 

5 

<RETURN> 

NAME, 

c, 

20 

<RETURN> 

VORNAME, 

c, 

20 

<RETURN> 

STRASSE, 

c, 

20 

<RETURN> 

PLZORT, 

c, 

20 

<RETURN> 

TELEFON, 

c, 

15 

<RETURN> 

GEBDAT, 

c, 

8 

<RETURN> 

NOTIZ, 

c, 

40 

<RETURN> 


<RETURN> 

Auf die Frage, ob Sie gleich Daten eingeben wollen, antwor- 
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ten Sie mit »N« für »Nein«. Benutzen Sie den Befehl USE 
< RETURN >, um die Datei zu schließen. 

Wir wollen nun kurz untersuchen, was Sie eigentlich 
gemacht haben. Sie haben dBase II mitgeteilt, wie die einzel¬ 
nen Felder Ihres Datensatzes heißen, nämlich ANREDE, 
NAME, VORNAME, STRASSE, PLZORT, TELEFON, GEB- 
DAT und NOTIZ. Durch die Eingabe von »C« nach dem Feldna¬ 
men weiß dBase II, daß in diesen Feldern später alphanumeri¬ 
sche Zeichen, das heißt Buchstaben, Zahlen und Satzzei¬ 
chen stehen können. Die jeweiligen Zahlen sagen dBase II, 
wieviel Zeichen es für das jeweilige Feld reservieren soll. 

Sie können die Feldnamen frei wählen, jedoch müssen 
diese immer mit einem Buchstaben beginnen. Es ist sinnvoll, 
Feldnamen zu wählen, die auch ohne nähere Erklärung aus¬ 
sagekräftig sind. Feldnamen dürfen aus bis zu 10 Zeichen 
bestehen und ein Feld kann bis zu 254 Zeichen beinhalten. 
Das Limit für die Anzahl der Felder beträgt 32, jedoch darf die 
Gesamtlänge eines Datensatzes 1000 Zeichen nicht über¬ 
schreiten. 

Außer »C« kennt dBase II noch die Feldtypen »N« und »L«. 
»N« geben Sie ein, wenn es sich bei dem Datenfeld um ein 
numerisches Feld handelt, also um ein Feld mit Zahlen, mit 
dem Sie später eventuell rechnen wollen. In diesem Fall kön¬ 
nen Sie ein weiteres Komma und danach die Zahl der Stellen 
nach dem Komma eingeben. »L« bezeichnet logische Felder, 
die nur »TRUE« (stimmt) oder »FALSE« (stimmt nicht) sein 
können. Ein solches Feld könnte zum Beispiel MITGLIED 
sein, da hier nur die Antwort »Ja« oder »Nein« sinnvoll wäre. 
Logische Felder haben immer die Länge »1«. 

Beachten Sie, daß das Feld GEBDAT, in dem später das 
Geburtsdatum stehen soll, acht Zeichen lang ist. Merken Sie 
sich, daß bei Zahlen und Daten der Punkt und das Komma mit¬ 
gezählt werden (tt/mm/jj = acht Zeichen). 

Nun müssen wir uns überlegen, was unser Programm kön¬ 
nen soll: 

1. Es soll menügesteuert und 

2. jederzeit erweiterbar sein 

Weiterhin sollte der Anwender folgende Möglichkeiten zur 
Verfügung haben: 

3. Neue Datensätze eingeben 

4. Datensätze löschen 

5. Datensätze ändern 

6. auf dem Bildschirm in der Datei blättern 

7. Adreßlisten und Etiketten drucken 

Bestimmt vermissen Sie hier eine Möglichkeit: die des Sor¬ 
tierens. Diese brauchen wir jedoch nicht als eigenen Pro¬ 
grammpunkt zu integrieren, da uns dBase II hierbei zu Hilfe 
kommt, indem es die Möglichkeit der Indizierung bietet. Bei 
der Indizierung wird die in der Regel unsortierte Hauptdatei 
nach einem oder mehreren Feldern sortiert. Dabei wird eine 
zweite Datei, die Indexdatei, angelegt. Die Hauptdatei bleibt 
jedoch unsortiert. Mit Hilfe dieser Indexdatei kann sehr 
schnell auf beliebige Daten zugegriffen werden. 

Wir indizieren nun unsere Datei, obwohl noch kein einziger 
Datensatz darin ist. Bei entsprechender Programmierung 
wird dBase II nun jeden neuen Datensatz richtig einordnen. 
Geben Sie folgendes ein: 

USE ADRESSEN < RETURN > 

INDEX ON NAME+VORNAME TO NAME < RETURN > 
USE <RETURN> 

Später wird dann dBase II die Familiennamen in alphabeti¬ 
scher Reihenfolge ordnen, bei gleichem Familiennamen 
zusätzlich noch nach Vornamen. 

Sehen wir uns nun mal an, welche Files auf unserer Dis¬ 
kette zu finden sind. Neben den dBase-ll-Dateien von der 
Programmdiskette finden wir, nachdem wir 
LIST FILES LIKE #.# <RETURN> 
eingegeben haben, die folgenden Einträge: 
ADRESSEN.DBF, unsere noch leere Datei und 


NAME.NDX, unsere Indexdatei. 

Wir wollen uns, bevor es richtig losgeht, auch noch einmal 
unsere Datei ansehen, indem wir eingeben: 

USE ADRESSEN <RETURN> 

LIST STRUCTURE < RETURN > 

Folgendes Bild sollte erscheinen: 

Strukturdaten für Datei: A:ADRESSEN. DBF 
Anzahl der Sätze: 00000 
Datum der letzten Aktualisierung: 00/00/00 
Primäre Datei 


Feld Name 

Typ 

Länge Dez. St. 

001 ANREDE 

»c« 

005 

002 NAME 

»c« 

020 

003 VORNAME 

»c« 

020 

004 STRASSE 

»c« 

020 

005 PLZORT 

»c« 

020 

006 TELEFON 

»c« 

015 

007 GEBDAT 

»c« 

008 

008 NOTIZ 

»c« 

040 

* * Gesammt * * 

00149 



Nebenbei bemerkt, lassen Sie sich von den wenigen 
Rechtschreibfehlern von dBase II nicht stören, seine Arbeit 
verrichtet es dennoch fehlerfrei. 

Nachdem wir nun alles verglichen und keinen Fehler gefun¬ 
den haben, gehen wir über zur eigentlichen Programmie¬ 
rung. 

Vorbemerkung 

dBase II besitzt einen eigenen Texteditor zur Erstellung von 
Programmen. Dieser ist jedoch vom Speicherplatz (ungefähr 
fünf KByte) und von den Textmanipulationsmöglichkeiten her 
eingeschränkt. Der Vorteil des CP/M-Betriebssystems ist, 
daß Sie mit jedem anderen CP/M-Textverarbeitungspro- 
gramm dBase-ll-Programme erstellen können. Dafür allein 
lohnt oich schon die Anschaffung von Wordstar 3.0 oder 
auch Turbo Pascal, das ebenfalls einen Wordstar-ähnlichen 
komfortablen Editor besitzt. 

Die Module unseres Adreßverwaltungsprogramms sind 
jedoch so kurz gehalten, daß der Texteditor von dBase II auf 
jeden Fall ausreicht, wenn Sie die Zeilen, die mit »*« begin¬ 
nen, Leerzeilen und Leerstellen am Anfang von Zeilen 
weglassen. 

Den Texteditor von dBase II aktivieren wir durch den Befehl 
MODIFY COMMAND programmname <RETURN> 
wobei »programmname« für jeden von Ihnen ausgesuchten 
Namen stehen kann, sofern dieser eine Länge von acht Zei¬ 
chen nicht überschreitet. dBase II ergänzt später beim Spei¬ 
chern diesen Namen automatisch durch ».CMD«. 

Im Texteditor brauchen Sie folgende Tastenkombinationen: 
<CONTROL+V> = Einfügemodus aus-/einschalten 
<CONTROL+T > = löscht Zeile, in der der Cursor steht 
<CONTROL+Y> = löscht Inhalt der Zeile, in der der 
Cursor steht 

<CONTROL+N> = fügt Leerzeile an Cursorposition ein 
<CONTROL+C> = springt halben Bildschirm weiter 

< CONTROL+Q> = verläßt den Texteditor, ohne die durch¬ 

geführten Änderungen zu speichern 
<CONTROL+W> = verläßt den Texteditor, speichert den 
geänderten Text und speichert ursprünglichen Text mit der 
Bezeichnung »programmname.BAK« auf Diskette. 

Statt <CONTROL+W> können Sie auch die kleine 
Cursor-Taste direkt neben der rechten <SHIFT>-Taste 
drücken. 

Laut Handbuch soll es möglich sein, durch Eingabe von 

< CONTROL+R > im Programmtext jeweils um einen halben 
Bildschirm zurückzugehen, jedoch weigerte sich der Com¬ 
puter beharrlich, diesem Befehl zu folgen und bewegte den 
Cursor jeweils nur um eine Zeile zurück. 

Innerhalb des Textes können Sie sich mit Hilfe der vier 
Cursor-Tasten frei bewegen. 
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Nun jedoch endlich zur Erstellung unseres Programms. 
Nach Eingabe des Befehls 

MODIFY COMMAND menu 

befinden Sie sich im Texteditor von dBase II. Die erste Zeile 
Ihres noch nicht existenten Programms (Listing 1) ist revers 
dargestellt. Beginnen Sie nun, die Befehle einzugeben, die 
dBase II nach der Eingabe von DO MENU < RETURN > aus¬ 
führen soll. Die Bedeutung der einzelnen Befehle wird jeweils 
erklärt werden. Lassen Sie, wie vorher schon einmal erwähnt, 
Zeilen, die mit einem »*« beginnen und Leerzeilen, sowie 
Leerzeichen am Anfang der Zeilen, weg. 

SET DELETED ON sorgt dafür, daß im weiteren Verlauf des 
Programms zur Löschung vorgemerkte Datensätze von 
dBase II ignoriert werden. 

SET TALK OFF unterdrückt Systemmeldungen, da diese 
den Bildschirmaufbau empfindlich stören können. 

STORE " "TO ANTWORT 

Innerhalb des Menüs wird dBase II später von uns eine 
Antwort erwarten, die ein Zeichen lang sein wird. Deswegen 
teilen wir dies dBase II mit, damit es eine Variable mit dem 
Namen »antwort« vorbereitet, in die später unsere aktuelle 
Antwort eingelesen wird. 

DO WHILE ... .OR.... 

Die folgenden Programmschritte soll dBase II solange wie¬ 
derholen, bis der Benutzer eine sinnvolle Antwort eingege¬ 
ben hat. Da wir insgesamt sechs Menüpunkte haben, die mit 
den Zahlen von 0 bis 5 bezeichnet werden, soll es bei jeder 
anderen Eingabe in der Form reagieren, daß es wieder die 
Menümaske zeigt. Die Zahlen von 0 bis 5 besitzen ASCII- 
Codes, die direkt aufeinander folgen, also muß jedes andere 
eingegebene Zeichen einen ASCII-Code besitzen, der ent¬ 
weder niedriger oder höher ist. Wenn also ein solches Zei¬ 
chen eingegeben wird, springt dBase II ständig zur DO- 
WHILE-Schleife zurück. Beachten Sie bitte, daß Befehle wie 
.OR., .AND. oder .NOT. jeweils mit einem Punkt beginnen und 
auch abgeschlossen werden müssen. 

ERASE 

Als nächstes soll der Bildschirm gelöscht werden, da wir 
natürlich unser Menü wie einen Brief auf einem sauberen 
Blatt Papier auf einem leeren Bildschirm zeigen wollen. 

@ Zeile, Spalte SAY "Text" 

Zwar gehört zum Lieferumfang von dBase II das Hilfspro¬ 
gramm ZIP, das beim Erstellen von Bildschirmmasken nütz¬ 
lich ist, jedoch besitzt dieses nach Meinung des Autors den 
Nachteil, daß dann später im Programm jeweils die mit Zip 
erstellte Maske geladen werden muß, was das Programm in 
seiner Geschwindigkeit unnötig verlangsamt. Außerdem ist 
es einfacher, direkt mittels Koordinaten (im Beispiel: Zeile, 
Spalte) anzugeben, an denen auf dem Bildschirm bestimmte 
Mitteilungen erscheinen sollen. An der Stelle von Zeile geben 
Sie die Nummer der Bildschirmzeile ein (0 bis 24), für Spalte 
die entsprechende Nummer der Bildschirmspalte (0 bis 79). 
Zwischen den Anführungszeichen steht dann Ihr gewünsch¬ 
ter Ausgabetext. i 

@ Zeile, Spalte SAY "Text"GET antwort 

Dies entspricht weitgehend dem vorherigen Befehl, jedoch 
ist nun der Befehl GET dazugekommen. An dieser Stelle 
erwartet dBase II von Ihnen eine Eingabe. Diese Eingabe wird 
in der Variablen »antwort« gespeichert. Der Befehl READ 
bewirkt, daß Ihre Eingabe übernommen wird. Stellt dBase II 
nun fest, daß Ihre Eingabe der DO-WHILE-Bedingung ent¬ 
spricht, also nicht eine der Zahlen von 0 bis 5 ist, springt es 
zum Anfang der Schleife zurück, löscht wieder den Bild¬ 
schirm, erwartet wieder eine Eingabe etc., bis Sie schließlich 
ein Zeichen eingeben, mit dem dBase II zufrieden ist. Nach¬ 
dem dBase II nun endlich eine Eingabe erhalten hat, mit der 
es arbeiten kann, prüft es nach, was es als Reaktion auf diese 
Eingabe tun soll. Dies geschieht mittels der DO-CASE- 
Verzweigung, die dBase II mitteilt, welche Aktionen von ihm 


bei welcher Antwort erwartet werden. Diese Verzweigung 
wird mit ENDCASE abgeschlossen. 

CASE-Bedingung 

Falls nun der Variablen »antwort« vom Benutzer das Zei¬ 
chen »0« gegeben wurde, löscht dBase II den Bildschirm 
(ERASE), schreibt dem Benutzer die Mitteilung auf den Bild¬ 
schirm, daß es die Adressendatei öffnet und führt dies 
sowohl bei der Adressendatei als auch der Indexdatei aus. 
USE adressen INDEX name 

Damit sind die Daten, wenn irgendwelche Manipulationen 
an der Datei vorgenommen werden, zugriffsbereit und liegen 
anschließend noch in alphabetisch geordneter Form vor. 
PACK 

löscht alle als gelöscht markierte Datensätze endgültig aus 
der Datei. Die Indexdatei wird dabei automatisch aktualisiert. 

ERASE 

löscht den Bildschirm und 

QUIT 

führt dazu, daß alle offenen Dateien geschlossen werden, 
dBase II sich verabschiedet und wir uns wieder im Betriebs¬ 
system CP/M befinden. Das erkennen wir daran, daß das A > 
wieder erscheint und auf Befehlseingaben wartet. Es wäre 
auch möglich, die PACK-Prozedur jeweils im Anschluß an den 
Programmpunkt »Datensätze löschen« durchzuführen, 
jedoch kann dies bei großen Datenbanken schon einige Zeit 
in Anspruch nehmen, wodurch man bei jedem Aufruf diese 
Zeit brauchen würde, während in der vorliegenden Form 
höchstens ein Mal gePACKt wird. 

Sollte nun die Antwort nicht »0« sein, sondern »1«, werden 
von dBase II alle Befehle ausgeführt, die nach CASE 
antwort= * 1 " folgen. Im vorliegenden Fall handelt es sich 
dabei um einen einzigen Befehl. 

DO programmname 

dba.-vj II soll also, falls die Antwort des Benutzers »1« lautet, 
die im Programm »EINGEBEN.CMD« enthaltenen Befehle 
ausführen. Wir rufen also vom Programm »MENU.CMD« ein 
weiteres Programm auf, das seinerseits wieder ein Programm 
aufrufen kann, das seinerseits wieder ein ... 

Die weiteren Zeilen geben dBase II vor, welche Befehle es 
ausführen soll, wenn die Antwort »2«, »3«, »4« oder »5« lautet, 
wodurch jedesmal ebenfalls ein weiteres Programm aufgeru¬ 
fen wird. Vergleichbar ist diese Methode mit der Unterpro¬ 
grammtechnik in PASCAL, oder, weniger elegant, mit dem 
Befehl GOSUB in Basic. Diese Technik der Programm- 
Module ist sehr vorteilhaft, da die einzelnen Programme kür¬ 
zer und damit überschaubarer sind als ein großes, möglicher¬ 
weise verschachteltes Gesamtprogramm, dessen Erstellung 
aus Speicherplatzgründen auch mit dem eingebauten 
dBase-ll-Texteditor nicht möglich wäre. Es ist auch viel leich¬ 
ter, sollten Sie später Ihr Programm einmal abändern wollen, 
ein kleines Modul zu ändern; außerdem sind bei dieser 
Methode Programmierfehler leichter zu lokalisieren. 
ENDCASE 

bezeichnet das Ende der »was-soll-ich-tun-falls-«-Abfrage. 

Wenn der Benutzer zum Beispiel »2« als Antwort einge¬ 
geben hätte, würde dBase II die im Programm »LOE- 
SCHEN.CMD« enthaltenen Anweisungen durchführen, wäre 
dann irgendwann ins Menü zurückgekehrt und zwar an die 
Stelle, an der es das Menü vorher verlassen hatte (nächster 
Befehl). Wenn nun zufällig in der Variablen »antwort« eines 
der Zeichen von »0« bis »5« stände, könnte dBase II nicht in 
die DO-WHILE-Schleife springen, da die dafür nötige Bedin¬ 
gung nicht erfüllt wäre. Durch STORE " " TO antwort sorgen 
wir dafür, daß die Variable »antwort« einen Wert erhält, der der 
DO-WHILE-Bedingung entspricht, so daß wir uns wieder im 
Menü befinden. 

Wenn Sie nun das erste Listing eingegeben haben, über¬ 
prüfen Sie es noch einmal, da dies eine gute Möglichkeit ist, 
sich mit den Cursor-Steuerbefehlen vertraut zu machen. 
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Gehen Sie mit den Cursor-Tasten zum Anfang des Programm¬ 
textes, oder, falls dies bei Ihrer dBase-ll-Version möglich ist, 
mittels des Befehls <CONTROL+R>. Vergleichen Sie die 
einzelnen Programmzeilen, indem Sie sich mittels 
<CONTROL+C> jeweils um einen halben Bildschirm in 
Richtung Programmende bewegen. Sollten Sie irgendwo mit¬ 
ten in einer Zeile etwas vergessen haben, steuern Sie den 
Cursor mit den grauen Steuertasten zu der Stelle, wo einge¬ 
fügt werden soll, schalten Sie mit <CONTROL+V> in den 
Einfügemodus (wird von dBase II angezeigt) und beginnen zu 
schreiben. Sie werden feststellen, daß sich der Rest der Pro¬ 
grammzeile nach rechts verschiebt, um Platz zu machen. 
Bevor Sie < RETURN > drücken, verlassen Sie den Einfüge¬ 
modus durch Eingabe von <CONTROL+V>. Eine weitere 
Möglichkeit, den Einfügemodus zu verlassen, besteht darin, 
die aktuelle Bildschirmzeile mit Hilfe einer der grauen Cursor- 
Steuertasten nach oben oder unten zu verlassen. Drücken 
Sie auf keinen Fall die < RETURN > -Taste, während Sie sich 
in diesem Modus befinden, da dann automatisch ein zusätzli¬ 
ches Zeilenende-Zeichen eingefügt würde. Sie sind nun in 
der letzten Zeile und wollen Ihr Programm speichern. Dies 
gelingt Ihnen durch die Eingabe von <CONTROL+W> 
oder einfacher durch Drücken der kleinen Cursor-Taste direkt 
neben der rechten <SHIFT>-Taste. dBase II speichert nun 
Ihr Programm unter dem Namen MENU.CMD auf Diskette. 
Anschließend erscheint wieder».«, das Zeichen für Sie, daß 
Sie sich im Direktmodus von dBase II befinden. Sollten Sie 
sich Ihr Programm noch einmal ansehen wollen, geben Sie 
MODIFY COMMAND menu < RETURN > 
oder einfacher 
MODI COMM menu 
ein. 

Nach einer kurzen Ladezeit sehen Sie den Anfang Ihres 
Programms auf dem Bildschirm. Wenn Sie nun Veränderun¬ 
gen vornehmen und - wenn Sie damit fertig sind - 

< CONTROL+W> oder die Cursor-Taste neben der rechten 
<SHIFT>-Taste drücken, wird Ihr geändertes Programm 
unter dem Namen MENU.CMD gespeichert, während das 
ursprüngliche Programm unter dem Namen MENU.BAK als 
Sicherheitskopie auf der Diskette bleibt. Wenn Sie ganz 
sicher sind, daß Sie die Sicherheitskopie nicht mehr brau¬ 
chen, können Sie diese durch DELETE FILE menu.bak 

< RETURN > löschen. 

Alle Backup-Dateien löschen Sie durch Eingabe von 
DELETE FILE *.bak <RETURN> 

Seien Sie hierbei jedoch sehr vorsichtig, da Löschungen 
mit normalen Mitteln nicht mehr rückgängig zu machen sind! 
Im Laufe Ihrer Arbeit mit dBase II wird es vielleicht auch einmal 
Vorkommen, daß Sie eine .CMD-Datei löschen und eine 
.BAK-Datei zur .CMD-Datei machen wollen. Gehen Sie dazu 
folgendermaßen vor: 

DELETE FILE programmname .CMD < RETURN > 

RENAME programmname.BAK TO programmname.CMD 
<RETURN> 

Auch diese Befehlsfolge sollten Sie nur anwenden, wenn 
Sie sich ganz sicher sind. Eine kleine Geschichte soll an die¬ 
ser Stelle zeigen, wie schnell eine kleine Unaufmerksamkeit 
die Arbeit von Wochen zunichte machen kann. 

Der Autor diese Berichts hatte schon drei Wochen lang an 
einem dBase-ll-Programm gearbeitet und wollte alle .BAK- 
Dateien, die sich in dieser Zeit angesammelt hatten, löschen, 
um neuen Platz auf der Diskette zu schaffen. Halb in Gedan¬ 
ken, der Kaffee wartete schon in der Küche, gab er DELETE 
FILE ????????.??? < RETURN > ein und löschte - die 
gesamte Diskette! Na ja, seitdem endet jede dBase-ll- 
Sitzung mit dem »Ziehen« einer Sicherheitskopie, obwohl 
seitdem natürlich nichts mehr passiert ist. 

Gehen Sie darum mit dem Löschbefehl von dBase II sehr 
sorgfältig um. 


Um wieder in den Texteditor zu gelangen, geben Sie 

MODI COMM eingeben 

(Listing 2) ein. Nun können Sie die einzelnen Programmzeilen 
abtippen, wobei wir Ihnen jeweils wieder die einzelnen 
Befehle erklären werden. 

STORE TO ... 

Zunächst belegen Sie alle im Verlauf dieses Moduls benö¬ 
tigten Variablen mit Werten, so daß dBase II weiß, wieviele 
Zeichen für die einzelnen Variablen benötigt werden. Für die 
Variablennamen wählen wir die gleichen Namen wie bei den 
Feldern, stellen jedoch ein »v:« voran, um sie von diesen zu 
unterscheiden. Die Variable »antwort« belegen wir mit »a«, 
damit im Menü, sollten Sie aus Versehen die 

< RETURN > -Taste berühren, automatisch das Menü wieder 
abgefragt wird. In der späteren Abfrage wird uns als Anrede 
»Herrn« angeboten, diese Variable können Sie natürlich je 
nach Art Ihres Bekanntenkreises auch mit »Frau , »Frl. « oder 
»Farn. « vorbesetzen, wobei Sie bei den drei letztgenannten 
die zusätzliche Leerstelle nicht vergessen sollten. Die Varia¬ 
blen »v:name«, »v:vorname«, »vrstrasse« und »v:plzort« beset¬ 
zen wir mit jeweils 20 Leerzeichen vor, da wir auch in unserer 
Datei dafür 20 Leerzeichen vorgesehen haben, »vigebdat« 
wird mit 8, »vrtelefon« mit 15, »v:notiz« mit 40 Leerzeichen 
vorbesetzt. Die folgende DO-WHILE-Schleife kennen wir 
schon. Solange die Bedingung der Schleife erfüllt ist, werden 
die Befehle, die zwischen DO WHILE und ENDDO stehen, 
ausgeführt. Wenn nun also die Variable »antwort« mit »a« oder 
»A« besetzt ist, was wir mittels des STORE-TO-Befehls 
erreicht haben, wird dBase II den Bildschirm löschen und uns 
einen leeren Datensatz zeigen, der durch die SAY-Befehle auf 
den Schirm gebracht wird. dBase II erwartet nun unsere Ein¬ 
gabe im ersten Feld des Datensatzes. Wenn dieses ausgefüllt 
ist, können Sie < RETURN > drücken und gelangen so zum 
nächst« Feld. Die grauen nebeneinanderliegenden Cursor- 
Tasten ermöglichen es Ihnen jedoch, jederzeit wieder 
zurück, nach rechts, links oder unten zu gehen. Dies ist 
jedoch nicht mehr möglich, wenn Sie das letzte Feld mit 

< RETURN > abgeschlossen haben, denn dies nimmt 
dBase II zum Anlaß, Ihre Eingaben zu lesen und Sie zu fragen, 
was es mit diesen Eingaben machen soll. Es bietet Ihnen »a« 
für Ändern als Möglichkeit an. Wenn Sie nun aus Versehen 

< RETURN > drücken, gibt es keinen Grund zur Aufregung, 
denn aufgrund der folgenden DO CASE/ENDCASE-Abfrage 
beendet dBase II die DO-WHILE-Schleife und wiederholt den 
eben durchgeführten Programmpunkt, wobei die von Ihnen 
eingegebenen Daten jedoch erhalten bleiben. 

Anschließend werden Sie dann wieder nach Ihren Wün¬ 
schen gefragt. Wählen Sie nun »m« oder »M«, trifft der erste 
Fall der DO CASE/ENDDO-Abfrage zu. 

RELEASE ALL 

dBase II löscht auf einen Schlag alle Variablen, die Sie ja 
nun nicht mehr brauchen. Leider wird dadurch auch die Varia¬ 
ble »antwort« gelöscht, die Sie in jedem Programmpunkt 
benötigen, darum definieren wir diese wieder neu. 

<RETURN> 

Wir kehren wieder ins Hauptmenü zurück. Haben Sie statt 
»m« oder »M« jedoch »s« oder »S« für Speichern gewählt, sind 
einige Befehle mehr notwendig, daß dBase II die von Ihnen 
gewünschte Arbeit verrichtet. 

USE adressen INDEX name 

Die Datei »adressen« wird eröffnet, da sie sonst nicht bear¬ 
beitet werden kann. Gleichzeitig wird die Indexdatei »name« 
angesprochen, damit auch neu hinzugefügte Datensätze 
gleich ihren korrekten Platz in der Datei einnehmen. 
APPEND BLANK 

Der Datei wird ein leerer (BLANK) Datensatz angehängt 
(APPEND). 

REPLACE anrede WITH vranrede 

Nun ersetzt (REPLACE) dBase II das leere Feld »anrede« 

030 ? ■ 
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durch die Variable »vianrede«. So werden nacheinander die 
leeren Felder des neuen Datensatzes durch Ihre Eingaben 
ersetzt und - nachdem das letzte Feld entsprechend behan¬ 
delt ist - die Datei mit USE geschlossen und der Bildschirm 
gelöscht. 

Es folgt nun ein kleines Untermenü, das den einzigen 
Zweck hat, Sie zu fragen, ob Sie weitere Datensätze einge¬ 
ben wollen. Da Sie eine Zeile vorher die Variable »antwort« mit 
»N« vorbesetzt haben, brauchen Sie nur < RETURN > zu 
drücken und gelangen wieder ins Hauptmenü, da dann die 
Bedingung in der folgenden 
IF 

-Abfrage zutrifft, daß Ihre Antwort ungleich »j« und »J« ist. 
Daher werden alle Variablen gelöscht, die Variable »antwort«, 
die wir im Hauptmenü brauchen, mit»« besetzt und dBase II 
führt uns ins Hauptmenü zurück. 

ENDIF 

zeigt das Ende der Reihe von Befehlen an, die von dBase 
II ausgeführt werden, falls die hinter IF stehenden Bedingun¬ 
gen zutreffen. 

Sollten Sie die Frage, ob Sie weitere Datensätze eingeben 
wollen, mit »j« oder »J« beantworten, wird die IF/ENDIF 
Schleife übersprungen, die Fallabfrage DO CASE beendet 
(ENDCASE), die Variable »antwort« erhält den Wert »a«, das 
Ende der DO-WHILE-Schleife wird erreicht (ENDDO), die 
Bedingung für das Abarbeiten dieser Schleife trifft damit zu 
und die Bildschirmmaske für das Eingeben neuer Datensätze 
erscheint erneut. 

Es könnte Sie möglicherweise stören, daß in der Maske die 
Daten erscheinen, die Sie als letzte eingegeben haben, 
jedoch erleichtert dies Ihnen die Entscheidung, ob Sie einen 
bestimmten Datensatz schon eingegeben haben oder nicht. 
Um die Ausgabe der letzten Daten zu unterdrücken, müßten 
Sie vor der zweitletzten Zeile des Programms noch einmal die 
STORE-TO-Befehle 2 bis 9 vom Programmanfang eingeben. 
Das Unterprogramm »loeschen« 

Inzwischen wissen Sie ja, wie man in den Texteditor von 
dBase II gelangt. Ihr neues Programm-Modul heißt loeschen 
(Listing 3). Im folgenden werden jetzt nur noch die Befehle, 
die Sie noch nicht kennengelernt haben, in allen Einzelheiten 
besprochen. 

Besetzen Sie die Variable »antwort« mit »j«, die Variable 
»v:name« mit 20 Leerzeichen. Sie brauchen »v:name« später 
als Suchkriterium für einen Datensatz. Öffnen Sie nun die 
Datei »adressen« mit der Indexdatei »name«, damit das 
Suchen erleichtert wird und eventuelle Löschungen gleich 
auch in der Indexdatei registriert werden. Die folgende DO 
WHILE/ENDDO-Schleife kennen Sie ja bereits. 

GO TOP 

setzt den Zeiger von dBase II an den Anfang der Datei. Die¬ 
ser Befehl ist wichtig, da sonst dBase II bei erneutem Such¬ 
befehl eventuell an der Stelle, an der es zuletzt war, weitersu¬ 
chen würde. Nun wird der Bildschirm gelöscht, dBase II 
möchte von Ihnen den gesuchten Familiennamen erfahren 
(GET) und liest diesen Namen (READ). 

LOCATE FOR name=v:name 

Dieser Befehl gibt die Anweisung vom Anfang der Datei an, 
in der Reihenfolge, die in der Indexdatei festgelegt ist, den 
Datensatz zu suchen, dessen Feld »name« identisch ist mit 
der Variablen »v:name«. Sollten Sie den Namen falsch 
geschrieben haben, wird dBase II den entsprechenden 
Datensatz natürlich nicht finden. Vielleicht machen Sie sich 
einmal die Mühe (oder die Freude), wenn Sie vertrauter sind 
mit dBase II und seiner großen Befehlsvielfalt, eine Suchrou¬ 
tine mit Jokerfunktion unter dBase II selbst zu erstellen. 

Sollte dBase II bei seiner Suche erfolglos sein, würde das 
Ende der Datei erreicht, 

EOF 

also wahr und die gesamte DO WHILE/ENDDO-Schleife 


übersprungen werden. Dazu jedoch später. Sollte jedoch das 
Dateiende nicht erreicht sein (.NOT. EOF) und das Feld 
»name« entspricht dem eingegebenen Namen, der in die 
Variable »v:name« eingegeben wurde, listet dBase II alle Fel¬ 
der des Datensatzes an der von Ihnen gewünschten Stelle 
des Bildschirms auf. 

In Zeile 5, Spalte 5 lernen wir einen neuen Formatierungs¬ 
befehl für Daten kennen: 

TRIM (name) 

Manchmal wird es nötig sein, zwei oder mehr Felder eines 
Datensatzes zusammen auszudrucken, wie zum Beispiel 
Vorname und Familienname. Erinnern wir uns daran, daß 
unsere Felder »name« und »Vorname« jeweils 20 Zeichen 
lang sind. Sind die Einträge in diesen Feldern kürzer, so wird 
der Rest mit Leerstellen aufgefüllt, was bei dem Befehl 
... SAY vorname+name 
zu folgendem unschönen Bild führen würde: 

Paul Meier 

Die TRIM-Funktion bietet nun die Möglichkeit, unnötige 
Leerstellen am Ende des Feldes abzuschneiden. Doch ist sie 
auch nicht ohne Tücken, denn wenn nun der Befehl in abge¬ 
änderter Form lautet 
... SAY TRIM(vorname)+name 
erhalten wir als Ergebnis: 

PaulMeier 

Das ist zwar ärgerlich, doch woher soll dBase II wissen, daß 
wir uns hier eine Leerstelle zwischen den beiden Feldern 
wünschen. Also erweitern wir unseren Befehl nochmals um 
einen kleinen ZuSate,- wodurch unser Paul Meier uns dann 
wunderschön formatiert vom Bildschirm anblickt: 

... SAY TRIM(vorname)* " ’ + name 
Vielleicht werden Sie sich fragen, wieso nun plötzlich alle 
Daten auf dem Bildschirm auftauchen, obwohl wir am Anfang 
des Piugramms keine entsprechenden Variablen vorbesetzt 
oder definiert haben. Dies ist jedoch hier nicht nötig, da die 
Feldnamen direkt von dBase II ausgegeben werden, und 
diese Feldnamen haben mit unseren ähnlich lautenden Varia¬ 
blennamen überhaupt nichts zu tun. 

Sehen Sie sich nun den Datensatz, den dBase II für Sie 
gefunden hat, in aller Ruhe an. Dann entscheiden Sie sich, ob 
dies der Datensatz ist, den Sie löschen wollen - dann geben 
Sie »I« oder »L« ein -, ob dBase II weitersuchen soll - befehlen 
Sie dies mit »w« oder »W« -, oder ob Sie ins Hauptmenü 
zurückwollen - Eingabe von »m« oder »M«. Wenn Sie durch 
Ihre Eingabe zeigen, daß Sie ins Hauptmenü zurückwollen, 
schließt dBase II im Rahmen der folgenden DO CASE/END- 
CASE-Abfrage die Datei, löscht die Variable »v:name« aus 
dem Speicher, belegt »antwort« mit » « und führt zurück ins 
Hauptmenü. Wenn Sie den Datensatz löschen wollen (»I« 
oder »L«), kommt der Befehl 
DELETE 

zur Ausführung, der den auf dem Bildschirm angezeigten 
Datensatz mit einer Löschmarkierung versieht. Zwar ist die¬ 
ser Datensatz noch auf der Diskette vorhanden, jedoch für 
Sie nicht mehr sichtbar, da Sie dies im Hauptmenü mit dem 
Befehl SET DELETED ON angeordnet haben. Wenn Sie die 
Sitzung mit dBase II beenden, werden alle mit Löschmarkie¬ 
rung versehenen Datensätze endgültig gelöscht. 

Sollte dBase II nach dieser Löschung noch nicht das Datei¬ 
ende erreicht haben, sucht es nach weiteren Namen, die 
Ihrer Eingabe entsprechen. Bei jedem dieser Namen wird 
erneut gefragt, ob der Datensatz gelöscht werden soll oder 
nicht. So können Sie ganze Familien, mit denen Sie verfeindet 
sind, aus Ihrem »Gedächtnis« streichen, andererseits wird 
aber durch die immer wiederholte Frage, ob der Datensatz 
tatsächlich gelöscht werden soll, verhindert, daß unabsicht¬ 
lich noch gebrauchte Datensätze auf Nimmerwiedersehen 
verschwinden. 
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CONTINUE 

bedeutet für dBase II die Anweisung, nach einem LOCATE- 
FOR-Befehl nach weiteren Datensätzen zu suchen, die der 
formulierten Bedingung entsprechen. 

Wenn dann schließlich - falls Sie dies wollen - die ganze 
Datei durchsucht und das Dateiende (EOF) erreicht ist, wer¬ 
den Sie gefragt, ob Sie weitere Datensätze löschen wollen. 
Die Bejahung dieser Frage führt wieder zur Bildschirmmaske 
des Moduls LOESCHEN; wird die Frage verneint, kehren wir 
zum Hauptmenü zurück. 

Speichern Sie nun Ihr Programm-Modul ab. 

Das Unterprogramm »aendern« 

Die Eingabe dieses Programm-Moduls (Listing 4) beginnen 
Sie in der Ihnen nun schon geläufigen Form 
MODIFY COMMAND aendern 

Wie bei allen der vorher eingegebenen Module beginnen 
Sie damit, daß Sie den im Programmverlauf benötigten Varia¬ 
blen Werte zuweisen, »antwort« erhält diesmal den Wert »j«, 
da wir diesen Wert sehr wahrscheinlich später brauchen wer¬ 
den. Die zweite benötigte Variable ist wieder der Familien¬ 
name »v:name«, da dieser unser Suchkriterium darstellt. 
Diese Variable besetzen wir wieder mit 20 Leerzeichen, da, 
wie Sie sich erinnern werden, das Feld Name in unserer Datei 
ebenfalls 20 Leerzeichen besetzt. In der bekannten Form öff¬ 
nen wir nun die Datei »adressen« unter gleichzeitiger Öffnung 
der Indexdatei »name«. Da die Bedingung für den Eintritt in die 
DO WHILE/ENDDO-Schleife durch den Wert »j« für »antwort« 
erfüllt ist, geben wir zunächst den Befehl, den Zeiger auf den 
Anfang der Datei zu setzen. Zwar wird dies schon durch das 
Öffnen der Datei bewirkt, jedoch muß gewährleistet sein, daß 
bei wiederholtem Durchlaufen der Schleife die Datei jedes 
Mal von Anfang an durchsucht wird. Nach dem Löschen des 
Bildschirms wird nach dem Familiennamen gefragt, diese Zei¬ 
chenfolge wird gelesen und der Variablen »v:name« zugeord¬ 
net. Dann sucht dBase II den ersten Datensatz, dessen Feld 
»name« mit der Variablen »v:name« identisch ist. Findet es kei¬ 
nen solchen Datensatz, wird die Schleife (ENDDO) beendet, 
und Sie entscheiden sich fürs Weitersuchen oder Aufhören. 
Findet dBase II einen passenden Datensatz, gibt es alle Fel¬ 
der des Datensatzes auf dem Bildschirm aus. Sie entschei¬ 
den sich nun, ob Sie die Suche abbrechen - »m« oder »M« 
weitersuchen - »w« oder »W«, oder den Datensatz oder Teile 
des Datensatzes ändern wollen. 

Wenn Sie sich im Rahmen der folgenden DO CASE/END- 
CASE-Abfrage für den Abbruch der Suche entscheiden, wer¬ 
den die Datei und die Indexdatei mit USE geschlossen, die 
Variablen gelöscht, die Variable »antwort« mit » « vorbesetzt 
und dBase II kehrt ins Hauptmenü zurück. 

Entscheiden Sie sich fürs Ändern, müssen wir zunächst 
die Inhalte der einzelnen Felder des gefundenen Datensat¬ 
zes auf Variable übertragen, die wir dann zunächst ohne blei¬ 
bende Folgen bearbeiten können. Da wir uns fürs Ändern ent¬ 
schieden haben, besitzt unsere Variable »antwort« im Augen¬ 
blick den Wert »a«. Damit ist die Bedingung für den Eintritt in 
die zweite DO WHILE/ENDDO-Schleife erfüllt, in der dBase 
II zunächst den Bildschirm löscht und dann unsere neu ange¬ 
legten Variablen zeigt, die wir beliebig ändern, löschen oder 
unverändert lassen können. Auch hier können Sie wieder mit 
Hilfe der grauen Cursor-Tasten beliebig innerhalb der Felder 
herumwandern, bis Sie das letzte Feld mit < RETURN > 
abgeschlossen haben. Sollten Sie die anschließende Frage, 
ob alles richtig ist, mit einer anderen Eingabe als »j« oder »J« 
beantworten, wird die letzte Schleife wiederholt, jedoch 
schlägt Ihnen dBase II f,ür die einzelnen Felder schon Ihre 
letzten Eingaben vor. Wenn Ihre Eingaben korrekt sind, wird 
die zweite DO-WHILE-Schleife verlassen, und dBase II 
ersetzt die Felder des gefundenen Datensatzes mit den ent¬ 
sprechenden geänderten oder unveränderten Variablen und 
schlägt gleichzeitig vor, weiterzusuchen. 


Sollten Sie »w« oder »W« für Weitersuchen eingegeben 
haben, wird die eingeschlossene DO-WHILE-Schleife gar 
nicht erst bearbeitet, sondern die Suche mit CONTIN U E geht 
weiter, bis ein neuer Datensatz gefunden wird, auf den die 
Bedingung »name=v:name« zutrifft. 

Wenn Sie sich nun entschließen, keine weiteren Änderun¬ 
gen durchzuführen, werden alle Variablen gelöscht (RELEA¬ 
SE ALL), die Datei und die Indexdatei geschlossen, die Varia¬ 
ble antwort mit» « vorbesetzt und dBase II kehrt zum Haupt¬ 
menü zurück. 

Speichern Sie nun wieder Ihr Programm. 

Das Programm »ausgabe« 

»MODIFY COMMAND ausgabe« (Listing 5) lautet hier wie¬ 
der der übliche Befehl, um in den Texteditor von dBase II zu 
gelangen. 

Wie immer benötigen wir »antwort« als Variable, diesmal 
jedoch zusätzlich die Variable »anfang«, in der wir später fest¬ 
legen, ab welchem Buchstaben Datensätze auf dem Bild¬ 
schirm gezeigt werden sollen. 

Nun öffnen wir wieder unsere Datei »adressen« und die 
Indexdatei »name« und beginnen mit der DO-WHILE-Schleife, 
in der Sie zunächst nach dem Buchstaben, ab dem geblättert 
werden soll, gefragt werden. Hier wurde »0« als Abbruchbe¬ 
dingung und für die Rückkehr ins Menü gewählt, da »m« oder 
»M« Suchbuchstabe sein kann. 

Bei Eingabe von »0« wird die Variable »anfang« gelöscht, 
»antwort« mit » « besetzt, werden die Dateien geschlossen 
und dBase II kehrt ins Hauptmenü zurück. 

Die Eingabe eines anderen Buchstabens führt zum Über¬ 
springen der IF/ENDIF-Bedingung und damit zur Ausführung 
des Befehls 

STORE !(anfang) TO anfang 

Damit wird ein Buchstabe unabhängig von seiner Schreib¬ 
weise (c'-oß/klein), in einen Großbuchstaben verwandelt. 
Würde aies nicht geschehen, könnte bei Eingabe eines 
Kleinbuchstabens dBase II niemals den entsprechenden 
Datensatz finden, da natürlich alle Namen mit einem Groß¬ 
buchstaben beginnen. 

Nachdem GO TOP den Zeiger auf den Anfang der Datei 
gesetzt hat, führt dBase II den nächsten Befehl aus. 
LOCATE FOR (name,Beginn,Länge) = anfang 

Das Dollarzeichen entspricht dem Basicbefehl MID, mit 
dem aus einem String bestimmte Zeichen herausgeschnitten 
werden. Aus dem Feld »name« wird hier ein Teil herausge¬ 
schnitten, der mit dem ersten Zeichen des Feldes beginnt 
und eine Länge von 1 besitzt, mit anderen Worten, der erste 
Buchstabe des Namens. Wenn nun der erste Buchstabe des 
Feldes »name« mit der Variablen »anfang« identisch ist, wird 
der gefundene Datensatz gezeigt. Sollte kein Datensatz mit 
dem Suchbuchstaben als Anfangsbuchstabe des Familien¬ 
namens in der Datei sein, wird der erste Datensatz mit dem 
nächsten Buchstaben gezeigt. Also: Falls kein Familienname 
mit »F« in der Datei ist, wird der erste Datensatz mit »G« aus¬ 
gegeben. Nun können Sie sich entscheiden, ob Sie das 
Programm-Modul verlassen wollen, oder ob Sie in der Datei 
alphabetisch vorwärts oder rückwärts blättern wollen. 

Entscheiden Sie sich durch Eingabe von »v« oder »V« für 
Vorwärtsblättern, kommt, falls das Ende der Datei noch nicht 
erreicht ist (IF .NOT. EOF), der Befehl 
SKIP 

zur Anwendung, der den Zeiger in der Datei um einen 
Datensatz weiter in alphabetischer Reihenfolge in Richtung 
auf das »Z« rückt. Ersatzweise könnten Sie hier auch den 
Befehl CONTINUE verwenden. 

Nun wird das Ende der DO-WHILE-Schleife erreicht, da alle 
anderen Befehle übersprungen werden und der nächste 
Datensatz wird ausgegeben. Sollte der Zeiger von dBase II 
jedoch schon auf dem Dateiende stehen (IF EOF), trifft die 
nächste IF-Bedingung zu: dBase II teilt Ihnen mit, daß das 
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Dateiende erreicht ist und wartet auf einen beliebigen Tasten¬ 
druck, um weiterzumachen. 

Haben Sie sich fürs Rückwärtsblättern entschieden, 
kommt eine Variante des SKIP-Befehls zur Anwendung, 

SKIP-1 

der den Zeiger in der Datei um einen Datensatz zurück in 
umgekehrter alphabetischer Reihenfolge in Richtung auf das 
»A« rückt. 

Wenn Sie dieses Programm-Modul verlassen wollen (0), 
wird die Variable »anfang« gelöscht, »antwort« wie üblich mit 
» « besetzt und Sie kehren ins Hauptmenü zurück. 

Und jetzt speichern ... - Sie wissen ja schon. 

Das Programm »drucken« 

Das folgende Unterprogramm oder Programm-Modul 
(Listing 6) dient zum Ausdruck von Adreßlisten und Etiketten, 
wobei Sie frei bestimmen können, ab welchem Anfangsbuch¬ 
staben des Familiennamens und bis zu welchem Anfangs¬ 
buchstaben gedruckt werden soll. Durch die Definition der 
Variablen »anfang« und »ende« am Anfang des Programmteils 
schlägt Ihnen dBase II später »A« als Anfangsbuchstaben des 
ersten zu druckenden Familiennamens und »Z« als Anfangs¬ 
buchstaben des letzten zu druckenden Familiennamens vor, 
wodurch alle Datensätze von »A« bis »Z« gedruckt würden. 

Da »antwort« im Augenblick den Wert » « besitzt, wird die 
DO-WHILE-Schleife begonnen und Sie können sich ent¬ 
scheiden, ob Sie Etiketten oder eine Adreßliste drucken oder 
ob Sie ins Hauptmenü zurückwollen. 

Wenn Sie sich fürs Drucken entscheiden, bestimmen Sie, 
ab welchem und bis zu welchem Buchstaben gedruckt wer¬ 
den soll. Die beiden eingegebenen Buchstaben werden 
durch »!« in Großbuchstaben verwandelt, da auch die Fami¬ 
liennamen mit Großbuchstaben beginnen. 

Sollten Sie sich für einen Abbruch entschieden haben, 
werden alle Variablen gelöscht, »antwort« mit» « besetzt und 
unser Hauptmenü erscheint wieder. 

Bleiben wir jedoch beim Drucken und nehmen wir an, Sie 
hätten sich für den Druck einer Adresseniiste entschieden, 
das heißt, daß Sie die entsprechende Frage mit »I« oder »L« 
beantwortet hätten. In der üblichen Weise eröffnen Sie die 
Datei »adressen« mit der Indexdatei »name«. LOCATE FOR 
sucht nach dem ersten Familiennamen, der mit dem Buchsta¬ 
ben, der in der Variablen »anfang« definiert wurde, beginnt 
oder, falls es einen solchen Namen nicht gibt, nach einem 
Namen, der mit dem in alphabetischer Reihenfolge nächsten 
Buchstaben beginnt. 

SET PRINT ON 

schaltet für die folgenden Ausgaben zusätzlich den 
Drucker ein, so daß Sie die Ausgaben gleichzeitig auf Bild¬ 
schirm und Drucker verfolgen können, was Ihnen unnötige 
Verrenkungen zur Beobachtung des Druckers erspart. 

? " " schaltet zunächst, da es ja dreimal nacheinander ein¬ 
gegeben wird, drei Leerzeilen. Hier genügt allerdings auch 
die Eingabe von »?« ohne anschließende Anführungszei¬ 
chen. 

Nun brauchen wir für unseren Ausdruck pro Seite die Über¬ 
schrift, die uns zeigt, was eigentlich ausgedruckt wird. Die 
Formulierung können Sie natürlich frei wählen. Es empfiehlt 
sich, in dieser Überschrift mit 

DATEO 

das aktuelle Datum in die Überschrift einzufügen. Ihr Com¬ 
puter setzt hier das Datum ein, das Sie am Anfang des dBase- 
Il-Laufs eingeben. Sollten Sie dBase II und Ihr Programm über 
die Datei PROFILE.SUB direkt von CP/M aus starten, müßten 
Sie allerdings vor der DO-WHILE-Schleife in Listing 1 fol¬ 
gende Zeilen einfügen: 
störe " " to datum 
erase 

@ 2,5say "Datumtt/mm/jj " getdatumpicture "99/99/99" 
set date() to datum 


release datum 

£ET PICTURE "99/99/99" 

akzeptiert bei der Eingabe des Datums nur Zahlen (9). 
Diese sechs Zahlen werden hintereinander eingegeben, 
dBase II setzt automatisch die Schrägstriche. 

SET DATEO TO DATUM 

teilt dem System mit, daß als aktuelles Datum der Inhalt der 
Variablen »datum« gelten soll. Danach wird die Variable 
»datum« nicht mehr gebraucht, da auch nach einem RELEA¬ 
SE ALL jederzeit das aktuelle Datum »dateQ« abgefragt wer¬ 
den kann. 

Doch zurück zu unserem Druckvorgang. Nun nimmt die 
Variable »nummer« den Wert 1 an und die DO-WHILE- 
Schleife beginnt. Wenn nun das Ende der Datei noch nicht 
erreicht ist und auch die Variable »nummer« einen Wert, 
besitzt, der kleiner als 20 ist und gleichzeitig der Anfangs¬ 
buchstabe des Familiennamens des Datensatzes, der durch 
»anfang« und »ende« definierten Bedingung entspricht, wer¬ 
den 5 Leerzeichen gedruckt, darauf folgt der Inhalt des Fel¬ 
des »anrede«, gekürzt auf 4 Zeichen, so daß statt »Herrn« hier 
nur »Herr« erscheint (beziehungsweise »Frau« oder »Frl.«), 
gefolgt von einem Leerzeichen. Darauf folgt der Vorname, bei 
dem die hinteren überflüssigen Leerzeichen durch TRIM 
abgeschnitten wurden, gefolgt von einem weiteren Leerzei¬ 
chen. Der Befehl 
?? 

zeigt an, daß in der gleichen Zeile weitergedruckt werden 
soll und zwar der Name und das Geburtsdatum. In der näch¬ 
sten Zeile werden entsprechend der vorherigen Zeile die Fel¬ 
der »strasse«, »plzort« und »telefon« ausgedruckt. Die dritte 
Zeile des Datensatzes druckt entsprechende Bemerkungen. 
Jetzt werden Sie auch verstehen, warum nach 20 Datensät¬ 
zen eine neue Seite begonnen wird: Der Vorspann nimmt 6 
Zeile, - , in Anspruch, 20 Datensätze mit jeweils drei Zeilen 
ergeben 60 Zeilen, insgesamt also 66 Zeilen. Nachdem nun 
ein Datensatz gedruckt wurde, wird die Variable »nummer« 
um 1 auf 2 erhöht. Es werden nun solange Datensätze 
gedruckt, bis »nummer« größer als 20 geworden ist oder das 
Dateiende noch vor der 20 erreicht wurde, oder der Anfangs¬ 
buchstabe des Familiennamens alphabetisch nach dem für 
die Variable »ende« definierten Buchstaben liegt. Sollten die 
beiden letztgenannten Bedingungen nicht zutreffen, erfolgt 
durch 
EJECT 

ein Seitenvorschub. Nun wird wieder der Kppf mit dem 
aktuellen Datum gedruckt, die Prozedur wird von vorne wie¬ 
derholt. Die Zahl der Datensätze ist relativ leicht zu über¬ 
blicken, da jeweils genau 20 Datensätze auf eine Drucker¬ 
seite gehen. Wenn alle gewünschten Daten ausgedruckt 
sind, erfolgt wieder ein Seiten Vorschub zum Papieranfang., 
Die Druckerausgabe wird durch 
SET PRINT OFF 

beendet, so daß Ausgaben nur noch auf dem Bildschirm 
erfolgen. Sollten Sie »e« oder »E« für Etikettendruck eingege¬ 
ben haben, so ist der Such- und Druckvorgang im Prinzip der 
gleiche, Sie müssen jedoch vorher eine kleine Rechnung 
durchführen. Wie Sie im Listing 6 sehen können, werden 
unter der Option Etiketten genau 9 Zeilen gedruckt. Dies ist 
darauf zurückzuführen, daß das in Deutschland verbreitete 
Endlospapier bei normalem Zeilenabstand mit 72 Zeilen 
bedruckt werden kann. Zählen Sie die Etiketten, die auf 
einem Blatt Druckpapier untereinander von Perforation zu 
Perforation Platz haben. Teilen Sie 72 durch diese Zahl und 
Sie erhalten die Zahl von Zeilen, dif Ihnen zum Drucken auf 
einem Etikett zur Verfügung stehen. Sollten zum Beispiel auf 
einem Normblatt 12 Ihrer Etiketten Platz finden, so stehen 
Ihnen pro Etikett sechs Zeilen zur Verfügung, die Sie sinnvol¬ 
lerweise so aufteilen: 

Leerzeile 
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Anrede 

Vorname Name 

Strasse Hausnummer 

Postleitzahl Ort 

Leerzeile 

Als kleine Hilfe für unsere gestreßten Briefträger wird beim 
Etikettendruck durch den Befehl 

!(name) 

der Familienname des Adressaten in Großbuchstaben aus- 
gedruckt. Beim Etikettendruck ist es unnötig, die Datensätze 
zu zählen, da hier keine Rücksicht auf einen oberen oder 
unteren Rand genommen werden muß und außerdem die Sei¬ 
tenüberschrift entfällt. Nachdem Sie nun auch noch die letz¬ 
ten Zeilen unseres sechsten Listings eingegeben und das 
Modul abgespeichert haben, ist es endlich soweit! Starten 
Sie das Programm mit 

DO MENU 

und folgen Sie ganz einfach den Anweisungen. Übrigens, 
für die Statistiker unter Ihnen: unser kleines Adressenpro¬ 
gramm ist in der vorliegenden Form in der Lage, mit einer 
Floppy 1571 ungefähr 1800, 1570 ungefähr 600 Daten¬ 
sätze zu verwalten. 

Wenn Sie alle Möglichkeiten des Programms durchgespielt 

und wie ich hoffe, keinen Fehler entdeckt haben, können Sie, 
falls außer Ihnen auch noch andere das Programm benutzen, 
die < ESCAPE >-Taste sperren. Fügen Sie daher im Listing 
1 als erste Programmzeile ein 

SET ESCAPE OFF 

Dadurch wird es dem Benutzer unmöglich gemacht, die 
Ausführung einer Befehlsdatei mittels < ESCAPE > -Taste zu 
unterbrechen. Zum Abschluß dieser kleinen Entdeckungs¬ 
reise in dBase II als Programmiersprache noch ein paar Vor¬ 
schläge, wie Sie unser kleines Adressenprogramm erweitern 
könnten: 

- bauen Sie mehrere Indexfelder ein 

- drucken Sie Listen in Abhängigkeit von diesen Feldern 

- schützen Sie die Benutzung der Dateien durch ein Paß¬ 
wort 

- programmieren Sie die Jokerfunktion fürs Suchen 

- programmieren Sie eine Textverarbeitung, die Serien¬ 
briefe verschickt 

- schreiben Sie eine Autostartroutine mit PROFILE.SUB. 
Der Möglichkeiten gibt es viele, jedoch würde es zu weit 

führen, sie alle hier aufzuzählen. 

Also, sprechen Sie dBase II? 

(Henk Driessen/bj) 

* Listing Nr. 1 

@ 2, 5 say "Adressendatei wird eroeffnet." 

use Adressen index name 

* MENU 

8 4, 5 say "Geloeschte Datönsaetse werden entfernt." 

8 6, 5 say "Adressendatei wird neu indiziert" 

* dient als Menue fuer die Adressenverwaltung 

* 

pack 

erase 

quit 

set deleted on 

set talk off 

störe " " to antwort 

case antwort="l" 
do eingeben 

do while antwort<"0" .or. antwort >"5" 

erase ( 

g 2, S say "MENUE" 

8 3, 5 say " -- 

@ 5, 5 say "0. Programm beenden" 

@ 7, 5 say "1. neue Datensaetze eingeben" 

@ 9, 5 say ”2. Datensaetze loeschen" 

@ 11, 5 say "3. Datensaetze aendern" 

@ 13, 5 say ”4. Datensaetze auf Bildschirm" 

§ 15, 5 say "5. Adressenliste drucken" 

@ 17, 5 say " -- 

@ 19, 5 say "Druecken «Sie die entsprechende" 

§ 20, 5 say "Zahlentaste zur Auswahl! " get antwort 

read 

case antwort=" 2 " 

)nuraf**'< loeschen 

case antwort="3" 
do aendern 

case antwort="4" 
do ausgabe 

case antwort="5" 
do drucken 

endcase 

störe " " to antwort 
enddo 

do case 

Listing 1. »menu« dient als Abfragemaske für die Adreßver- 

case antwort=" 0 " 

erase 

waitung. Bitte verwenden Sie zur Eingabe aller Listings den 
Texteditor von dBase II (siehe Text). 


• Lletlng Nr. 2 

• EINGEBEN 

• dient der Eingabe neuer Datenaaetxa 

6 17, 5 say "’s' fuer Speichern“ 

6 18, 5 say "’a’ fuer Aendern" 

6 19, 5 say “*m' fuer Menuo " get antwort 

read 

do case 

* toc " to antwort 

ntor. "H.rrn" to vi.nrod. 

■ tDr0 “ “ to w: n.oo 

" " to vi vornan. 

" - to viplxort 

■ tor « " " to viitrau. 

•tot« " " to vig.bdat 

' " " to vit.l.fon 

* toc * ' - to vinotlz 

do while antwort«"a" .or. antwort»"A" 

caee antwort»“m" .or. antwort«“M“ 
roloaso all 
«tore " “ to antwort 
return 

caso antwort« "a“ .or. antwort«“A“ 
enddo 

case antwort«“s" .or. antwort«“S“ 
use adrossen lndax name 
append blank 

roplaca anredo wlth v:anrode 
roplace name with vsnamo 

e 2, 5 say "Anrede " get vianrode 

§ 3, 5 say "Vorname " get vtvorname 

@ 4, 5 cay "Noao " get vtnnme 

0 6, 5 say "Geburtsdatum " get vtgebdat picture "99.99.99" 

@ 8, 5 say "Strasso/Hnr. " get vistrassc 

§ 9, 5 say "PLZ/Wohnort " get viplzort 

§ 10, 5 say "Telefon " get vstelefon 

@ 12, 5 say "Bemerkungon " get vinotlr 

read 

@ 15, 5 say “Ueberpruefen Sie Ihre Eingabon!" 

roplaco Vorname with vivorname 
roplace stresse with vistracso 
roplaca plzort with viplxort 
roplace telefon with vitelefon 
roplaco gobdat with vigobdat 
roplaco notlx with vinotlr 
use 

störe “n" to antwort 

§ 2, 5 say "Weitere neue Datensaetze eingabon? i/n " get antwort 

read 
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if antwort <>"J" .and. antuortO"J” 
ralaaso all 
stora ■ “ to antwort 
return 
•ndlf 

endcase 

atora “a" to antwort 

anddo 

raturn 

Listing 2. Dieses Unterprogramm dient der Eingabe neuer 
Datensätze 


* Listing Nr. 3 

W ___ 

* LOESCHEN 

* _ 

* dient zum Loeschen von Datensaetzen 

* _ _____ 

* 

störe "j" to antwort 

störe " " to v:name 

use adressen index name 

do while antwort="j" .or. antwort="J" 
go top 
erase 

@ 2, 5 say "Familienname " get v:name 

read 

locate for name=v:name 


8 

15, 

5 

say 

"Geben Sie ein:” 

8 

17, 

5 

say 

" ’ 1 ' 

fuer Loeschen" 

§ 

18, 

5 

say 

" ' w ' 

fuer Weitersuchen 

8 

19, 

5 

say 

" ' m' 

fuer Menue" 

§ 21, 
read 

S 

say 


" get antwort 

da 

i case 





case antwort="m" -or. antwort="M" 
use 

release v:name 
störe " " to antwort 
return 

case antwort="l" .or. antwort="L" 
delete 

störe "w" to antwort 
continue 

case antwort«"w" -or- antwort="W" 
continue 

endcase 

endif 

enddo 

störe " " to antwort 
erase 

§ 2, 5 say "Weitere Loeschungen j/n " get antwort 

read 

if antwortO"j" -and- antwortO"J" 
release v:name 


do while -not. eof 

if name=v:name 

@ 5, 5 say trim(name)+", 

@ 6, 5 say gebdat 

§ 8, 5 say strasse 

@ 9, 5 say plzort 

@ 10, 5 say telefon 

@ 12, 5 say notiz 


"+trim(vorname) 


use 

störe " " to antwort 
return 
endif 


s* *6R orun 


enddo 

return 


Listing 3. »loeschen« entfernt Datensätze aus der Datenbank 



use 

* Listing Nr. 4 

release all 

• _______ 

störe " " to antwort 

* AENDERN 

return 

* _______ 

case antwort="a" -or. antwort="A" 

* dient zum Aendern von Datensaetzen 

störe anrede to vcanrede 


störe name to viname 

w 

störe vorname to vivorname 

störe "3" to antwort 

störe gebdat to v:gebdat 

störe " " to viname 

störe strasse to vistrasse 
störe plzort to v:plzort 

use adressen index name 

störe telefon to v:telefon 
störe notiz to vsnotiz 

do while antwort=”J" .or. antwort="J" 


go top 

do while antwortO'J" .and. antwortO'J" 

erase 


g 2, 5 say "Faml1lenname " get v:name 

g 2, 5 say "Anrede " get v:anrede 

read 

@ 3, 5 say "Vorname " get vivorname 

p 4, 5 say "Name " get viname 

locate for name=v:name 

§ 6, 5 say "Geburtsdatum " get vigebdat 
§ 8, 5 say "Strasse/Hnr. " get vistrasse 

do while .not. eof 

§ 9, 5 say "PLZ/Ort “ get viplzort 

§ 10, 5 say "Telefon " get vitelefon 

if name=v:name 

§ 12, 5 say "Bemerkungen " get vinotiz 

g 3, 5 say “Vorname : " ♦ Vorname 

read 

g ., 5 say "Geburtsdatum : " * gebdat 

§ 15, 5 say "Alles richtig? j/n " get antwort 

g 6, 5 say "Strasse/Hnr. : " * strasse 

read 

g 8, 5 say "PLZ/Ort : " ♦ plzort 

enddo 

g 9, 5 say "Telefon : " ♦ telefon 


@ 11, 5 say "Bemerkungen : " ♦ notiz 

replace anrede with vianrede 

replace name with viname 

g 15, 5 say "Geben Sie ein:' 

replace vorname with vivorname 

g 17, 5 say "'a' fuer Aendern" 

replace gebdat with vigebdat 

0 18, 5 say "*w* fuer Weitersuchen" 

replace strasse with vistrasse 

@ 19, 5 say "'m' fuer Menue" 

§ 21, 5 say " " get antwort 

read 


do case 

Listing 4. »aendern« ist eines der fünf menügesteuerten 

case antwort="m" -or- antwort="M" 

Unterprogramme 
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replace plzort 
replace telefon 

wlth v:plzort 
wlth v:telefon 

§ 2, 5 say "Weitere Aenderungen j/n " get antwort 

read 

replace notiz 

wlth v:notiz 

lf antwort<>■J" .and. antwart<>-J" 

störe -w- to antwort 

release all 

contlnue 


use 



störe " " to antwort 

case antwort="w" 

or. antworts'W" 

return 

contlnue 


endlf 

endcase 


enddo 

endlf 


return 

enddo 



Store ■ ■ to antwort 


Listing 4. (Schluß). Mit diesem Modul können fehlerhafte 
Datensätze korrigiert werden 





* Listing Nr. 5 


P 0, 5 say "PLZ/Wohnort t " 4 plzort 

P 9, 5 say "Telefon i " ♦ telofon 

• AUSGABE 


p 11, 5 say "Bemerkungen l " 4 notlz 


dlont zur Ausgabe von Datonsaetzen ouf dom Bildschirm 


toro " " to anfang 
toro " " to antvort 
uao adroaaon Indo* nana 

do whllo anfang <> " 0 " 
oraaa 

§ 2, 5 say "Geben Sie den Buchetaben ein, ab dem ln der Datei" 

P 3, 5 say “goblaettort verdon soll." 

P 4 , 5 say “’B* fuohrt Ins Henua zurueck." 

§ 7, 5 say "Anfangsbuchstabe " got anfang 

read 

lf anfang ■ " 0 “ 
release anfang 
störe " " to antvort 
USB 

return 

ondif 


störe 1 (anfang) to anfang 
go top 

locato for $(name,l,l) >» anfang 
erase 


do vhlle antvort <> “ 0 " 
erase 

P 2, 5 say "Anrede 

P 3, 5 say "Name 

P 5, 5 say “Geburtsdatum 

P 7, 5 say "Strasse/Hnr. 


♦ anrode 

♦ trlm(vorname) 

♦ gebdat 

♦ strasso 


646R 

♦ trlm(name) 


P 15, 
P 16, 
P 17, 
road 


5 «ny -'v' = vorunertc bla.tt.rn* 

5 oay -T' . ruockwanrtn bla.tt.rn* 

5 e.y *’0' . zurueck Inn Monuo“ got Antwort 


caoe antvort * "v" 
lf .not. eof 
oklp 
endlf 
lf eof 


or. antvort * “V" 


Ende der Datei erreicht!" 
Heiter mit bei. Taste 


()f!L SJÄ?». 


P 2, 5 say 
P 4, 5 say 
read 

störe " " to anfang 
störe " 0 " to antvort 
enddo 

störe " " to antvort 
enddo 
endlf 

case antvort • "r" .or. antvort ■ "R 
sklp-1 

case antvort = " 0 " 
störe " ” to anfang 
ondcase 
nddo 

to antvort 


get antvort 


uso 

roloase 
störe “ 
return 


anfang 
" to antvort 


Listing 5. »ausgabe« 
übernimmt die formatierte 
Ausgabe auf den Bildschirm 


• Listing Nr. 6 

• DRÜCKEN 

• dlont zu» Auodrucken von Adressonl1eten oder Etiketten 


«toro " " to antvort 
storo "A" to anfang 
störe " 2 " to ende 

do vhlle antvortO"!" 


oraso 

P 2, 

P 3, 

e 4 , 
e 7, 

read 


.and. antvortO’L" .and. antvortO"»"; 
.and. antvortO"E" .and. antvort<>“0“ 


say "'1* ■ Adressonllato drucken" 
say " 'e * ■ Etiketten drucken" 
say m, 0 ‘ m zurueck 1 ns Honue" 

say "Drueckon Bio don ontsprochendon Buchstaben! 


get antvort 


lf antvort*"l“ .or. antvort*"L" 
P 10, 5 say "Von Buchstabe " 
0 11, 5 say "Bis Buchstabo " 
read 

störe I (anfang) to anfang 
storo I (ende) to ende 
endlf 
enddo 

do case 

case antvort ■ " 0 " 
storo “ “ to antvort 

release anfang 
reloase onde 
release nummer 
return 


case antvort*"!" .or. antvort*"L" 
use adressen Index name 
locate for 9(namo, 1 , 1 )>*anfang 
»et prlnt on 
do vhlle .not. eof 
7 " " 


•or. antvort* 
get anfang 
get ende 


.or. antvort* 


ADRESSENLISTE (alph.) 


? " 

? “ 

7 " 

? " 

störe 1 to nuaaer 

do vhllo .not. eof .and. nummer <* 20 


if $(name, 1 ,l)>*anfang .and. $(name, 1 ,l)<-ende 

? " " • S(anrede,1,4) ♦ " " • tri»(vornaae) * - - 

?? trlm(name) ♦ ", gob.s " . gebdat 

? " " + trlm(strasBe) * ", " * trla(plzort) 

7? ", Toi.i " « telefon 

? " " * notlz 

störe nuaaer • 1 to nuamer 

endlf 

Skip 

enddo 

oject 

enddo 

set prlnt off 
use 
endlf 

case antvort*"e" .or. antvort*"E" 
use adressen Index name 
locato for 9(naae, 1 , 1 )>-anfang 
set prlnt on 


do vhlle .not. eof 

lf 9(name, 1 , 1 )>*anfang 
7 " " 

? " " 

7 " " 

7 " 

7 " 

7 " 

7 " 

7 " 

7 " " 
endlf 

sklp 
enddo 
eject 

enddo 

sot prlnt off 


■and. 9(name, 1 , 1 )<*ende 


♦ anredo 

♦ tr 1 m(vornamo) 

♦ strasso 

♦ plzort 


!(namo) 


release all 
return 


Listing 6. Durch dieses Unterprogramm können Adreßlisten 
oder Etiketten gedruckt werden 
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C128 


CP/M 


CP/M- 

Programmieren 
mit Z80-Code 

Mit dem UVMAC steht für den CP/M-Modus des 
C128 ein Z80-Assembler zur Verfügung, der sich 
besonders für Einsteiger eignet. Wir haben den 
UVMAC für Sie getestet und zeigen Ihnen, wie 
man damit arbeitet. 

D as Betriebssystem CP/M wurde von Digital Research 
ursprünglich für den 8080-Prozessor entwickelt und 
wurde später unverändert an den Z80 angepaßt. Darin 
ist auch die Begründung für die beiden 8080-Assembler auf 
den Utility-Disketten zu suchen, die von der Firma D.I.S. ange- 
boten werden. Da im C128 ein Z80-Prozessor eingebaut ist, 
benötigt man einen eigenen Z80-Assembler, um die Lei¬ 
stungsfähigkeit dieses Prozessors bei der Assembler- 
Programmierung voll ausnutzen zu können. Um die Unter¬ 
schiede zwischen den beiden Assemblern zu verdeutlichen, 
wird ein Vergleich zwischen dem 8080- und dem Z80-As- 
sembler gezogen. 

Wegen der Komplexität des Z80 ist es für den Einsteiger 
ohne Assembler-Kenntnisse oft sehr schwierig, sich in den 
Z80 einzuarbeiten. Der Z80 besitzt über 1000 mögliche 
Befehle. Um den Einstieg in die Sprache des in Verwaltung 
und Industrie weit verbreiteten Z80 zu erleichtern, benötigt 
man ein Werkzeug, das sich leicht bedienen läßt. Der UVMAC 
erfüllt diese Anforderung und ist dadurch für die ersten 
Schritte mit dem Z80 geeignet. So können Makros ohne 
umständliche Definitionen einfach über die Anweisung 
»MAKRO« erzeugt werden. Um auch in Assembler struktu¬ 
riert zu programmieren, bietet der UVMAC einen IF..ENDIF- 
Pseudo-Opcode. Für diese Schleifenstruktur steht sogar ein 
ELSE-Zweig zur Verfügung. Schließlich bietet UVMAC noch 
einige Pseudo-Opcodes zur Gestaltung der Listing-Ausgabe. 

Bei der Assemblierung selbst können mehrere Ausgabeda¬ 
teien deklariert werden. Sie können zum Beispiel ein Listing 
in eine Datei ausgeben, ebenso die Fehlermeldungen. Der 
Programmierer sollte diese Optionen auf jeden Fall verwen¬ 
den, da sonst nur die assemblierte »COM«-Datei auf Diskette 
ausgegeben wird. Die Fehlermeldungen erscheinen dann 
nur auf dem Bildschirm und sind so schnell wieder verloren. 

Wie bereits erwähnt, eignet sich UVMAC sehr gut für den 
Einsteiger. Trotz der Komplexität des Z80-Prozessors läßt 
sich der UVMAC sehr einfach handhaben und bietet so dem 
Anwender die Möglichkeit, sich schnell in die Prozessorspra¬ 
che einzuarbeiten. 

Während der 8080-Assembler noch mit vielen verschiede¬ 
nen Mnemonics arbeitet, die für das Verschieben von 
Speicher- und Registerinhalten verantwortlich sind, arbeitet 
der Z80 hier nur noch mit einem einzigen Befehl: »LD«. Die¬ 
ser »versteht« allerdings dann eine Unzahl von verschie¬ 
denen Variationen. Der LD-Befehl ermöglicht alle Arten von 
Speicher- und Registermanipulation. Alle Adressierungsar¬ 
ten und auch sämtliche Ladebefehle, ob nun 8 Bit oder 16 Bit, 
werden über diesen leistungsstarken Befehl abgewickelt 
Hierin liegt der gravierendste Unterschied zum 
8080-Assembler. Um die Neuerungen des Z80 gegenüber 
dem 8080 etwas herauszustellen, sehen wir uns zwei Bei¬ 


spielprogramme an. Eines ist in Z80-Assembler (Listing 1), 
das andere in 8080-Assembler (Listing 2) geschrieben. Die 
Funktion beider Programme ist absolut identisch. Erst wird 
ein Text ausgegeben, dann eine Eingabe eingelesen und zum 
Schluß ein Text mit der Eingabe ausgegeben. 

Alle Befehle zum Manipulieren von Speicherbereichen und 
Registerinhalten sind im 8080-Assembler mit verschiedenen 
Befehlen dargestellt, während beim Z80 alles über den LD- 
Befehl abgewickelt wird. 

Die Pseudo-Opcodes, die für die Definition der Textkon¬ 
stanten und der Variablen verwendet werden, sind nicht 
Prozessor- sondern assemblerabhängig. Der wichtigste 
Unterschied zwischen den beiden Prozessoren besteht in 
der Anzahl der möglichen Befehle. Der Z80 versteht auf 
Grund einer speziellen Technik ein Vielfaches mehr an Befeh¬ 
len, als beispielsweise der 8080 oder der im C64 verwen¬ 
dete 6502. Wenn Sie mehr über die Technik und den Aufbau 
des Z80-Prozessors erfahren wollen, finden Sie in diesem 
Sonderheft einen eigenen Z80-Artikel, der sich speziell mit 
diesen Problemen beschäftigt. 

Der UVMAC eignet sich wegen der leichten Bedienung 
besonders für den Z80-Einsteiger, dem damit der Einstieg in 
die Welt des Z80-Prozessors erleichtert wird. Für Profis 
erweist sich das Produkt als nicht ausreichend, da der 
Assembler nicht relokatibel ist. 

Der Assembler kostet inklusive Anleitung, die sehr knapp 
bemessen, aber ausreichend ist, 99 Mark. (rf) 

Tesco GmbH. Rüdenhausenerstr.. 8714 Wlesentheid 

D.I.S. GmbH. Friedrioh-Menze-Fricke-Str. 16-18, 4804 Versmold 


Bildschirmausgabe unter CP/M ult Z80-Code 


o 


ORG 100H 
3DOS EQU 5 
CCP EQO 0 
OUT EQU 9 
IN ECO 10 

LD C OT 
LD i/t.Pl 
CALL BDOS 
LD C.IN 
LD DE.EINGABE 
CALL BDOS 
LD C,OUT 
LD DE.P2 
CALL BDOS 
LD D,0 

LD A,(EINGABE*1) 
LD E.A 

LD HL,EINGABE 
ADD BL,DE 
INC HL 
INC HL 
LD A. 

LD (HL),A 
LD C.OUT 
LD DE.EINGABE 
CALL BDOS 
JP CCP 


;Programmstart 
;BDQS-Elnaprungadresse 
;CP/M-Warmntart 
iString-Ausgabe Routine 
;Puffer-Lene Routlno 


;Ausgabe Textkonatante PI 


‘.Lesen Taataturpuffer 

;Ausgcbon Textkonatante P2 
•.Aufberoiton Eingabe 

;Featatollen der genauen Textlaengo in EINGABE 
;In EINGABE+1 atoht die wirkliche Laenge dea Foldoa 

;Poaitionieren hinter letatem Zoichen 
iin EINGABE 

jEndekennreichon in EINGABE aoteen 


;Auageben von EINGABE 
;Zurueck eu CP/M 


PI: DEFB 'Ihren Namen bitte: *' 

P2: DKFB 0DH.0AH.0AH.'CP/M grueaat Sie 
EINGABE: 

DEFB 25 
DEFS 26 
END 


Listing 1. Demo-Programm in Z80-Quellprogramm 


PRT 

INP 


ORG 100H 
BDOS EQU 5 
CCP EQU 0 
EQU 9 
EQU 10 
MVI C.PRT 
LXI D,P1 
CALL BDOS 
MVI C,INP 
LXI D,EINGABE 
CALL BDOS 
MVI C.PRT 
LXI D.P2 
CALL BDOS 
MVI D.O 
LDA EINGABE*1 
MOV E,A 
LXI H,EINGABE 
DAD D 
INX H 
INX H 
MVI A.'*' 

MOV M.A 
MVI C.PRT 
LXI D,EINGABE 
CALL BDOS 
JMP CCP 


;BDOS-Elnaprungadroaae 
;Warnatart 

;String-Auagaboroutlno 
J Pu#fer-Loae-Routine 


;Ausgabe Textkonatante PI 

;Lesen Taataturpuffer 

;Auageben Textkonatante P2 
;Aufberoiton Eingabe 

;Fontatellen der genauen Toxtlaengo in Eingabo 
;In EINGABE*1 atoht die wirkliche Laenge dea Foldoa 

;Poaitionieren hinter lotatom Zeichen 
;Endekennzeichen in EINGABE aetxen 


;Auageben von EINGABE 
;Zuruock au CP/M 


Pl DB 'Ihren Namon bitte: •’ 

P2 DB ODH.OAH,OAH,* CP/M grueaat Sie heralich - »■ 

EINGABE DB 25 
DS 26 

END 

Listing 2. Dasselbe Programm in 8080-Quellcode 
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C 64/CI 28 


CP/M 


Datenaustausch 
zwischen CP/M und C64/C128 


Mit dem vollständig in Maschinensprache 
geschriebenen Programm »CP/M<-> CBM« 
wird zum ersten Mal die Möglichkeit geboten, 
Daten und Programme auf einfachem Weg zwi¬ 
schen dem CP/M- und C64-Format beliebig hin 
und her zu transferieren. Weiterhin kann der C 64 
nun Disketten im CP/M 2.2 oder 3.0-Format erzeu¬ 
gen. 

D urch die Zwittergestalt des CI28 - er ist C64- und 
CP/M-Computer gleichzeitig - kommt es vor, daß man 
seine eigenen Dateien nicht in jedem Modus zur Verfü¬ 
gung hat. Der gleiche Effekt tritt ein, wenn man den C 64 mit 
einem CP/M-Modul ausstattet. Es wird also ein Programm 
benötigt, das diesem Mißstand abhilft. Ein Programm dieser 
Art hat vielfältige Anwendungsmöglichkeiten. An dieser 
Stelle seien nur einige der wichtigsten exemplarisch aufge¬ 
zählt: 

- Unter CP/M kann weder der C 64 noch der C128 ohne 
Hardware-Erweiterungen an der Datenfernübertragung teil¬ 
nehmen. Was aber, wenn Ihnen Ihr Partner an der Telefon¬ 
leitung sein neuestes Turbo-Pascal-Programm schicken 
möchte? Ohne das Programm »CP/M<-> CBM« (Listing 1) 
muß er Ihnen eine Diskette senden, die Sie, wenn nicht der 
gleiche Computer verwendet wird, oft nicht einmal lesen 
können. 

- Sie möchten von Ihrem xyz-Pascal auf ein Pascal unter 
CP/M umsteigen. Bis jetzt gab es keine Möglichkeit, Ihre 
Quelldateien wiederverwenden zu können, ohne sie neu ein¬ 
tippen zu müssen. Mit »CP/M<->CBM« ist dies kein Pro¬ 
blem mehr! Gleiches gilt übrigens auch für Basic. Ihre wert¬ 
vollen Programme können nach meist kleinen Änderungen 
auch unter Microsoft- oder C-Basic laufen. Und da Microsoft- 
Basic sowohl umfangreicher als Standard-Basic als auch auf 
allen CP/M-Computern lauffähig ist, werden Ihre Programme 
für einen viel größeren Anwenderkreis wertvolle Hilfsmittel. 

- C64-Anwender können endlich auch CP/M-3.0-Disket- 
ten des CI28 lesen, wenn diese einseitig beschrieben wur¬ 
den. Der C128 wiederum kann beide Formate, CP/M 2.2 und 
CP/M 3.0, verarbeiten. 

- Sie möchten Texte, etwa Assembler-Listings, mit einem 
guten 80-Zeichen-Textverarbeitungssystem bearbeiten. Mit 
dem Programm »CP/M < - > CBM« ist es kein Problem, diese 
Dateien vom C 64 nach CP/M zu transferieren. Unter diesem 
Betriebssystem stehen Ihnen dann sehr leistungsfähige Text¬ 
verarbeitungssysteme zur Verfügung. 

- Obwohl die Preise für Disketten stark gefallen sind, ist das 
Speichermedium Kassette noch immer billiger. Daher wer¬ 
den noch immer manche Sicherheitskopien auf Kassette 
abgelegt. Dies ist nun auch für CP/M-Dateien möglich. 

Wie man an diesen wenigen Beispielen sieht, ist das 
Anwendungsgebiet für »CP/M <-> CBM« sehr groß. Nicht 
umsonst wurde eine Menge Zeit in die Entwicklung und in das 
Austesten investiert. Programmierer, die in Assembler arbei¬ 
ten, wissen was es heißt, ein über sechs KByte (26 Blocks) 
langes Maschinenprogramm mit einem Assemblerquelltext 
von über 78K (313 Blocks) zu schreiben. 

Schalten Sie den C64 (oder CI28 im C64-Modus), die 
Floppy und Ihren Monitor ein und legen Sie die Diskette mit 


dem Programm »CP/M<->CBM« in das Laufwerk 8. Das 
Programm wird nun mit 

LOAD "CP/M<->CBM",8 

gefolgt von < RETURN > geladen und mit RUN 

< RETURN > gestartet. Sie können nun die Diskette aus 
dem Laufwerk nehmen. Alle weiteren Eingaben sind durch 
den Programmaufbau selbsterklärend. Eingabefehler wer¬ 
den vom Programm abgefangen und durch ein akustisches 
Signal angezeigt. Zur leichteren Benutzung ist das Programm 
vollkommen menügesteuert, ohne aber durch Unter- und 
Unteruntermenüs schwerfällig zu werden. 

Nur durch die Funktionstasten lassen sich die Menüpunkte 

Programmbedienung 

-1- Directory CP/M, 

-2- Directory C64, 

-3- Kopieren von CP/M nach C64, 

-4- Kopieren von C64 nach CP/M, 

-5- Löschen der CP/M-Directory (entspricht Formatieren 
ohne ID), 

-6- Formatieren im CP/M-2.2-Format und 
-7- Formatieren im CP/M-3.0-Format 
anwählen. An den Stellen, an denen Daten verloren gehen 
könnten, fragt das Programm noch einmal bei dem Benutzer 
nach. Für die Auswahl der zu transferierenden Dateien ste¬ 
hen zwei Wahlmöglichkeiten zur Verfügung. Die erste erlaubt 
für jodr Datei einzeln, verschiedene Parameter festzulegen, 
bei der zweiten Möglichkeit erfolgt die Eingabe blockorien¬ 
tiert. Bei keiner der beiden Möglichkeiten ist der Benutzer 
gezwungen, Namen oder ähnliche, in (Tip)-Arbeit ausar¬ 
tende, Eingaben zu machen. »J« und »N« beziehungsweise 

< RETURN > für standardmäßig vorgewählte Angaben rei¬ 
chen vollkommen aus. Standardantworten sind dabei durch 
reverse Zeichen hervorgehoben. Bei der Blockauswahl 
besteht nebenbei die Möglichkeit, die Programme auf der 
Zieldiskette in einer anderen Reihenfolge als auf der Quell¬ 
diskette anzuordnen. Die Eingabe 

3-7,2,14- 

würde beispielsweise bewirken, daß zuerst die dritte bis 
siebte, dann die zweite und schließlich alle Dateien, von der 
vierzehnten an, transferiert würden. Arbeiten Sie mit einem 
Laufwerk, wird das Programm Sie auffordern, die Disketten 
zu wechseln. Beim Arbeiten mit zwei Laufwerken gibt das 
Programm nur den Namen der Dateien aus, die es gerade 
abarbeitet. »CP/M<->CBM« erkennt Speicherplatzüber¬ 
lauf im RAM und auf Diskette, ebenso ein Überlaufen des 
Directory und teilt dies dem Benutzer in deutschem Klartext 
mit. Eine kleine Ausnahme machen die Fehlermeldungen des 
Laufwerkes. Sie werden direkt übernommen und sind somit 
in Englisch abgefaßt. Wie allgemein bekannt ist, gibt es kein 
perfektes Programm. Um keine falschen Vorstellungen auf- 
kommen zu lassen, soll auch auf die Grenzen dieses Pro¬ 
grammes hingewiesen werden. Mit dem Programm 
»CP/M<->CBM« können keine Dateien von Disketten 
kopiert werden, die im 1571-doppelseitigen Modus 
beschrieben wurden. Diese Einschränkung wurde von uns in 
Kauf genommen, da die 1571 340 KByte Speicherplatz im 
CP/M-Modus zur Verfügung stellt. Alle Verwaltungen müßten 
dadurch mit 16-Bit-Zahlen durchgeführt werden, was im 
Gegensatz zu der verwendeten 8-Bit-Organisation eine Ver¬ 
langsamung des Programms auf etwa die Hälfte der aktuellen 
Geschwindigkeit bedeuten würde, da statt der Prozessorre- 
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CP/M 


C 64/CI 28 


gister RAM-Adressen benutzt werden müßten. Weiterhin 
war, als mit der Programmentwicklung auf dem C 64 begon¬ 
nen wurde, auf dem Markt noch lange keine Floppy 1571 
erhältlich. Aus den Handbüchern, die dem CI28 beiliegen, 
ist über die Verwaltung der Directory des C64 oder unter 
CP/M so gut wie nichts ersichtlich. Das gesamte 
»Deblocking«, das ist die Zuordnung der physikalischen 
Tracks und Sektoren zu den logischen Records, mußte in 
mühsamer Kleinarbeit ausgeknobelt werden. Des weiteren 
kann das Programm keine beliebig langen Dateien transferie¬ 
ren. Es wurde bei diesem Programm vor allem auf Kompatibi¬ 
lität Wert gelegt. Aus diesem Grund werden auch, bis auf eine 
dokumentierte Ausnahme, nur Kernelroutinen verwendet. 
Das Programm sollte schließlich auch dem C64-Besitzer 
weiterhelfen und mußte somit auf dem C64 wie auf dem 
CI28 (im C64-Modus) lauffähig sein. Dies führt dazu, daß 
der Speicherplatz, den der CI28 bietet, nicht ausgenutzt 
wird, da das Programm nur im C64-Modus läuft. Dieser 
Nachteil wird durch die Arbeitsgeschwindigkeit, die in einem 
»nichtgebankten« System viel höher ist als in einem gebank¬ 
ten, bei weitem wieder wettgemacht. Außerdem sind etwa 40 
KByte (zirka 160 Blocks), die transferiert werden können, 
mehr als in den meisten Fällen benötigt werden. Hierbei wird 
das Basic-ROM vom Programm weggeschaltet, was wohl 
niemanden überrascht, der sich ein wenig in der »Speicher¬ 
landschaft« auskennt. Die maximale Anzahl an Programmna¬ 
men auf einer Diskette wurde mit 80 festgelegt, was für 
CP/M-Disketten ausreicht. 

Grenzen des Programmes 


»CP/M < - > CBM« unterstützt keine »Stamps« (Password, 
Create, Update, Access etc.). Dies heißt aber nicht, daß Feh¬ 
ler entstehen, wenn auf eine Diskette kopiert wird, die bereits 
Programme mit solchen Stamps enthält. »CP/M<->CBM« 
läßt die Stamps mit ihren Einträgen einfach unberücksichtigt. 
Auch wird bei dem Kopieren von C64 nach CP/M nicht 
geprüft, ob sich bereits ein Programm gleichen Namens auf 
der Zieldiskette befindet. Sind C64-Namen länger als acht 
Buchstaben, Punkt und drei Buchstaben Extention, werden 
die Namen auf die ersten acht Buchstaben des jeweiligen 
Namens gekürzt. Fehlt der Punkt, werden als Extention drei 


Leerzeichen eingesetzt. Ist die Extention länger als drei 
Buchstaben, wird sie auf die ersten drei Buchstaben gekürzt. 
Auch hier wird nicht geprüft, ob sich durch das Kürzen der 
Namen gleiche Namen ergeben. Auf diesen Punkt müssen 
Sie als Benutzer achten! Verwenden Sie im C64-Modus also 
gültige CP/M-Namen, so ist die zweite der angeführten Feh¬ 
lermöglichkeiten ausgeschaltet. Auf zwei weitere Einschrän¬ 
kungen sei noch hingewiesen: 

- Es können keine relativen Dateien kopiert werden. 

- Probleme treten möglicherweise auch bei commodorespe- 
zifischen Zeichen, wie beispielsweise Grafikzeichen, 
Cursor-Steuerzeichen und ähnlichem auf, denn in was sollte 
das Programm diese Zeichen umcodieren? 

Wenn beim Kopieren keine Umcodierung gewählt wurde, 
werden alle 256 möglichen Zeichen direkt übertragen. Somit 
können mit diesem Programm ohne weiteres auch Maschi¬ 
nenprogramme transferiert werden. Natürlich ist, aus ver¬ 
ständlichen Gründen, dieses Programm nicht in der Lage, 
Z80-Maschinenprogramm auf den 6502 umzucodieren. 
Eine kleine Eigenheit steckt in der Wahl des C 64-Dateityps. 
Ist eine Datei vom Typ »PRG« oder wird als Ziel eine »PRG«- 
Datei gewünscht, wird beim Lesen der Dateien die Lade¬ 
adresse überlesen und beim Schreiben die Ladeadresse 
$1100 vor der Datei ausgegeben. Dies ist sinnvoll, da das 
Betriebssystem diese beiden Bytes als Anfangsadresse 
beim Laden interpretieren und unterschlagen würde, wenn 
Sie die Datei mit LOAD oder dem entsprechenden Monitorbe¬ 
fehl in den Computer einladen wollten. Speichern Sie einen 
RAM-Bereich ab, werden diese Bytes automatisch mit aus¬ 
gegeben, damit Ihnen keine Informationen verloren gehen, 
beziehungsweise Sie keine zwei Byte zuviel in den übertra¬ 
genen Dateien wiederfinden. Das könnte unter CP/M uner¬ 
wünschte Effekte hervorrufen. 

Wie S: Q sehen, stecken in diesem relativ kleinen Programm 
doch einige Fähigkeiten, die Sie auf einem C64 oder einem 
C128 im C 64-Modus, mit einem oder zwei Laufwerken, mit 
oder ohne Floppybeschleuniger, voll ausschöpfen können. 
»CP/M < - > CBM« wird Ihnen schnell ein unentbehrliches 
Hilfsmittel werden und hilft sicherlich, einige Brücken zu 
neuen Anwendungsmöglichkeiten zu schlagen, nicht zuletzt 
auch der Tatsache wegen, daß der CI28 wiederum das 
Datenformat des C 64 lesen kann, wodurch eine universelle 
Schnittstelle geschaffen ist. (D. Winkler/bj) 
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55 

53 

57 

da 

lcf 9 


41 

48 

4c 

00 

20 

90 

09 

a9 

6+ 

ld01 


7+ 

a 0 

1 + 

20 

c+ 

09 

a9 

00 

88 

ld09 


Bd 

bd 

02 

8d 

be 

02 

aB 

a9 

99 

1dl 1 


+ + 

99 

11 

2a 

cB 

d0 

fa 

98 

97 

ldl9 


a0 

50 

99 

c6 

27 

99 

16 

28 

08 

ld21 


SB 

d0 

+7 

a 0 

0b 

a2 

04 

1B 

29 

ld29 


20 

+ 0 

f + 

a9 

01 

Bd 

bb 

02 

66 

ld31 


Bd 

ba 

02 

3B 

20 

+ 0 

+ + 

Bc 

46 

ld39 


b3 

02 

a2 

04 

a0 

00 

1B 

20 

cl 

ld41 


+ 0 

+ + 

20 

35 

1 + 

ac 

b3 

02 

0a 

ld49 


a2 

12 

18 

20 

+ 0 

ff 

20 

79 

81 

ld51 


0a 

c9 

0d 

+ 0 

64 

c9 

11 

f0 

5c 

ld59 


da 

c9 

91 

d0 

0 c 

ad 

ba 

02 

b3 

ld61 


38 

e9 

14 

h0 

cb 

a9 

01 

d0 

59 

ld69 


c7 

c9 

20 

f0 

el 

C9 

14 

d0 

99 

ld71 


0 e 

4B 

ce 

be 

02 

10 

24 

a9 

b3 

ld79 


00 

8d 

be 

02 

68 

+ 0 

c+ 

c9 

11 

IdGl 


3a 

b0 

29 

c7 

2 c 

+ 0 

08 

c9 

95 

ldB9 


2d 

f0 

04 

c9 

30 

90 

ld 

ac 

be 

ld91 


be 

02 

48 

29 

0f 

99 

11 

2 a 

de 

ld99 


ee 

be 

02 

a9 

14 

20 

d2 

ff 

2 a 

ldal 


68 

20 

d2 

+ + 

a9 

5+ 

20 

d2 

8a 

lda9 


+f 

4c 

4+ 

ld 

20 

e6 

09 

4c 

3c 

ldbl 


4+ 

ld 

a9 

c9 

a 0 

1+ 

4c 

eb 

3e 

ldb9 


0a 

a0 

00 

8c 

bb 

02 

Bc 

cl 

26 

ldcl 


02 

Bc 

cb 

02 

Bc 

c7 

02 

a 0 

Bd 

ldc9 


00 

8c 

cB 

02 

Bc 

c9 

02 

Bc 

ba 

lddl 


ca 

02 

a2 

00 

ac 

bb 

02 

b9 

69 

ldd9 


11 

2 a 

c9 

+f 

f0 

15 

c9 

0c 

69 

ldel 


b0 

11 

cB 

eB 

e 0 

03 

d0 

ef 

b2 

lde9 


b9 

11 

2 a 

c9 

+ f 

+ 0 

04 

c9 

la 

ldf 1 


0c 

90 

b+ 

e 0 

00 

+ 0 

bb 

ac 

21 

ldf 9 


bb 

02 

b9 

11 

2 a 

ee 

bb 

02 

53 

le01 


ca 

9d 

c8 

02 

d0 

+ 1 

a9 

00 

4+ 

le09 


a0 

02 

be 

c8 

02 

f0 

09 

1B 

6+ 

lei 1 


79 

0a 

20 

b0 

9d 

ca 

d0 

+ 8 

13 

lel9 


88 

10 

ef 

Bd 

c6 

02 

ac 

bb 

f d 

le 21 


02 

b9 

11 

2a 

c9 

0d 

d0 

03 

dB 

le29 


4c 

59 

le 

2 c 

cb 

02 

10 

03 

42 

le31 


4c 

79 

le 

ad 

c6 

02 

ac 

cl 

2 a 

le39 


02 

cd 

b+ 

02 

90 

03 

4c 

b3 

0c 

le41 


ld 

99 

c7 

27 

Bd 

c7 

02 

ee 

ff 

le49 


cl 

02 

ac 

bb 

02 

ee 

bb 

02 

38 

le51 


cc 

be 

02 

f0 

52 

4c 

cB 

ld 

00 

le59 


ad 

c6 

02 

8d 

c7 

02 

ee 

bb 

5b 

le 61 


02 

a9 

+ + 

Bd 

cb 

02 

ac 

bb 

e0 

le69 


02 

cc 

be 

02 

+ 0 

03 

4c 

cB 

ab 

le71 


ld 

ae 

b+ 

02 

ca 

Be 

c6 

02 

56 

le79 


a9 

00 

Bd 

cb 

02 

ad 

c6 

02 

ac 

leBl 


cd 

c7 

02 

b0 

03 

4c 

b3 

ld 

64 

leB9 


d0 

03 

4c 

37 

le 

ee 

c6 

02 

4d 

le91 


ad 

c7 

02 

ac 

cl 

02 

99 

c7 

5a 

le99 


27 

ee 

cl 

02 

18 

69 

01 

cd 

54 

leal 


c6 

02 

d0 

ef 

4c 

4b 

le 

20 

72 

lea9 


d5 

0e 

20 

d5 

0 e 

2 c 

cd 

02 

c6 

lebl 


30 

07 

a9 

59 

a0 

15 

4c 

be 

5c 

leb9 


le 

a9 

6+ 

a0 

15 

20 

c+ 

09 

3+ 

lecl 


a9 

0d 

a 0 

20 

20 

cf 

09 

20 

02 

lec9 


79 

0 a 

c9 

4a 

+ 0 

14 

c9 

0d 

+ 4 

ledl 


+ 0 

04 

c9 

4e 

d0 

+ 1 

2 c 

cd 

e8 

led9 


02 

30 

16 

a9 

97 

a0 

15 

4c 

19 

leel 


f 6 

le 

a9 

80 

ac 

cl 

02 

99 

75 

lee9 


17 

28 

88 

C0 

+ + 

d0 

+ 8 

f0 

9b 

lef 1 


07 

a9 

b2 

a0 

13 

20 

cf 

09 

31 

lef 9 


2c 

cd 

02 

10 

01 

60 

20 

d5 

ce 

lf0l 


0 e 

20 

d5 

0 e 

a9 

cd 

a0 

15 

0c 

1 + 09 


20 

c+ 

09 

20 

79 

0 a 

c9 

0d 

80 

1+11 


f0 

0d 

c9 

m 

+ 0 

0b 

c9 

53 

39 

1+19 


f0 

07 

c9 

55 

d0 

ed 

2 c 

a9 

2 a 

1 + 21 


50 

ac 

cl 

02 

48 

68 

4B 

19 

93 

1 + 29 


17 

28 

99 

17 

28 

88 

C0 

+ + 

67 

lf 31 


d0 

+ 3 

68 

60 

ae 

bf 

02 

ca 

a7 

1 + 39 


ec 

ba 

02 

b0 

01 

60 

ae 

b+ 

66 

1 + 41 


02 

ca 

ec 

ba 

02 

90 

le 

ae 

b5 

1 + 49 


ba 

02 

20 

8a 

16 

20 

d5 

0e 

34 

1 + 51 


ee 

bd 

02 

a9 

0a 

cd 

bd 

02 

de 


1 + 59 

: 

d0 

e4 

a9 

00 

Bd 

bd 

02 

20 

15 

1+61 

: 

d5 

0 e 

4c 

d5 

Be 

a9 

0a 

cd 

fd 

1 + 69 

: 

bd 

02 

+ 0 

ee 

a9 

e3 

a 0 

1+ 

bc 

1 + 71 

: 

20 

cf 

09 

20 

d5 

0e 

ee 

bd 

c4 

1 + 79 

s 

02 

ee 

ba 

02 

dB 

e7 

13 

11 

9c 

lf Bl 

: 

11 

11 

11 

11 

11 

11 

11 

11 

Bl 

1 + B9 

: 

11 

11 

11 

11 

11 

11 

11 

12 

Bb 

1+91 

: 

43 

52 

44 

92 

20 

3d 

3e 

20 

86 

1 + 99 

: 

d3 

45 

49 

54 

45 

20 

57 

45 

29 

lf al 

: 

49 

54 

45 

52 

2c 

12 

43 

52 

b5 

lfa9 

s 

55 

92 

20 

3d 

3e 

20 

d3 

45 

b6 

lf bl 

i 

49 

54 

45 

20 

5a 

55 

52 

55 

be 

l + b9 

S 

45 

43 

4b 

0d 

cl 

55 

53 

57 

d7 

1 +cl 

: 

41 

4B 

4c 

20 

3a 

20 

5f 

00 

60 

l + c9 

: 

0d 

0d 

12 

20 

3+ 

20 

c6 

41 

7B 

1+dl 

: 

4c 

53 

43 

48 

45 

20 

c5 

49 

a0 

l + d9 

: 

4e 

47 

41 

42 

45 

20 

21 

0d 

57 

1 + el 

: 

0d 

00 

20 

20 

20 

20 

20 

20 

be 

l + e9 

: 

20 

20 

20 

20 

20 

20 

20 

20 

e9 

1 + f 1 

X 

20 

20 

20 

20 

20 

20 

20 

20 

+ 1 

1 ++9 

: 

20 

20 

20 

20 

20 

20 

20 

20 

f 9 

2001 

• 

20 

20 

20 

20 

20 

20 

20 

20 

01 

2009 


00 

01 

0 a 

64 

20 

2B 

4a 

2+ 

64 

2011 

: 

12 

4e 

92 

29 

20 

3+ 

9d 

9d 

c 2 

2019 

: 

9d 

9d 

9d 

9d 

9d 

9d 

00 

48 

+ 7 

2021 


8e 

b0 

02 

8c 

b2 

02 

a0 

00 

d7 

2029 

s 

a9 

52 

e 0 

32 

d0 

02 

a9 

57 

ec 

2031 

: 

Bd 

e2 

07 

ad 

a7 

02 

20 

4e 

4e 

2039 

: 

20 

CB 

a9 

20 

99 

e2 

07 

ad 

54 

2041 

: 

a8 

02 

20 

4e 

20 

68 

ae 

b0 

le 

2049 

: 

02 

ac 

b2 

02 

60 

a2 

00 

38 

la 

2051 

: 

e9 

0a 

90 

03 

e8 

dB 

+ 9 

69 

94 

2059 

: 

0 a 

48 

8a 

20 

60 

20 

6B 

cB 

68 

2061 

3 

09 

30 

99 

e 2 

07 

60 

48 

8c 

+ 3 

2069 

: 

b2 

02 

a0 

06 

a9 

20 

99 

el 

cb 

2071 

: 

07 

88 

10 

+ a 

ac 

b2 

02 

6B 

59 

2079 

: 

60 

20 

90 

09 

a9 

cc 

a0 

20 

+ 2 

20B1 

: 

20 

cf 

09 

20 

fl 

20 

20 

73 

57 

20B9 


0 e 

Bd 

af 

02 

Bd 

ae 

02 

20 

21 

2091 

: 

ea 

0f 

a2 

00 

Be 

ba 

02 

a9 

c6 


2099 

: 

e5 

9d 

11 

29 

eB 

d0 

fa 

a9 

0b 

20a 1 

: 

04 

8d 

C0 

02 

20 

fa 

16 

a2 

54 

20a9 

: 

32 

a9 

11 

■0 

29 

20 

ee 

0b 

6e 

20b 1 

X 

ce 

C0 

02 

fB 

06 

20 

15 

1B 

64 

20b9 

X 

4c 

aB 

20 

ee 

ba 

02 

ae 

ba 

2b 

20 c 1 

: 

02 

e 0 

02 

90 

da 

20 

da 

0 e 

fc 

20c9 


4c 

2d 

08 

0d 

0d 

c3 

d0 

2+ 

e 0 

20dl 

X 

cd 

2d 

c4 

49 

52 

45 

43 

54 

94 

20d9 

X 

4+ 

52 

59 

20 

4c 

4+ 

45 

53 

a7 

20el 

X 

43 

48 

45 

4e 

20 

3f 

20 

28 

30 

20e9 

: 

12 

4a 

92 

2+ 

4e 

29 

20 

00 

Sa 

20f 1 

X 

20 

79 

0a 

c9 

0d 

f0 

0e 

c9 

ae 

20f 9 

X 

4a 

+ 0 

0a 

c9 

4e 

d0 

+ 1 

20 

eb 

2101 

: 

e6 

09 

4c 

2d 

08 

a9 

4a 

4c 

b4 

2109 

: 

d2 

+ + 

a9 

00 

2 c 

a9 

ff 

8d 

70 

2111 

X 

ce 

02 

20 

90 

09 

a9 

8a 

a 0 

44 

2119 

X 

21 

20 

cf 

09 

20 

+ 1 

20 

20 

b2 

2121 

X 

73 

0e 

Uri 

a+ 

02 

Bd 

ae 

02 

40 

2129 

X 

20 

e 0 

0b 

ae 

af 

02 

a0 

0+ 

fe 

2131 

: 

20 

ba 

ff 

a9 

0+ 

a2 

7b 

a0 

19 

2139 

X 

21 

20 

bd 

+ + 

20 

C0 

ff 

90 

03 

2141 

: 

03 

4c 

bb 

0 a 

20 

89 

0b 

20 

55 

2149 

X 

0c 

0b 

2 c 

ce 

02 

30 

03 

4c 

06 

2151 

X 

93 

20 

a 2 

00 

bd 

b3 

21 

9d 

d6 

2159 

X 

11 

29 

e8 

e0 

24 

90 

+5 

a9 

47 

2161 

X 

00 

9d 

11 

29 

e8 

d0 

fa 

8e 

b7 

2169 

X 

aB 

02 

e8 

8e 

a7 

02 

a2 

32 

98 

2171 

X 

a9 

11 

a 0 

29 

20 

ee 

0b 

4c 

2e 

2179 

X 

93 

20 

4e 

3a 

43 

50 

2f 

4d 

05 

2181 

X 

20 

44 

49 

53 

4b 

2 c 

5a 

43 

86 

2189 

X 

0d 

0d 

0d 

c4 

49 

53 

4b 

45 

e 0 

2191 

X 

54 

54 

45 

20 

28 

c3 

d0 

2+ 

a7 

2199 

X 

cd 

29 

20 

46 

4+ 

52 

4d 

41 

0b 

21 al 

: 

54 

49 

45 

52 

45 

4e 

20 

3+ 

+ b 

21a9 

x 

20 

28 

12 

4a 

92 

2+ 

4e 

29 

d9 

21bl 

X 

20 

00 

43 

42 

4d 

00 

00 

00 

bf 

21b9 

: 

00 

00 

00 

7B 

20 

84 

ff 

a9 

42 

21cl 

X 

3e 

8d 

00 

ff 

a9 

c3 

Bd 

ee 

93 

21c9 

x 

ff 

a9 

08 

8d 

ef 

ff 

a9 

00 

+6 

21dl 


8d 

f0 

+ + 

4c 

d0 

ff 

ee 

07 

36 


Listing 1. (Ende). »CP/M <-> CBM« kopiert Dateien vom C64 nach CP/M 2.2 
oder 3.0 und umgekehrt, formatiert CP/M 2.2- oder 3.0-Disketten (einseitig) und 
stellt somit die Schnittstc!!? zwischen CP/M und den Commodore-eigenen Auf¬ 
zeichnungsformaten her. bute verwenden Sie zur Eingabe den MSE (Ein¬ 
gabehinweise auf den Seiten 93 - 95). 
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BÜCHER 


i 

C-64 

COMPUTER 

HANDBUCH 



C-64/SX-64 Computer 
Handbuch 

Ein Buch, das dem Einsteiger 
eine gewaltige Fülle an Informa¬ 
tionen liefert, aber auch dem 
Fortgeschrittenen noch eine 
Menge bietet ist das C-64/ 
SX-64 Computer Handbuch von 
Raeto West. Das neunseitige 
Inhaltsverzeichnis zeigt schon, 
daß praktisch alle Gebiete rund 
um den C 64 behandelt werden, 
wobei die Informationen den¬ 
noch nicht erschlagend wirken. 
Fast alle Themen sind mit einer 
Menge kleinerer Programme 
unterlegt, die das Geschrie¬ 
bene plastisch darstellen und 
vertiefen. Bilden die ersten drei 
Kapitel mit Beschreibung der 
Tastaturfunktionen, Syntax und 
Befehlssatz etc. ein Grundge¬ 
rüst als Ergänzung des Commo- 
dore-Handbuches, so wird in 
den folgenden 14 Kapiteln Wis¬ 
sen zur Verfügung gestellt, das 
bei weitem über das Handbuch 
hinausreicht. Wie man effektiv in 
Basic programmiert, zum Bei¬ 
spiel sucht, sortiert und mischt, 
erfährt man im vierten Kapitel 
auch anhand zahlreicher kurzer 
Programme. Eine detaillierte 
Beschreibung der Hardware fin¬ 
det sich in Kapitel 5, unter ande¬ 
rem beispielsweise alle Ein- und 
Ausgänge des C64/SX 64. Für 
die dann schon Fortgeschritte¬ 
nen wird es in Kapitel 6 beson¬ 
ders interessant. Hier wird 
genau beschrieben, wie und 
wo Basic-Programme abgelegt 
sind und was es mit dem Aufräu¬ 
men von nicht mehr benötigten 
Zeichenketten (Garbage Col¬ 
lection) auf sich hat. Die Kapitel 
7bis11 behandeln auf über 100 
Seiten den Befehlssatz der 
6502/6510 CPU und stellen 
typische Verfahren der Maschi¬ 
nenprogrammierung sowie 
deren Einsatz vor. Auskunft 
über wichtige Speicheradres¬ 
sen im RAM und ROM liefert 


Kapitel 11 und erweitert damit 
den Anwendungsbereich des 
zuvor Dargestellten enorm. Die 
folgenden Kapitel behandeln 
Grafik, Ton und Musik, Kasset¬ 
tenrecorder und Disketten als 
Speichermedien, sowie Druk- 
ker, Plotter und Modems. Abge¬ 
rundet wird dieses Buch durch 
einen ausgiebigen Anhang, der 
nicht nur durch Tabellen glänzt, 
sondern auch Programme wie 
einen Maschinensprachemoni¬ 
tor, Schnelladeprogramme für 
Kassette und Diskette, sowie 
eine Programmeingabehilfe ent¬ 
hält. Einziger kleiner Schön¬ 
heitsfehler dieses Buches ist, 
daß bei der Übersetzung aus 
dem Englischen die Namen der 
Programme nicht ebenfalls an¬ 
gepaßt wurden. Da dies das ein¬ 
zige Relikt darstellt und alle 
Texte in den Programmen, wie 
auch deren Dokumentation, 
selbstverständlich deutsch¬ 
sprachig sind, ist dieser Schön¬ 
heitsfehler nicht weiter von 
Belang. 

Dieses Werk kann jedem 
C64/SX 64-Besitzer wärmstens 
empfohlen werden und leistet 
Ihnen auch als Nachschlage¬ 
werk in den nächsten Jahren 
wertvolle Hilfe. 

(R. Sauer/bj) 

Info: Raeto West C-64/SX-64 Computer Hand¬ 
buch. te-wi Verlag GmbH, etwa 500 Selten. 
ISBN 3-921803-24-1. Preis: 66 Mark 



C 128-ROM-Listing 

Ein unentbehrliches Arbeits¬ 
mittel für Maschinensprache¬ 
programmierer ist das C 128- 
ROM-Listing. Gab es für den 
CI28 bislang nur eine Doku¬ 
mentation von Monitor und 
Betriebssystem, so liegt nun ein 
vollständiges ROM-Listing vor, 
das die gesamten 44 KByte- 
ROM, also auch den 28 KByte 
langen Basic-7.0-lnterpreter, 
umfaßt. Das Buch »C 128- 
ROM-Listing* aus der Commo- 


dore-Sachbuchreihe, die vom 
Markt&Technik Verlag vertrie¬ 
ben wird, erklärt zunächst die 
komplizierte Speicherverwal¬ 
tung des C128. Dieses Kapitel 
ist zwar nur 20 Seiten stark, 
aber sehr informativ. 

Auf etwa 25 Seiten werden 
dann noch die Videocontroller 
VIC und VDC, der Soundchip 
SID, die CIAs in Kurzform behan¬ 
delt und eine, im Gegensatz zum 
C128-Handbuch, vollständige 
Aufstellung der Systemadres¬ 
sen geboten. Leider wurden 
dabei die Adressen, die dem 
Anwender zur Verfügung ste¬ 
hen (also vom System nicht ver¬ 
wendet werden), nicht erwähnt. 
Den Hauptteil macht mit 375 
Seiten das ROM-Listing selbst 
aus, welches sowohl den Basic 
7.0-lnterpreter, als auch das 
Betriebssystem dem Assem¬ 
blerprogrammierer offenlegt. 
Das ROM-Listing ist, um es voll¬ 
ständig in einem einzigen Buch 
unterzubringen, etwas kleiner 
als der normale Text gedruckt, 
aber dennoch sehr gut lesbar. 
Erfreulich ist, daß die Kommen¬ 
tare in vernünftigem Maß gege¬ 
ben werden: Befehle, die für 
sich selbst sprechen, werden 
nicht dokumentiert, was die 
Überweltlichkeit enorm erhöht 
und dadurch das Nachschlagen 
unterstützt. Die äußere Struktur 
des ROM-Listings überzeugt 
durch Klarheit und Übersicht¬ 
lichkeit, da es sich um einen 
Quelltext-Ausdruck handelt und 
die eingesetzten Label eine 
schnelle Suche von Sprungzie¬ 
len ermöglichen. Die Labelna¬ 
men bestehen aus der hexade¬ 
zimalen Adreßangabe mit einem 
vorangestellten »h«, also zum 
Beispiel »hFFD2« für $FFD2; 
dadurch kann man die tatsächli¬ 
che Adresse so einfach wie bei 
einem Monitor-Ausdruck ausfin¬ 
dig machen, was bei der Ana¬ 
lyse von ROM-Routinen sehr 
hilfreich ist. 

Fazit: Das vorliegende Buch 
ist für jeden C128-Maschinen- 
programmierer ein unbedingtes 
»Muß«. Aufgrund des immensen 
Umfangs (456 Seiten), des gro¬ 
ßen Nutzens und eines guten 
Schlagwortregisters ist der 
Preis von 58 Mark angemes¬ 
sen. Man hätte lediglich noch 
eine Einführung in die Arbeit mit 
ROM-Listings erwartet, der ge¬ 
übte Leser wird darauf aber 
sicher verzichten können. 

(Florian Müller/bj) 

Info: Commodore-Sachbuchreihe, Dr. 

Ruprecht. C128-ROM-Usting, Markt&Technik 
Verlag, 456 Seiten, ISBN 3-89090-212-X, 
Preis: 58 Mark 



C128: Programmieren 
in Maschinensprache 

Das im Markt&Technik Verlag 
erschienene Buch »C128: Pro¬ 
grammieren in Maschinenspra¬ 
che« von Gerd Möllmann ist kein 
Lehrbuch für 6502/6510-As- 
sembler-Programmierung, son¬ 
dern vielmehr eine Weiterfüh¬ 
rung und vertiefende Literatur, 
die dem 6502-Vertrauten den 
Weg zur effektiven Assembler- 
Programmierung mit dem C128 
erleichtert und auch als Nach¬ 
schlagewerk wertvolle Dienste 
leistet. 

Im ersten Kapitel werden die 
neuen Bausteine des CI28 
(MMU, VDC) behandelt, aber 
auch die Register der schon 
bekannten ICs wie VIC II, SID 
und CIAs kommen hier nicht zu 
kurz. Das zweite Kapitel 
beschreibt die Routinen der 
»Common Area«, also der 
Kernel- und Interpreter-Unter¬ 
programme, im gemeinsamen 
RAM-Bereich von $0000 bis 
$03FF. Im dritten Kapitel wird 
auf 50 Seiten das Betriebssy¬ 
stem analysiert, daran ange¬ 
hängt die Kemel-Vektoren. Im 
fünften und längsten Kapitel 
wird der Basic-Interpreter sorg¬ 
fältig zerlegt. Das sechste Kapi¬ 
tel beschäftigt sich mit den 
dazugehörigen Basic-Vektoren 
in der erweiterten Zero-Page 
und das siebte Kapitel be¬ 
schreibt deren Einsatzmöglich¬ 
keiten. 

Der Autor hat mit diesem Buch 
ein ausführliches Nachschlage¬ 
werk für die Assembler-Pro¬ 
grammierung des CI 28 
geschaffen, das so gut wie 
möglich mit Beispielprogram¬ 
men unterlegt ist und trotz der 
Informationsvielfalt immer noch 
übersichtlich bleibt. 

(Jörg Sahlmann/bj) 

Info: Gerd Möllmann. CI28: Programmieren In 
Maschinensprache, Markt & Technik Verlag. 
270 Seiten. ISBN 3-89090-213-8. Preis: 52 
Mark 
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BÜCHER 



Erfolgreicher mit dem 
VC 64 arbeiten 

Mit diesem Buch wird der 
Autor all diejenigen C64-Besit- 
zer erreichen, die sich gerade 
überlegen, wie sie den Sprung 
»ins Eingemachte«, nämlich die 
Programmierung in Maschinen¬ 
sprache, schaffen sollen. Die¬ 
ses Werk berücksichtigt nun die 
ganze Komplexität des The¬ 
menbereiches und widmet sich 
diesem »von der Pike« auf. 

Der Verfasser, selbst Diplom¬ 
ingenieur, beginnt das Buch mit 
der Vermittlung von Grundlagen 
der Digitaltechnik, beschreibt 
die Funktion verschiedener 
Zahlensysteme und gibt als 
Abschluß des ersten Teils des 
Buches einen Überblick über 
das grundlegende Funktions¬ 
prinzip eines Mikrocomputers, 
um dann speziell auf den Pro¬ 
zessor 6502 und seinen Be¬ 
fehlssatz einzugehen. 

Der zweite Teil des Buches 
beschäftigt sich dann im beson¬ 
deren mit dem C64 und seinen 
Eigenheiten. In gesonderten 
Kapiteln wird der Speicherauf¬ 
bau und die Speicherverwal¬ 
tung dem Leser genauestens 
dargestellt, im folgenden Ab¬ 
schnitt wird das Augenmerk be¬ 
sonders auf die Interface-Bau¬ 
steine des C 64 gerichtet. Dabei 
werden die einzelnen Register 
und deren Programmierung 
sehr genau beschrieben. 

Im dritten Teil werden einige 
kleine, aber nützliche Pro¬ 
gramme besprochen, die den 
Anwender auch zu selbständi¬ 
gen Arbeiten anregen sollen. 
Dieser Teil des Buches ist 
gerade für den Einsteiger sehr 
empfehlenswert, hat er hier 
doch die Möglichkeit, seine 
bereits vorhandenen Kennt¬ 
nisse durch Übung zu erwei¬ 
tern. 

Weiterhin findet man über das 
ganze Buch verstreut zahllose 


Tabellen, die sowohl eine Hilfe 
für den Anfänger, als auch ein 
Nachschlagewerk für den Routi¬ 
nier darstellen. Im Anhang gibt 
es dann noch eine ausführliche 
Liste der ROM-Routinen mit 
hexadezimalen und dezimalen 
Adressen, sowie eine Umrech¬ 
nungstabelle von hexadezimal 
nach dezimal und umgekehrt. 

Alles in allem kann man fest¬ 
stellen: Sowohl für den Einstei¬ 
ger als auch für den geübten 
Basic-Programmierer ist dieses 
Buch sehr gut geeignet, um sich 
alle nötigen Grundlagen im 
Umgang mit der Maschinen¬ 
sprache anzueignen. 

(Udo Reetz/ev/bj) 

Inlo: Franz Wunderlich. Erfolgreicher mit dem 
VC 64 arbeiten. Franzis-Verlag GmbH. 192 Sei¬ 
len. ISBN 3-7723-7781-5. Preis: 38 Mark 


die Interrupt-Technik. Viel zu 
kurz kommen mathematische 
Anwendungen, denn die Arbeit 
mit Fließkommazahlen wird 
überhaupt nicht erklärt, wäh¬ 
rend die äußerst unkomfortable 
BCD-Darstellung bis ins letzte 
Detail zerlegt wird. Nur sehr 
wenige ROM-Routinen werden 
erklärt, was aber allgemein ein 
Problem in vergleichbarer Lite¬ 
ratur ist, wenn man von wenigen 
Ausnahmen absieht. Die Stärke 
des Buches gegenüber den 
Mitbewerbern liegt zweifel¬ 
sohne darin, daß man ohne 
Umschweife erfährt, wie man 
Assembler-Programme eingibt, 
im Speicher unterbringt, ablau¬ 
fen läßt und weiterverwendet. 
Dies mag dem Assembler-Uner¬ 
fahrenen so trivial wie in Basic 
erscheinen, stellt aber in der 
Praxis ein Problem für sich dar. 
Erfreulich ist, daß auch eine Dis¬ 
kette mit Assembler- und Moni¬ 



tor-Programm bezogen werden 
kann, welches wirklich lei¬ 
stungsfähig ist, wenn die Dis¬ 
kette auch mit 79 Mark leicht 
überteuert scheint. Wer bereits 
einen anderen Prozessor als 
einen 65xx (C 64) programmiert 
hat (zum Beispiel den Z80 des 
Sinclair ZX81) oder über Elek- 
tronik-KP' ntnisse verfügt, ist 
mit diesem preiswerten Buch 
bestens bedient. Andernfalls 
fällt die Lektüre nicht ganz so 
leicht. (Florian Müller/bj) 


Assemblerprogram¬ 
mierung auf dem C64 

Daß dieses Werk aus einem 
Schulbuchverlag (Westermann) 
stammt, erkennt man sofort am 
didaktischen Aufbau und den 
Übungsaufgaben am Ende je¬ 
des Abschnittes, deren Nutzen 
aber durch einen Lösungsteil 
erheblich vergrößert werden 
könnte. Im ersten Kapitel wer¬ 
den die nötigen mathemati¬ 
schen und schaltungstechni¬ 
schen Kenntnisse vermittelt, 
wobei aber anzumerken ist, daß 
man als Nicht-Elektroniker nach 
den ersten Seiten mittlere bis 
größere Verständnisschwierig¬ 
keiten haben wird. Neben den 
üblichen Erklärungen des 
Befehlssatzes und der Adres¬ 
sierungsarten ist besonders 
positiv anzumerken, daß auch 
solche Themen, vor denen sich 
andere Autoren drücken, klar 
und ausführlich behandelt wer¬ 
den: Anwendung von Monitor- 
und Assembler-Programm, 
Sound-Programmierung, Ein¬ 
bindung von Maschinenrouti¬ 
nen in Basic-Programme und 


Info: Waller Bachmann/ Norbert Kluge. Assem¬ 
blerprogrammierung auf dem C64, Wester¬ 
mann Schulbuchverlag, 270 Sellen, ISBN 
3-14-138813-X. Preis: 29.80 Mark; Diskette 
mit Monitor und Assembler Bestellnummer 
138013, Preis: 79 Mark 



Pascal mit dem C64 

Das erste, das sofort ange¬ 
nehm an diesem Buch auffällt, 
ist die mitgelieferte Programm¬ 
diskette, auf der sich ein kom¬ 
plettes und lauffähiges Pascal- 
System, inklusive Full-Screen- 
Editor und Compiler, befindet. 


Anders betrachtet könnte man 
es natürlich auch als Programm¬ 
paket mit einer sehr, sehr aus¬ 
führlichen Anleitung bezeich¬ 
nen. Im ersten Kapitel wird der 
Leser dem Thema »Pascal« 
durch allgemeine Einleitungen 
der Art »Warum Pascal?« und 
»Was macht ein Compiler?« 
nähergebracht. Danach folgt 
eine schrittweise Einführung in 
die Bedienung des Systems 
anhand von Beispielen. Der 
zweite und größte Teil des 
Buches stellt eine vollständige 
»Einführung in Pascal« dar. 
Besonders ausführlich werden 
die komplizierteren Datentypen 
(Array, Record und File), sowie 
die verschiedenen Datenstruk¬ 
turen (dynamische, lineare, 
Listen, Bäume, etc.) behandelt. 
Dieses Kapitel wirkt sehr ausge¬ 
wogen, da wirklich alle Ele¬ 
mente der Sprache vorgestellt 
werden. Außerdem werden im 
Text einige sehr nützliche Unter¬ 
programme und Algorithmen 
entwickelt (zum Beispiel Quick¬ 
sort). Abgerundet wird dieser 
Abschnitt durch die vielen klei¬ 
nen Aufgabenstellungen am 
Ende jedes Teilkapitels, die den 
Leser zum selbständigen Arbei¬ 
ten und Lernen gekonnt animie¬ 
ren. In Kapitel drei schließlich 
geht es um Tips und Tricks spe¬ 
ziell für den Commodore 64. 
Hier wird gezeigt, wie man auf 
das Betriebssystem und die 
Floppystation zugreift. Der 
vierte Teil behandelt ausschließ¬ 
lich die Beschreibung des mit¬ 
gelieferten Pascal-Systems. 
Dabei wird sowohl auf die 
Bedienung der einzelnen Pro¬ 
gramme, als auch auf die Beson¬ 
derheiten des Compilers einge¬ 
gangen. Dem Gesamteindruck 
nach, eignet sich dieses Buch in 
erster Linie für Einsteiger in die 
Programmiersprache Pascal, 
bietet aber auch dem erfahre¬ 
nen Pascal-Benutzer sicherlich 
einige wertvolle Anregungen. 
Der interessierte Pascal- 
Anwender erhält sowohl die 
künftige Arbeitsgrundlage zum 
Erstellen, Testen und Betreiben 
von Pascal-Programmen, als 
auch eine Einführung in diese 
Sprache mit Anregungen für 
weitere eigene Programment¬ 
wicklungen. »Pascal mit dem 
C 64« kann allen C 64-Besitzern 
empfohlen werden, die die 
Sprache »Pascal« erlernen 
möchten. 

(Christoph Bergmann/bj) 

Info: Florian Matthes, Pascal mit dem C64, 
MarklSTochnik Vertag, 215 Seilen, 
ISBN-3-89090-222-7, Preis: 52 Mark mit Pro¬ 
grammdiskette (Pascal-System) 
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Chedaummer 
V3 und MSE 

Diese beiden Programme sind unentbehrlich 
beim Abtippen unserer Listings. Sie helfen Tipp¬ 
fehler zu vermeiden und sparen eine Menge Zeit. 

N obody is perfect. Jeder Computer-Fan, egal ob blutiger 
Anfänger oder ausgefuchster Profi, macht beim Abtip¬ 
pen von Programmen Tippfehler. Diese Fehler später 
zu finden, kann ein langwieriges Unterfangen werden. 

Deshalb haben wir für Sie die Programme »Checksummer 
V3« und »MSE« (MaschinenSpracheEditor) entwickelt. Der 
Checksummer ist für Basic-Programme und der MSE für 
Maschinensprache-Listings zuständig. 

Der Checksummer 


Zuerst einmal müssen Sie das Checksummer-Programm 
(siehe Listing 1) abtippen. Dabei sollten Sie äußerst sorgfältig 
Vorgehen, vor allem bei den Zahlen in den DATA-Zeilen 20 bis 
30. Wenn Sie trotzdem noch einen Tippfehler gemacht 
haben, meldet sich das Programm später mit einem entspre¬ 
chenden Hinweis. Wenn Sie fertig sind, müssen Sie das Pro¬ 
gramm auf Diskette oder Kassette speichern. 

Jetzt geht es los: 

1. Starten Sie den Checksummer durch die Eingabe von 
»RUN« und dem Drücken der < RETURN >-Taste. 

2. Wenn die Meldung »Checksummer aktiviert...« auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler gemacht 
und der Checksummer ist nun eingeschaltet. 

3. Zum Löschen des Basic-Programms geben Sie bitte 
»NEW« ein. Keine Angst, der Checksummer selbst wird 
dadurch nicht gelöscht. 

4. Nun können wir den Checksummer testen. Geben Sie bitte 
folgende Zeile ein und drücken Sie die < RETURN >-Taste: 
1 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Prüfsumme über der eben eingegebenen Basic-Zeile. Sie 
muß <63> lauten. Dem Checksummer ist es übrigens egal, 
ob Sie »1 REM« oder »1REM« eintippen. Nur innerhalb von 
Anführungszeichen ist die richtige Anzahl an Leerzeichen 
wichtig. Diese Prüfsummen erscheinen (sofern Sie den 
Checksummer eingeschaltet haben) immer dann, wenn Sie 
eine Basic-Zeile eintippen und dann die < RETURN >-Taste 


drücken. In der 64’er finden Sie die Prüfsummen immer am 
Ende jeder Programmzeile. 

Diese Zahlen dürfen Sie NICHT mit abtippen. Sie dienen 
lediglich zur Kontrolle, ob Sie alles richtig eingegeben 
haben. 

Als Beispiel können Sie sich Bild 1 betrachten. Am rechten 
Rand jeder Spalte sehen Sie die Prüfsummen in eckigen 
Klammern. 

Damit sind wir beim zweiten wichtigen Punkt: Sehen Sie 
sich die Zeile 341 von Listing 2 genauer an. Nach dem ersten 
Anführungszeichen nach dem PRINT-Befehl sehen Sie ein 
Zeichen, das Sie auf der Tastatur des C 64 vergeblich suchen 
werden: die geschweifte Klammer [). Immer, wenn Sie in 
einem unserer Listings diese Klammern sehen, dürfen Sie 
das, was innerhalb der Klammern steht, nicht eintippen. Sie 
müssen die entsprechende Taste drücken. Beispiel: 

10 PRINT " jCLR)" 

bedeutet: Nach dem Anführungszeichen die »Bildschirm-Iö- 
schen«-Taste drücken (<SHIFT+CLR/HOME>). In Tabelle 
1 sehen Sie eine Zusammenfassung aller möglichen Steuer¬ 
tasten und dem entsprechenden Klartext. 

Weiterhin sehen Sie in Listing 2 (MSE) in Zeile 341 ein 
unterstrichenes »O« nach dem »P«. Das bedeutet, daß Sie ein 
»O« zusammen mit der <SHIFT>-Taste drücken müssen, 
also <SHIFT+0>. Wenn ein Zeichen »überstrichen« ist, 
müssen Sie dieses zusammen mit der < CBM > -Taste einge¬ 
ben. Die < CBM >-Taste befindet sich ganz links unten auf 
der Tastatur und hat die Aufschrift »C=«. Auf dem Bildschirm 
sehen Sie die entsprechenden Grafikzeichen (siehe Hand¬ 
buch, Seite 133). 

Der MSE 


Der McoE dient zur Eingabe von Maschinensprache-Program¬ 
men. Als erstes müssen Sie den sogenannten »MSE-Lader« 
(Listing 2) abtippen. Dieser erzeugt erst das eigentliche 
MSE-Programm auf Diskette oder Kassette. 

Wichtig: Vor dem Eintippen des MSE-Laders müssen Sie 
unbedingt ein paar Befehle eingeben (ohne Basic-Zeilen- 
nummer): POKE 44,32 : POKE 8192,0 : NEW 

Jetzt können Sie beginnen, das Listing 2 abzutippen. Der 
MSE-Lader erkennt zwar, wenn Sie beim Eintippen der DA¬ 
TA-Zeilen einen Fehler gemacht haben, aber wenn Sie ganz 
sicher gehen möchten, sollten Sie den Checksummer vor 
dem Eintippen aktivieren. Die Prüfsummen für den MSE- 
Lader finden Sie am Ende der jeweiligen Programmzeilen. 

Wenn Sie das Listing 2 nicht auf einmal abtippen möchten, 
müssen Sie vor jedem neuen Laden des Programms unbe¬ 
dingt die oben genannte POKE-Zeile eingeben! 

Datasetten-Besitzer müssen die »8« am Ende von Zeile 
343 in eine »1« ändern. 


CTRL stehl für Control-Taste, so bedeutet [CTRL+A], daß Sie die 

(CYAN| 

Control-Taste 8 4 

Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 

(PURPLE) 

Control-Taste 8 5 

|DOWN| 

Taste neben rechtem Shift, Cursor unten 

(GREEN) 

Control-Taste 8 6 

(UP| 

Shift-Taste & Taste neben rechtem Shift; Cursor hoch 

(BLUE) 

Control-Taste 8 7 

ICLRj 

Shift-Taste 8 2. Taste ganz rechts oben 

(YELLOW) 

Control-Taste 8 8 

|INST| 

Shift-Taste 8 Taste ganz rechts oben 

(RVSON) 

Control-Taste 8 9 

|HOME| 

2. Taste von ganz rechts oben 

[RVOFFI 

Control-Taste 8 0 

IDELi 

Taste ganz rechts oben 

[ORANGE) 

Commodore-Taste 8 1 

(RIGHT) 

Taste ganz rechts unten 

(BROWN) 

Commodore-Taste 8 2 

|LEFT| 

Shift-Taste 8 Taste unten rechts 

(LIG.RED) 

Commodore-Taste 8 3 

jsPACE| 

Leertaste 

(GREY 1 ) 

Commodore-Taste 8 4 

(SHFIT-Space) 

Shift-Taste 8 Leertaste 

(GREY 2) 

Commodore-Taste 8 5 

(Fl | bis |F8) 

Funktionstasten 

(LIG.GREEN) 

Commodore-Taste 8 6 

(RETURN) 

Shift-Taste 8 Return 

[LIG.BLUEj 

Commodore-Taste 8 7 

(BLACK) 

Control-Taste 8 1 

(GREY 3) 

Commodore-Taste 8 8 

(WHITE) 

(RED| 

Control-Taste 8 2 

Control-Taste 8 3 

Tabelle 1. Die Steuerbefehle in den Listings 
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Wenn Sie alles richtig gemacht haben und das Programm 
fehlerfrei abgetippt wurde, speichert es sich selbst auf Dis¬ 
kette oder Kassette unter dem Namen »MSE VI.0«. Dieses 
fertige MSE-Programm laden Sie dann bei Bedarf wie ein nor¬ 
males Basic-Programm und starten es mit »RUN«. 

So arbeitet man mit dem MSE 

Als erstes möchte der MSE den Namen des zu bearbeiten¬ 
den Programms wissen. Dieser steht in der ersten Zeile 
unserer MSE-Listings. Dann müssen Sie die Start- und End¬ 
adresse des Programms eingeben. Dies sind die letzten bei¬ 
den, vierstelligen Hexadezimalzahlen in der ersten Zeile 
unserer Listings. 

Wenn Sie ein Programm von Diskette oder Kassette laden 
wollen, um an einer bestimmten Stelle weiterzutippen oder 
noch eine Korrektur vorzunehmen, geben Sie auf die Frage 
nach der Startadresse ein »L« ein. Danach müssen Sie < D > 
oder <T> drücken, je nachdem, ob Sie von Diskette oder 
Kassette (»tape«) laden möchten. Wenn das Programm unter 
diesem Namen nicht auf der Diskette vorhanden ist, oder ein 
sonstiger Ladefehler vorlag, meldet sich der MSE mit »1/0- 
ERROR«. In so einem Fall drücken Sie <RUN/STOP+RE- 
STORE> und geben einfach noch einmal »RUN« ein. 

Beim Abtippen geben Sie nach und nach die abgedruckten 
Buchstaben und Zahlen des jeweiligen Listings ohne die Frei¬ 
räume dazwischen ein. Wenn Sie in einer Zeile einen Tippfeh¬ 
ler gemacht haben, meldet sich der MSE sofort mit einem 
Brummton und der Meldung »EINGABEFEHLER«. Nach 
einem Druck auf die < RETURN >-Taste können Sie mit der 
< DEL > -Taste den Fehler korrigieren. 

Wenn Sie das gewünschte Programm vollständig eingege¬ 
ben haben, speichert es der MSE automatisch auf Diskette 
oder Kassette. 

Bei längeren Listings ist es unwahrscheinlich, daß Sie das 
komplette Programm auf einmal eingeben. Sie können Ihre 
bisherige Tipparbeit jederzeit durch <CTRL+S> auf Dis¬ 
kette oder Kassette speichern und Ihr Werk später fortset¬ 
zen. Sie sollten sich dann allerdings im Heft markieren, wie 


10 PRINT''CHECKSUMMER FUER C 64" 

11 PRINT:PRINT"EINEN MOMENT, BITTE ..." 

12 F0R 1=828 TO 864=READ A:POKE I,A=PS=PS+ 

A:NEXT I 

13 IF PS05765 THEN PRINT "TIPPFEHLER IN DE 
N ZEILEN 20 BIS 22":END 

14 SYS 828:PS=0:FOR 1=58464 TO 58583:READ 
A:POKE I,A:PS=PS+A:NEXT I 

15 IF PS016147 THEN PRINT "TIPPFEHLER IN D 
EN ZEILEN 22 BIS 30":END 

16 POKE 1.53:POKE 42289,96:POKE 42290,228 

17 PRINT"CHECKSUMMER AKTIVIERT.” 

18 PRINT:PRINT" AUSSCHALTEN : POKE1.55 ODE 
R"SPC(27)"<RUN/STOP+RESTORE>" 

19 PRINT = PRINT" ANSCHALTEN : POKE1.53" 

20 DATA 169,0,133,254,162,1,189,93,3,133,2 
55,160,0,177,254 

21 DATA 145,254,136,208,249,230,255,165,25 
5,221,95,3,208,238,202 

22 DATA 16,230,96,160,224,192,0,160,2.169, 
0,170,133,254,177 

23 DATA 95,240,40,201,32,208,3,200.208.245 
.133,255,138,41,7 

24 DATA 170,240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165,255,24,101,254,133 
,254,76,111,228,192,4 

26 DATA 48.219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27 DATA 212,228,32,210,255,208,12,0,92,72, 
32,201,255,170,104 

28 DATA 144,1,138,96,202,16,228,166,254,16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 

30 DATA 76,128,164,9,60,18,19 
8 64’er 

Listing 1. Der »Checksummer 64 V3« für Basic-Listings 


5 PRINT CHR*<14> 
10 PRINT"{CLR>" 
20 PRINT" 


38 PRINT"{4D0WN,2SPACE>JEST{SPACE,BLUE,6SP 


ACE > " 

40 PRINT"SBSSSSyaOTSOTOTS2SOTTOis^ 

Bild 1. Die Bedeutung der Steuerzeichen 
wird im Text erklärt 


<242> 
<254> 
< 130> 

<822> 

<10B> 


Bild 1. In Zeile 10 müssen Sie nach den Anführungsstrichen 
die <SHIFT+CLR/HOME>-Taste drücken und nicht die 
Klammern mit dem Wort <CLR>. In Zeile 20 drücken Sie 
nach den Anführungsstrichen die Commodore-Taste und den 
Buchstaben <Q>, gefolgt von mehreren <SHIFT>- und 
Stern-Tasten und zum Schluß die Commodore-Taste und den 
Buchstaben <W>. In Zeile 30 ist es viermal die 
< CRSR > -unten-Taste, gefolgt von zweimaliger Leertaste, 
dann < SHIFT+T> und normal EST, zum Schluß noch einmal 
die Leertaste, die Farbtaste Blau < CTRL+7 > und sechsmal 
die Leertaste. Zeile 40 besteht lediglich aus mehreren Grafik¬ 
zeichen, die mit der Commodore-Taste und <B> erzeugt 
werden. 


weit Sie beim Abtippen gekommen sind! Später geben Sie 
dann nach dem Laden des ersten Programmteils 
< CTRL+N > ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie aufge¬ 
hört haben zu tippen. 

<CTRL+M> erlaubt Ihnen jederzeit, Ihr Werk listen zu 
lassen. Durch < SPACE > können Sie weiterlisten lassen 
und durch < RUN/STOP > das Listen abbrechen. 

Wenn Sie einen Drucker besitzen, können Sie das Pro¬ 
gramm c, ich mit <CTRL+P> ausdrucken. 

Mit <CTRL+L> wird das Programm noch einmal neu in 
Ihren C 64 geladen. 

(F. Lonczewski/N. Mann/D. Weineck/tr) 


100 REM **************************** <091> 

110 REM * , <159 > 

120 REM * MSE LADER * <206> 

130 REM * * <179> 

220 REM **************************** <211> 

230 REM <836> 

240 DIM H(75): FOR 1=0 TO 9 <113> 

250 H(48+I)=1: H(65+1)=I+10:NEXT <041> 

260 FOR 1=2048 TO 3755 : READ A* <198> 

270 H=ASC(LEFT*(A*,1)):L=ASC(RIGHT*(A*,1>> <199> 
280 D=H(H)*16+H(L):S=S+D:POKE I,D <219> 

290 A=A+1sIF A<20 THEN NEXT:A=-1 <141> 

300 PRINT “ ZEILE:1000+Z; <011> 

310 READ V :Z=Z+1:IF V=S THEN 330 <21B> 

320 PRINT"PRUEFSUMMENFEHLER !":STOP <13B> 

330 IF A<0 THEN 341 <221> 

340 S=0:A=0:PRINT:NEXT <046> 

341 PRINT"<CLR>Pfl43,1:Pfi44,8:Pfl45,172:Pfi46 

,14 <010> 

342 POKE 631,19:POKE 632,13:P0KE 633,13:P0 

KE 198,3 <"249> 

343 PRINT"<3D0WN>SAVE"CHR*(34)"MSE V1.0"CH 

R*(34)",B <171> 

344 END <092> 

1000 DATA 00,0B,08,0A,00,9E,32,30,36,31,00 

,00,00,A2,08,A9,36,85,A4,A9, 1247 <119> 

1001 DATA 08,85,A5,A9,00,85,A6,A9,B0,85,A7 

,A0,00,B1,A4,91,A6,C8,D0,F9, 2888 <054> 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 

,4C,00,B0,20,D1,B1,A9,06,8D, 2787 <144> 

1003 DATA 21,D0,A9,03,8D,20,D0,8D,86,02,A0 

,B3,A9,74,20,FF,B1,A0,B3,A9, 2667 <237> 

1004 DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01 

,02,C8,C9,0D,D0,F5,88,F0,D2, 2912 <217> 
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1005 DATA C0,0F,90,02,A0,0E,8C,00,02,20,EA 

,B1,A0,B3,A9,CF,20,FF,B1,20, 2323 <013> 

1006 DATA 8E,B4,85,FC,B5,62,20,8E,B4,85,FB 

,85,61,20,A7,B4,D0,20,A0,B3, 2864 <199> 

1007 DATA A9,E5,20,FF,B1,20,8E,B4,85,60,20 

,8E,B4,85,5F,20,A7,B4,D0,0A, 2624 <091> 

1008 DATA A5,61,C5,5F,A5,62,£5,60,90,06,20 

,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 <167> 

1009 DATA 91 ,FB,E6,FB,D0,02,E6,FC,20,3F,B2 

,90,EF,4C,FB,B4,A2,02,86,58, 3118 <152> 

1010 DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,08, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0 

,0F,4C,0B,B1,20,D2,FF,A6,58, 2322 <121> 

1012 DATA 95,F7,C6,58,D0,D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 <057> 

1013 DATA 13,D0,03,4C,BB,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,68,B5, 2282 <225> 

1014 DATA C9,0E, D0,06,20,5F , B4,4C , 64 , B l , 4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

1015 DATA 0A,0A,B5,F9,A5,F8,20,02,B1,05,F9 

,60,C9,3A,90,02,69,08,29,0F, 1950 <092> 

1016 DATA 60,A6,59,E0,08,90,1F,A6,58,E0,02 

,B0,06,20,D2,FF,4C,8E,B0,C6, 2509 <188> 

1017 DATA 59 , A0,14, A9,92,20 , F2 , B1, CA , D0 , FA 

,84,57,68,68,4C,8B,B1,A6,D3, 2891 <197> 

1018 DATA E0,08 , B0,03,4C, 92 , B0,20, D2 , FF , A6 

,58,E0,02,90,09,C6,59,20,D2, 2468 <049> 

1019 DATA FF,C6,58,D0,F9,4C,8E,B0,48,4A,4A 

,4A,4A,20,59,Bl,68,29,0F,C9, 2419 <035> 

1020 DATA 0A , 90,02,69,06,69,30,4C , D2 , FF , A2 

,FC,9A,20,D1,B1,20,48,B2,20, 2261 <073> 

1021 DATA EA,B1,20,9F,B2,A5,FC,20,4E,B1,A5 

,FB,20,4E,B1,20,ED,Bl,A9,3A, 2B60 <14B> 

1022 DATA A0,20,20 , F2 , B1 ,■ A9,00,85,59,20,8E 

,B0,20,ED,Bl,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91 ,FB,C8,84,59,C0,08,90,EC,20,10 

,B2,A9,12,20,D2,FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14,20,F2,B1,4C,A2,B1, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2,90,9F,4C,8B,B5,A9, 2648 <123> 

1026 DATA 93,20 , D2 , FF , A2,00 , A9,03,9D , 00, D8 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

1027 DATA E8 , D0 , EF , 60, A9,0D , 2C , A9,20,4C , D2 

,FF,20,D2,FF,98,4C,D2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00 

,B1,5C,F0,06,20,D2,FF,C8,D0, 3100 <077> 

1029 DATA F6,60 , A5 , FB , 85,5A, A0,00,84,5B , B1 

,FB,18,65,5A,85,5A,90,02,E6, 2606 <156> 

1030 DATA 5B,06,5A,26,5B, C8 ,C0,08,90,EC,A5 

,5A,65,5B,85,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <183> 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20 

,D2,FF,CC,00,02,C8,90,F4,A9, 2692 <098> 

1033 DATA 10,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,B1,A5,61,20,4E, 2453 <236> 

1034 DATA Bl,20,ED,B1 ,A5,60,20,4E,B1 , A5,5F 

,20,4E,B1,A9,9F,20,D2,FF,20, 2575 <038> 

1035 DATA EA,Bl ,24,5E,10,01 ,60, A9,12,20,D2 

,FF,A2,28,20,ED,B1,CA,D0,FA, 2646 <161> 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01 

,60,A9,A0,85,A4,A9,78,85,A6, 2945 <204> 

1037 DATA A9,04,85,A5,85,A7,A2,13,A0,27,B1 

,A4,91,A6,88,10,F9,CA,F0,19, 2671 <208> 

1038 DATA 18,A5,A4,69,28,85,A4,90,02,E6,A5 

,18,A5,A6,69,28,85,A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,18,D4,A9,00,8D,05,D4, 2776 <000> 

1040 DATA A9,F7,8D,06,D4,A9,11,8D,04,D4,A9 

,32,8D,01,D4,A9,00,8D,00,D4, 2413 <126> 

1041 DATA A0,80,20,09,B3,A9,10,8D,04,04,60 

,A2,FF,CA,D0,FD,88,D0,FB,60, 2914 <240> 

1042 DATA A9,0F,8D, 18,D4,A9,2D,8D,05,D4,A9 

,A5,8D,06,D4,A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D,01,D4,A9,05,8D,00,D4,A0 

,FF,20,09,B3,A9,20,8D,04,D4, 2250 <078> 

1044 DATA A9,00,8D,01,D4,8D,00,D4,60,38,20 

,F0,FF,BA,48,98,48,18,A0,06, 2179 <175> 

1045 DATA A2,18,20,F0,FF,A0,B4,A9,0A,20,FF 

,Bl,20,12,B3,20,E4,FF,F0,FB, 2931 <093> 

1046 DATA A2,1D,A9,14,20,D2,FF,CA,D0,FA,68 

,A8,68,AA,18,4C,F0,FF,0D,0D, 2704 <0B8> 


1047 DATA 0D,20,20,20,20,20,20,20,4D,41,53 

,43,48,49,4E,45,4E,53,50,52, 1144 <216> 

1048 DATA 41,43,48,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,0D,20,20,20,20, 1023 <038> 

1049 DATA 20,20,20,20,56,4F,4E,20,4E,2E,4D 

,41,4E,4E,20,26,20,44,2E,57, 1128 <206> 

1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20 

,20,20,50,52,4F,47,52,41,4D, 1102 <117> 

1051 DATA 4D,4E,41,4D,45,20,3A,20,00,0D,0D 

,20,20,20,53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41^ 1014 <129> 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20 

,24,00,92,05,20,50,52,4F,47, 1171 <217> 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20 

,2A,2A,2A,20,46,41,4C,53,43, 1024 <027> 

1055 DATA 48,45,20,45,49,4E,47,41 ,42,45,20 

,2A,2A,2A,20,20,92,00,0D,0D, 1058 <098> 

1056 DATA 2A, 2A, 2A, 20,45,4E , 44,45,20,2A, 2A 

,2A,00,13,05,20,20,12,44,92, 920 <148> 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54 

,92,41,50,45,0D,00,13,20,20, 1151 <035> 

1058 DATA 49,2F, 4F, 20,2D , 20,46,45,48,4C, 45 

,52,00,20,Dl,B1,20,48,B2,A0, 1606 <012> 

1059 DATA B3,A9,CF,20,FF,Bl,20,8E,B4,85,FC 

,20,SE,B4,85,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20, A7 , B4, F0,0C , 85, F9,20, A7 , B4 , F0 

,05,85,F8,4C,EF,B0,68,68,20, 2749 <088> 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D0 

,09,20,Dl,B1,20,48,B2,4C,0B, 2372 <046> 

1063 DATA B6,C9,0D,60,A9,00,85,5E,20,5F,B4 

,20,EA,B1,20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0,FB,20,E1,FF,F0,26 

,20,9F,B2,24,5E,10,09,20,4E, 2435 <198> 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20, 2190 <207> 

1066 DATA FF,B1,20,E4,FF,C9,0D,D0,F9,A9,00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

10o7 DATA FC , 20, E0, B2,4C , 64, B1 , A5 , FC , 20,4E 

,B1,A5,FB,85,FF,20,4E,B1,A9, 3003 <221> 

1068 DATA 20 , A0,3A , 20 , F2, B1 , A0,00,20 , ED , B1 

,B1,FB,20,4E,B1,C8,C0,08,90, 2566 <070> 

1069 DATA F3,20,ED,B1,24,5E,30,03,A9,12,2C 

,A9,20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DATA FF,20,4E,B1,A9,92,20,D2,FF,4C,EA 

,B1,A9,FF,85,BB,85,B9,A9,04, 3073 <029> 

1071 DATA 85,BA,20,C0,FF,A2,FF,4C,C9,FF,20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <189> 

1072 DATA B4,A9,80,85,5E,20,4E,B5,20,48,B2 

,A2,24,A9,2D,20,D2,FF,CA,D0, 2596 <111> 

1073 DATA FA,20,EA,B1,20,EA,B1,20,60,B5,4C 

,C1,B4,20,B8,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9,61,20,DB,FF,B0,0A,20,B7,FF,29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3,FF,20,68,B6,A0,B4,A9,4F,20,FF 

,B1,20,F9,B1,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1 

,A2,0B,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54,D0,F1,A9,01,A8,20,BA,FF,A0,00 

,E0,01,F0,1A,A9,40,8D,20,02, 2403 <101> 

1078 DATA A9,3A, 8D , 21,02, B9,01 , 02,99,22,02 

,C8,CC,00,02,90,F4,C8,C8,D0, 2182 <127> 

1079 DATA 0C,B9,01,02,99,20,02,CB,CC,00,02 

,D0,F4,98,A2,20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF,20,B8,B5,A5,BA,C9,08,90,33,A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1081 DATA 60,85 , B9,20, C0 , FF , B0,28, A5 , BA , 20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61,A5,90,4A,4A,B0,13,20,A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5 

,86,5F,84,60,A5,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A,AD,3D,03,85,61,AD,3E,03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20,ED,Bl,CA,D0,FA,60, 1230 <214> 
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Sdtnelle Fill-Routine in 
Mosdiinenspradie 


Maschinensprache lernt man am besten an Hand 
von Beispielen. In Form eines dokumentierten 
Quellcodes erklären wir Ihnen die Fill-Routine 
aus dem Programm »HiRes-Master«, Sonderheft 
11/86, bei dem es sich um eine der schnellsten 
Grafik-Erweiterungen für den C64 handelt. 

G ut dokumentierte Assemblerlistings erleichtern den 
Einstieg in die Maschinensprache erheblich. Was nutzt 
es dem Anfänger, wenn er zwar alle 6510-Maschinen- 
befehle kennt, aber nicht weiß, wie sie anzuwenden sind? 
Nichts! Erst durch Assemblerlistings wird das Zusammen¬ 
spiel der einzelnen Maschinenbefehle klar und deutlich. 
Plötzlich versteht man, wie 16-Bit-Additionen oder -Sub¬ 
traktionen funktionieren. Man lernt, in Maschinensprache mit 
Multiplikationen und Divisionen umzugehen und vieles mehr. 

Bevor Sie sich jetzt mit dem Listing beschäftigen, schauen 
Sie sich zunächst die Flußdiagramme (Bild 1) zum Fill-Befehl 
an. Dadurch bekommen Sie einen Überblick über das Pro¬ 
gramm und verstehen, um was es überhaupt geht. 

Die Flußdiagramme 


Nachdem das Programm (Listing 1) mit einem Assembler in 
Maschinencode übersetzt beziehungsweise das MSE, 
Listing (Listing 2) abgetippt und gespeichert wurde, läßt es 
sich mit SYS 7*4096,x,y starten. Die Parameter »x« (0 bis 
319) und »y« (0 bis 199) geben den Startpunkt an, ab dem 
die Fläche gefüllt werden soll. Falls der Koordinatenpunkt 
»x,y« schon gesetzt ist, gilt die Fläche als bereits gefüllt. 

An einem Beispiel soll Ihnen der Algorithmus erklärt wer¬ 
den: 

Nehmen wir an, wir haben auf dem Bildschirm eine horizon¬ 
tale Linie mit den Anfangs- und Endkoordinaten Xa=40, 
Ya=100 und Xe=280, Ye=100 (Bild 2). Nun rufen wir die 
Fill-Routine mit SYS 7 * 4096,150,50 auf. Zunächst überprüft 
das Programm, ob der Punkt an den Koordinaten X=150 und 
Y= 50 gesetzt ist oder nicht. Ist er gesetzt, gilt die Fläche als 
bereits gefüllt und das Programm wird beendet. In unserem 
Fall ist der Punkt aber nicht gesetzt. Jetzt werden nacheinan¬ 
der folgende Schritte abgearbeitet. Dabei entspricht der Aus¬ 
druck »Plotkoordinate« dem Punkt, der gesetzt werden soll: 

Schritt 1. Die Y-Koordinate wird solange erniedrigt, bis an 
der Plotkoordinate X,Y (in unserem Beispiel 150,Y) entweder 
ein Punkt gesetzt oder der obere Bildschirmrand erreicht ist 
(in unserem Fall wird der obere Bildschirmrand bei der Plot¬ 
koordinate X=150,Y=0 erreicht). 

Schritt 2. Der Punkt mit der Plotkoordinate X,Y wird 
gesetzt. 

Schritt 3. Die Koordinatenpunkte X-1.Y und X+1,Y (hier 
149,0 und 151,0) werden überprüft. Ist einer der überprüften 
Punkte gesetzt, passiert nichts. Ist er nicht gesetzt, merkt 
sich das Programm diesen Punkt in zwei Feldern X, Y mit dem 
Feldzeiger »P«, der beim Start der Fill-Routine auf 0 gesetzt 
wurde <X(P)=X+/-1, Y(P)=Y>. (Da in unserem Fall weder 
der linke noch der rechte Punkt gesetzt ist, merkt sich das 
Programm beide (X(0) = 149, Y(0)=0; X(1) = 151, Y(1)=0). 

Schritt 4. Die Fags »FL« oder »FR« werden dann auf 1 
gesetzt, wenn in Schritt 3 ein getesteter, linker oder rechter 


Punkt ins Feld eingetragen wurde. <Wird FL auf 1 gesetzt, 
darf sich das Programm keine weiteren linken Punkte mer¬ 
ken. Ist FL=0, ist das Merken linker Punkte erlaubt. Das glei¬ 
che gilt bei FR für die rechten Punkte. 

Schritt 5. Ohne sich linke oder rechte Punkte zu merken, 
werden entlang der aktuellen Y-Achse (bei X=150) solange 
Punkte untereinander gesetzt, bis ein Punkt an der Plotkoor¬ 
dinate gesetzt ist (X=150, Y=100). 

Schritt 6. Die Plotkoordinaten werden neu gesetzt: 
X=X(1), Y=Y(1) (151, 0) und der Feldzeiger P wird um 1 
erniedrigt. Außerdem setzt das Programm beide Flags wie¬ 
der auf 0 und läßt damit das Beschreiben des Feldes wieder 
zu. 

(Anmerkung: Ab diesem Durchlauf wird immer nur der 
Punkt X+1,0 ins Feld übernommen, weil der Punkt X-1 schon 
gesetzt ist.) 


Eine Fläche wird gefüllt 


Die Schritte 1 bis 6 wiederholen sich solange, bis die rechte 
Fläche (ab der Anfangskoordinaten X=150) über der hori¬ 
zontalen Linie gefüllt ist. Dabei sind alle Ausdrücke in runden 
Klammern zu überlesen, denn sie sollten Ihnen nur die ersten 
Programmschritte näher erläutern. 

Ist pu* besagte Fläche ausgefüllt, steht in der Variablen X 
der Wert 281 und in Y der Wert 0. Im Feld sind zwei Koordina¬ 
ten gespeichert (X(0)=149,Y(0)=0; X(1)=282,Y(1)=0) und 
der Feldzeiger steht auf 1. 

Der Punkt an der Plotkoordinate wird gesetzt. 

Im nächsten Durchlauf (X=281,Y=1) setzt das Programm 
FR auf 1 (Merken rechter Punkte ist untersagt) und FL bleibt 
0 (Merken linker Punkte ist erlaubt, werden aber nicht ins Feld 
übernommen, weil linke Punkte schon gesetzt sind). 

Es werden jetzt an der Y-Achse bei X=281 solange Punkte 
untereinander gesetzt, bis bei X-1 ein freier Punkt gefunden 
wird (X-1=280, Y=101). Diese Koordinate wird ins Feld 
übernommen, der Feldzeiger wird um 1 erhöht und das Mer¬ 
ken linker Punkte wird untersagt. 


100 



40 150 280 


Bild 2. Am Beispiel dieses Bildes wird die Fill-Routine erklärt. 
Versuchen Sie deshalb, jeden im Text erwähnten Programm¬ 
schritt an diesem Bild nachzuvollziehen. 
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Bild 1. Flußdiagramme zur »Fill-Routine« 


Das Programm setzt das Füllen der Y-Achse bei X=281 
fort, bis der untere Bildschirmrand erreicht ist. 

Nun werden die Plotkoordinaten wieder neu gesetzt 
X=X(3), Y=Y(3) (280, 101), der Feldzeiger um 1 erniedrigt 
und die beiden Flags FL und FR auf 0 gesetzt (Merken rech¬ 
ter und linker Punkte ist wieder erlaubt). 

Die Punkte 1 bis 6 wiederholen sich solange, bis die 
gesamte Fläche unter der horizontalen Linie gefüllt ist. 

Es werden dann nacheinander folgende Flächen gefüllt: 
linke Fläche über der Linie bis Anfangskoordinate X=150 
linke Bildschirmfläche 
rechte Bildschirmfläche 

Der Bildschirm wird gefüllt 


Weil sich nach dem Füllen der rechten Bildschimfläche keine 
Koordinate mehr im Feld befindet, der Feldzeiger P also den 


Wert 0 enthält, wird das Programm beendet. 

Sie werden sich fragen, warum diese Fill-Routine extrem 
schnell ist. Nun, das Programm merkt sich beim Füllen immer 
die Punkte, ab denen die nächsten Flächen bearbeitet wer¬ 
den. Dabei wird automatisch festgestellt, ob nun von rechts 
nach links oder von links nach rechts aufgefüllt werden soll. 

Mit dieser Beschreibung dürfte es nicht mehr schwer sein, 
eine eigene Fill-Routine für unterschiedliche Anwendungen, 
zum Beispiel für Blockgrafik zu realisieren. 

Um die Geschwindigkeit der Fill-Routine zu testen, tippen 
Sie Listing 3 ab oder laden es von Kassette oder Diskette. 
Gestartet wird es mit RUN. In den ersten zwei Zeilen werden 
die Adressen der Grafikzeilenanfänge ermittelt und gespei¬ 
chert. Die Low-Bytes stehen anschließend ab 32256 und die 
entsprechenden High-Bytes ab 32512. Die restlichen Basic- 
Zeilen dürften sich selbst erklären. 
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Ergänzen C/L^flK 

lAtTt ihm CI 


Sie jetzt Ihre 


-Sammlung 


Schaffen Sie sich ein interessantes Nachschlagewerk und gleichzeitig ein 
wertvolles Archiv! 

Kennen Sie alle Ausgaben von 64’er? Suchen Sie einen ganz bestimmten Testbericht? Oder haben Sie einen Tteil 
eines interessanten Kurses versäumt? Suchen Sie nach einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen Seiten eine 
Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 12/85. 


Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe in Ihrer Sammlung 
noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer dieser Ausgabe und das Erscheinungs¬ 
jahr (z.R 2/85) auf dem Bestellabschnitt der hier eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte ein¬ 
fach heraustrennen und Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs¬ 
eingang umgehend zur Auslieferung gebracht. 
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11/65 


Hypra-Platac (UM) 

50 

11/85 


Der Chemio*A»latent (AdM) 

52 

12/85 


SMON Tbil 3 Ohno gutes Works gehl es nicht 

ÜB 

01 /B5 


HypraAssOdM) 

51 

07/85 


Neuen vom SMON (. Fehlertoufol 11/85) 

B7 

10/85 


Rouviembloi xu Hypra-Aa* (. rehleitoufol 12/85) 

97 

11/85 


Erganxungon eu Hypr.t Aue (bodingio Verzweigungen) 06 

11/85 


Tips & Tncks cum 5MON (mklusivo Diskmonitor) 

100 

12/85 

Bildichlrm- 

Auflösung Wcttbownib Bildschirm»© Ito 

I5B 

09/85 

noito 

Drei Top-Programme 



dfO 

Terminal Programm dor 5piuenklanDo 
(4-Fehlertoufol 10/85) 

149 

07/85 

Datei 

SMU - Der Maskcngoneraioi (UM) 

50 

12/85 

Drucker 

Hl-Eddl-Druckonoutlncn 

69 

M/85 


C 04 Schreiborlmg - Drucken wie gemalt 

54 

10/85 


Xoalablldcr Farbhardcopy auf Epson JX-flO 

39 

11/85 

Etnxoilor 

Die nächsten 14 aus d. Einr.uilonvottbrwerb 

157 

01/85 

Floppy 

Hypra-Load mal 4 (-.Fohlertoufoi 3/85) 

83 

01/85 


DiskettenmonitoT 

Kl 

C8/85 


Dük-Denigner 

70 

09/85 


Herzoperation (Hypra-Load • Hypra-Ass . DOS51 ♦ 
Centronics) 

104 

11/85 

Grafik 

Vior Pseudo-VICs mH 32 Spntcs 

76 

01/85 


Hl-Eddi Zeichen- und MaJptoggramm (UM) 

50 

01/85 


Mini-Grafik VC 20. Grafikhilfc 

69 

05/85 


Trickfilm mit dom C 64 Bowo-gto 3D-Ciaßk (UM) 
(♦Fehleneufel 6/05) 

51 

05/83 


Xiirvonplottcn nut Hardcopy auf dem C 16 

C8 

06/85 


Doppoltc Grafikauflösung für C IM 

33 

11/85 


Bilder aus einer anderen Dimension (Ap(elmaiuichen) 80 

11/85 

lntolbgons 

V1C — das lnieUigcnie Programm 
(Wettbewerbssieger) 

173 

05/85 

Musik 

Sound Machino (• FOhloncufol 10/85) 

23 

09/85 

. 

aound Master (Banc-Erwoitoxung) 

31 

09/B5 

Spiele 

6510 — Die Suche nach dor Proxcssor 

70 

05/85 


Samurai (Strategieiipiel) 

72 

06/85 


Schach do m C 64:5c hachprogramm tum Abuppcn 

72 

08/85 


Zeichens« txscrolling (UM) 

76 

10/85 


Block Out 

64 

U/85 


See kn cg per Telefon (Schiffe vereenkon per Modom) 

62 

12/85 

Spielehilfe 

Dio Scroll-Maschme — D Fenster rur Spielewelt 
<LdM)(* Fehlen. 11/E5) 

52 

06/85 

Sprachen 

Tny Forth Compiler (LdM)( . Fohlcrt 9/85) 

51 

06/85 

TtxiYorarboi- 

Hypra-Toxt (UM) (+ Fehlencufel 11/85) 

50 

10/85 

tung 

Drucksache - Hypra-Text. Teil 2 

71 

11/85 

Tips & Tncks 

CioBe Buchstaben 

09 

01/85 


Rostoro flu Unterprogramme 

90 

01/85 

Tips & Tricks 

Paramctembctgabo an Maschmenspracheprogiammo 86 

01/85 


Cutsorotouerung loicht gomacht 

86 

02/85 


22 Road Enor — Theorie und Praxis 

41 

03/85 


Floppy-Iaster (♦ Fehleneufel 4/B5) 

82 

03/85 


Longscrcon beim VC 20 

83 

05/85 


C IG Help und Tracc verbessert 

84 

05/85 


Ordnung ist dos halbe Üben (Dircctory-Soncr) 

77 

05/85 


Dokumontationshilfe. Cioaa-Refeienx-Liote C 64 
(Wettbewerb) 

155 

06/85 


Prost mit dom C 64* Coiatosteucrung ilbex 

Userpon (♦ Fehlerteufel 9/B5) 

76 

06/85 


Fenster Bolehlo lux don C 16 

04 

07/85 


Elektronische Merkzettel 

83 

07/85 


Filo-Campactor 

82 

07/85 


REM-Küler (. rehloncufol 9/AS) 

75 

07/85 


Busic-Shui-Ccnerator 

74 

07/85 


Komfortable Ein /Auogaberouüno 

77 

07/65 


Bud.tcI\irmma3kon leicht eratoUt 

B6 

06/85 


Der Bumap-Compandor (HiRos-Büdnr kompnnuoron) 

81 

00/85 


Hypra-Save 

79 

0B/B5 


Proceduro - oder der C 6*1 kann lernen 

7B 

0B/83 


Aufgewmknlt - LutingacioUing fUr VC 20 

03 

00/85 



86 

10/85 


Crooa-Ref optimlon 

B3 

10/85 


'Dpp-Uüllty 

99 

12/83 


Der EPROM-Autonut (wio man Module macht) 

90 

12/83 


80 Zeichen-Grafik filr den C 128 

7R 

12/83 


Hypor Scroon (Spntoa auf dom Bildochirmrand) 

76 

12/85 

Tinnufer 

Dor C 64 als PET PETSimulaior 

37 

01/83 

Unter¬ 

programme 

Formatiert© Eingabe 

156 

01/83 


Software-Tests 



Assembler 

Assembler im Tost Tbil I 

34 

01/88 

Basic- 

OBaaic - Alles dnn 

28 

01/88 

Erweiterung 

Mocro*Basic Dio Unieiprogramm-Bibliotliok 

137 

06/85 


Dorfe* etwas mehl so in’ - Tbst Builnesn-Basic 

120 

08/BS 


Das Intellectool 

138 

09/85 


Formol 64: Das Mulutslent 

188 

12/83 

DFÜ 

Tbrminalprogramme. Übersicht 

42 

06/85 

Datei 

Vorgleichilesi - 7 Dateivrrwaltungcn auf otnon Blick 110 

07/85 


Aufgeräumt mit Mainfilo U 

187 

10/85 

Grafik 

Malen aut dom Bildschirm (Malprogramme) 

34 

08/88 


Grafikprogramme auf einen Blick Marktube nicht 

38 

08/85 


Vorgloichstost: Craflk-Eiweiterungon 

37 

09/85 

Leinen 

Softleammg - die welche Walle den Lernens 

40 

01/85 


Vokabeltraining mit dem Computer 

39 

03/RS 


Marktube nicht: Lernsoftware 

168 

10/85 

Musik 

Musik fUr den C 64: Übersicht Musikaoftwaro 

26 

09/05 


The Music System — Zwoi auf einen Schlag 

164 

12/HS 

Sprachon 

Logo - die Sprache für Elnsieigor 

I3S 

06/38 


Der Ada Trauungskure auf dem C 64 

129 

05/85 


Promal - dio neue Sprache für Profis? 

124 

07/B5 


Forth-wftrts mit M&TFonh 84 

126 

07/B5 


Was leistet Pilot’ 

121 

0B/B5 


Pascal ftlr Profis (Profi-Pancal) 

122 

08/B5 


Sapor-Forth 64 

144 

09/B5 


C — die profeaSonello Programmienipracho für 

14Ö 

09/85 


den C 64 

Bane 7 0 - Du Supeibasic des C 128 

16 

10/85 


Comal 80 — die universollo Programnucreprache 

151 

I0/8S 


Turbo-Pascal auf dem C 128 

30 

11/85 


Die Ausgaben 
2/85 und 4/85 
sind bereits vergriffen 
und nicht mehr lieferbar! 


Am besten gleich 
mitbestellen: 

Die praktischen 
64'ei^Sammelboxen 



Ein 

kompletter 
Jahrgang 
(12 Ausgaben) 
paßt in eine der praktischen 
Sammelboxen! 

Am besten gleich 
mitbestellen! 


Für alle Leser, die »64’er« regel¬ 
mäßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Ser¬ 
vice-Angebot: die 64’er-Sam- 
melbox! 


Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attraktives Nach¬ 
schlagewerk. 

Übrigens: Die Sammelbox ist 
nicht nur ein praktisches Aufbe¬ 
wahrungsmittel: Sie eignet sich 
auch hervorragend als Ge¬ 
schenk für Freunde und Be¬ 
kannte zu vielen Anlässen. 


Auch die bisher 
erschienenen Sonderhefte 
können Sie 
jetzt direkt bestellen: 


SONDERHEFT 01/M: TINS C TRICKS 

Unentbehrliche Anwendungslistings für C 64 und 

SONDERHEFT 02/85: ABEHTTUERSPIELE 1 

Fesselnde Adventures mit zahlreichen Lösungen und 
einem Programmierers. 

SONDERHEFT 03/15: SPIELE 

Heiße Listings für Spiele-Fans und eine große 
Marktübersicht. 


SONDERHEFT 04/RS: GRAFIK ( DRUCKER 

Von der 3D-Darstellung bis zur Hardcopy-Routine. 

SONDERHEFT 05/SS: FLOPFT/DATASETTE 

Soft-Tbols zum komfortablen und noch schnelleren 
Betrieb von Floppy und Datasette. _ 

SONDERHEFT 06/S5: AUSGEWÄHITE SUPER-USTINGS 

Top-Themen aus 64'er bringt eine Auswahl der besten 
64'er Programme. 

SONDERHEFT 07/S5: ANWEHDUNGEN/DFU 

leistungsfähige Programme für professionelle 
Anwendungen und Datenfernübertragung. 

SONDERHEFT 08/85: ASSEMBLER 

Assembler-Know-how für Anfänger und Fort¬ 
geschrittene. 

SONDERHEFT 01/86: PC 128 

Komplette Beschreibungen von C 128 und C 128D 
und passendem Zubehör. Die Unterschiede zum C 64. 


SONDERHEFT 02/86: TIPS 8 TRICKS 

Super-Listings. ausführliche Grundlagen und die 
besten Tips&Tricks und Einzeller au s 64'er. 

SONDERHEFT 03/86: C16, C116, VC20 UND PIUS 4 

Umfassende Grundlagen und aktuelle Informationen 
zu C16. C116, VC 20 und Plus 4. _ 

SONDERHEFT 04/86: ABENTEUERSPIEIE 2 

Auf 160 Seiten alles über das Programmieren von 
Abenteuerspielen und Super-Listings zum Abtippen. 

SONDERHEFT 05/86: C64-GRUHDW1SSEH 

Für alle Einsteiger umfassende Grundlagen und Hilfe¬ 
stellungen rund um den C64. 

SONDERHEFT 06/86: GRAFIK 

GraFikprogrammierung des C64, C128 und C128 im 
C64-Modus. Dreidimensional konstruieren mit 
j» Giga-CAD«. 

SONDERHEFT 07/86: PEEKl UND POKE« 

Einführungskurs in die wichtigsten Speicherstellen für 
C64, C16 und C128. Über30Seiten Tips&Tricks. 

SONDERHEFT 08/86: PUIS/4 UND C16 

Ausführliche Kurse für schnelle Programme auf C16 und 
Plus/4 in Maschinensprache und Basic mit Grafik¬ 
befehlen. 


SONDERHEFT 09: FlOPPT 8 DATEIVERWALTUNG 

Die effiziente Datenverwaltung für Einsteiger und Profis. 

SONDERHEFT 10/86: C 128 II 

Entscheidendes Know-how für Anränger und Fortge¬ 
schrittene auf ihrem Weg zum Profi. 

SONDERHEFT 11/86: 

Grafik, Musik, Anwendung. Faszinierende Gestaltungs¬ 
möglichkeiten mit Grafik- und Musikprogrammen. 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 08/85) auf dem Bestellab¬ 
schnitt der hier eingehefteten Bestell-Zahlkar- 
te ein. 




















































TIPS & TRICKS 


C64 


8: 


•opt p 2 


9: 


# = 

$7000 


10: 

ptrl 

* 

$f7 


11: 

ptr 2 

3 

$f9 


12: 

ptr3 

— 

$fb 


13: 

stoO 

X 

$fd 


14: 

stol 

3 

$fe 


15: 

sto2 

3 

$ff 


16: 

xk 

3 

$55 


17:' 

yk 

3 

$02 


18: 


3 

$03 


19: 

msk 

3 

$04 


20: 

ohkcom 

3 

$aefd 


21: 

getcor 

3 

$b7eb 


22: 

< »»im*************************** 

23: 

t ** 



* 

24: 

>”» byte-palnt entwickelt am * 

25: 

J "* 



# 

26: 

;"* 25.5.86 von jesko 

schwarzer # 

27: 

> 



* 

28: 

;"* fuer hires-master. * 

29: 

; 



* 

30: 

; % tel 

: 02234/62542 

# 

31: 

• " 
f # 



* 

32: 

» ******************************* 

100C 

paint 

jsr 

gxyk 

jholt anfangskoordinaten 

101C 


ldy 

#$00 


102C 


ldx 

#$40 

janfangsadresse(iib) des 

102 ; 




;Zeichenspeichers 

103C 


lda 

#$80 

;hb der 2. page ($8000) 

104C 


sty 

ptrl 


105C 


sty 

ptr2 


106C 


stx 

ptrl +1 

646R 

107C 


sta 

ptr 2 +l 


108C 


ldx 

#$20 

;grafikseite nach $8000 kopier 

109C 

pio 

lda 

(ptrl),j 


110C 


sta 

(Ptr2),j 


U10 


iny 



1120 


bne 

plO 


1130 


inc 

ptrl +1 


1140 


inc 

ptr2+l 


1150 


dex 



1160 


bne 

plO 


1170 

i 




1180 


sty 

stoO 

;Stapelzeiger fuer gemerkte 

1185 




;punkte auf 0 

1190 


jsr 

padr 2 

;adresse 1 . punkt 

1200 


and 

(ptrl),y 

; "punkt gesetzt ? 

1210 


beq 

pll 

;neln, dann weiter 

1220 


rts 


;ja, dann ende 

1230 

i 




1240 

P ii 

sty 

stol 

;merkflag links und 

1250 

f 


sty sto 2 ; rechts zuruecksetzen 

1260 

} 




1270 

pl2 

lda 

yk 

;oberer rand erreicht 

1280 


beq 

P13 

»Ja 

1290 


Jsr 

dyk 

»nein, dann schritt nach oben 

1300 


lda 

(ptrl),y 

;"punkt gesetzt ? 

1310 


and 

msk 


1320 


beq 

pl2 

jnein, dann anfang schleife 

1330 


jsr 

iyk 

;auf Position unter ges. punkt 

1340 

i 




1350 


jsr 

padr2 

adresse des punktes und maske 

1355 




berechnen 

1360 


lda 

(ptrl),y 

j"ganzes byte leer ? 

Listing 1. Quellcode 

zur »Fill-Routine« 


1370: 

beq 

pl4 

;ja, > > pl4 

1380: 

1390- : 

Jrap 

pl24 

;zu 'bitweise fuellen 1 springen 

1400: pl4 

lda 

#$ff 

;ganzes byte(8 punkte) 

1410: 

sta 

(ptrl) 

y ;in $8000 graflk setzen 

1420: 

lda 

yk 

;position in der muster-maske 

1430: 

and 

#$0f 

;berechnen( 16*16 bits) 

1440: 

sta 

ptr 2 

;(2 reihen mit je 16 bytes) 

1450: 

lda 

xk 


1460: 

and 

#$08 


1470: 

asl 



1480: 

ade 

ptr 2 


1490: 

tax 



1500: 

clc 



1510: 

lda 

ptrl 


1520: 

sta 

ptr2 


1530: 

lda 

ptrl +1 


1540: ofl 

ade 

#$c 0 

joffset zu $8000 grafik addieren 

1550: 

sta 

ptr 2 +l 

;hb fuer aktuelle grafik 

1560: 

lda 

fmsk,x 

jmaskenbyte laden 

1570: 

sta 

(ptr2) 

y jund in aktuelle grafik 

1575: 



jschreiben 

1580: ; linke Seite bearbeiten ******** 

1590: 

lda 

xk +1 

jkoordinate in linker 

1600: 

bne 

P15 

;"achter spalte ? 

1610: 

lda 

xk 


1620: 

emp 

#$08 


1630: 

bcc 

pl9 

;linker rand erreicht 

1640: ; 




1650: pl5 

sec 


;nein,linkes byte errechnen 

1660: 

lda 

ptrl 

;von adresse der plot-position 

1670- 

sbc 

#$08 

;8 abziehen(gleiche zelle. 

1680. 

sta 

ptr 2 

jaber linke spalte) und 

1690: 

lda 

ptri +1 

jnach ptr 2 

1700: 

sbc 

#$00 


1710: 

sta 

ptr 2 +l 


1720: 

lda 

(ptr 2 ),y ;links testen 

1730: 

bne 

Pl7 

jkein leeres byte 

1740: 

lda 

stol 

;"leeres byte, merken erlaubt ? 

1750: 

bne 

Pl9 

;merken verboten 

1760: 

inc 

stol 

jmerken erlaubt,aber zukuenftig 

1765: 



;verbieten 

1770: ; 




1780: 

Jmp 

pl7a 


1790: ; 




1800: ;merken 

1 . bit,linke 

Seite 

1810: pl7 

lsr 



1820: 

bcs 

pl8 

;punkt gesetzt 

1830: 

lda 

stol 

;"merken erlaubt ? 

1840: 

bne 

pl9 

;merken verboten 

1850: 

inc 

stol 

;merken erlaubt,aber zuk. 

1855: 



;verbieten 

1860: ; 




1870: pl7a 

ldx 

stoO 

;x=x-(xand7)-l 

1880: 

lda 

xk 


1890: 

and 

#$07 


1900: 

sta 

ptr 2 


1910: 

clc 



1920: 

lda 

xk 


1930: 

sbc 

ptr2 


1940: 

sta 

xxl,x 

;low-, high-byte und y- 

1950: 

lda 

xk +1 

jkoordinate auf merkstapel 

1960: 

sbc 

#$00 

jablegen 

1970: 

sta 

xxh,x 


1980: 

lda 

yk 




100 


SONDERHEFT 12 
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TIPS & TRICKS 


1990 


sta 

yyk.x 


2590 


bne 

pll8 

;nein, 0-bits merken 

2000 


cpx 

#$ff 

;"schon 255 punkte gemerkt ? 

2600 


Jmp 

pl4 

;zum schleifenbeginn 

2010 


beq 

P19 

;ja, dann Zeiger auf freien 

2605 

> 




2015 




;platz nicht erhoehen 

2620 

pll6 

dec 

stoO 

izeigt jetzt auf letzt gemerkten 

2020 


inc 

stoO 

jzeiger naechste Position 

2625 




;punkt 

2030 

) 




2630 


ldx 

stoO 


2040 


.byt $2c 

;rechte Seite 

2640 


cpx 

#$ff 

ikein punkt mehr, dann ende 

2050 

> 




2650 


bne 

pll7 


2060 

pl8 

sty 

stol 

jmerken wieder erlauben 

2660 


rts 



2070 

i 




2670 

f 




2080 

: ;rechte selte bearbeiten *#*###)(* 

268j 

0117 

lda 

xxl,x 

;koordinaten holen 

2090 

Pl9 

lda 

xk+1 

;"rechter rand erreicht ? 

2690 


sta 

xk 


2100 


beq 

pllO 

;neln > > pllO 

2# 


lda 

xxh,x 


2110 


lda 

xk 


2710 


sta 

xk+1 


2120 


cmp 

#<312 


2720 


lda 

yyk.x 


2130 


bcs 

pll4 

;ja,naechste zeile bearbeiten 

2730 


sta 

yk 


2140 

t 




2740 


jsr 

padr2 

;adresse und maske zu den 

2150 

pllO 

eie 


;rechtes byte 

2745 




;koordinaten 

2160 


lda 

ptrl 

;byte rechts neben der 

2750 


and 

(ptrl) 

,y ;"punkt gesetzt ? 

2170 


ade 

#$08 

;plot-position errechnen 

2760 


bne 

pll6 

»ja, dann naechsten punkt holen 

2180 


sta 

ptr2 

;(plot-adresse + 8) 

2770 

i 




2190 


lda. 

ptrl+1 


2780 


jmp 

pll 

;zum schleifenbeginn 

2200 


ade 

#$00 


2790 

i 




2210 


sta 

ptr2+l 


2800 

;berechnet aus einem byte,welches 

2220 


lda 

(ptr2),y ;"byte leer 1 

2810 

jsich im akku befindet, die koordinaten 

2230 


bne 

pll2 

;kein leeres byte,merken wieder 

2820 

jjedes bits 

und speichert die koord. 

2235 




;erlauben 

2830 

;aller 

0-bits ab 


2240 


lda 

sto2 

;"leeres byte, merken erlaubt ? 

2800 

pll8 

cmp 

#$ff 

;ganzes byte voll 

2250 


bne 

pll4 

;nein, naechste zeile bearb. 

2810 


beq 

pll6 

;keine 0-bits, ende 

2260 


ine 

sto2 

;merken zuk. verbieten 

2820 

t 




2270 

i 




2830 


tax 


jnicht leeres byte bearbeiten 

2280 

2290 

i 

jmp 

pll2a 

S*6R on 

-4» 


lda 

xk 

;koordinaten auf das 8. bit des 
jbytes 

2300 

pll2 

asl 


;"byte nicht leer, bit 8 

2850 


and 

#$f8 


2305 




; gesetzt ? 

2860 


sta 

xk 


2310 


bos 

P113 

;ja,merkflag zurueck(merken 

2870 


sty 

f 

jmerkflag = 0(yreg.=0!)(merken 

2315 




;erlauben) 

2875 




;im byte erlauben] 

2320 


lda 

sto2 

;"merken verboten ? 

2880 

pll9 

txa 



2330 


bne 

pll4 

;ja 

2890 


and 

mskl,y 

;bit-positionen von links nach 

2340 


inc 

sto2 

;merken zuk. verbieten 

2895 




;rechts 

2350 

'• 




2900 


bne 

P123 

;gesetztes bit 

2360 

pll2a 

ldx 

stoO 

;x=(xor7)+l 

2910 


lda 

f 

;merken erlaubt print 

2370 


ole 


;auf merkstapel 

2920 


bne 

pl21 

;nein 

2380 


lda 

xk 


2930 


inc 

f 

;ja, aber zuk. nicht mehr 

2390 


ora 

#$07 


2940 


txa 


ibyte retten 

2400 


ade 

#$01 


2950 


pha 



2410 


sta 

xxl,x 


2960 


ldx 

stoO 

;Stapelzeiger 

2420 


lda 

xk+1 


2970 


lda 

xk 

;koordinaten ablegen 

2430 


ade 

#$00 


2980 


sta 

xxl,x 


2440 


sta 

xxh,x 


2990 


lda 

xk+1 


2450 


lda 

yk 

jauch die y-koordinate 

3000 


sta 

xxh,x 


2460 


sta 

yyk,x 


3010 


lda 

yk 


2470 


cpx 

#$ff 

;"schon 255 punkte ? 

3020 


sta 

yyk,x 


2480 


beq 

pll4 

;Ja, naechste zelle 

3030 


cpx 

#$ff 

i"schon 255 punkte ? 

2490 


ine 

stoO 

;nein, naechster freier platz 

3040 


beq 

pl20 

jja, dann uebergehen 

2500 


■byt $2c 

;naechste zeile 

3050 


inc 

stoO 

jmerkzeiger erhoehen 

2510 

» 




3060 

pl20 

Pia 


;byte zurueckholen 

2520 

pll3 

sty 

sto2 

imerken im naechsten durchlauf 

3070 


tax 


;und ins x-reg. 

2525 




;erlaubt 

3080 

pl21 

inc 

xk 

;x-koordinate erhoehen 

2530 

J 




3090 


lny 


;Position im byte erhoehen 

2540 

pll4 

jsr 

iyk 

;y=y+l und adresse nach ptrl 

3100 


=py 

#$08 

;"schon am ende ? 

2550 


lda 

yk 

;schon unterer 

3110 


bcc 

pll9 

;nein, schleife 

2560 


cmp 

#$e8 

;"rand ? 

3120 





2570 


bos 

pll6 

;ja, unterer rand erreicht 

3130 


lda 

xk 

;x-koordinate erniedrigen 

2580 


lda 

(ptrl),j 

;"nein, byte leer ? 

3140 


bne 

pl22 

;(um wieder im richtigen 
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3150 


dec 

xk+1 

jbyte zu sein) 

3710 


ldx 

stoO 

;Stapelzeiger 

3160 

pl22 

dee 

xk 


3720 


sec 


;Position links speichern 

3170 


ldy 

#$00 

;y-reg wieder auf null 

3730 


lda 

xk 


3180 


Jmp 

pll6 

;gemerkte punkte bearbeiten 

3740 


sbc 

#$01 


3190 






3750 


sta 

xxl,x 


3200 

P123 

lda 

#$00 

;merken der 0-bits wieder erl. 

3760 


lda 

xk+1 


3210 


sta 

f 


3770 


sbc 

#$00 


3220 


beq 

p!21 

;unbedingt 

3780 


sta 

xxh,x 


3230 






3790 


lda 

yk 


3240 


bit 

fuellend ***************** 

3800 


sta 

yyk.x 


3250 


wird 

angesprungen, 

wenn es nicht 

3810 


cpx 

#$ff 

; "schon 255 ? 

3260 


moeglich ist, 'byteweise 1 8 punkte 

3820 


beq 

pl29 

;ja, erhoehen ueberspringen 

3270 


auf einmal 

zu setzen 

3830 


inc 

stoO 

jerhoehen 

3280 






3840 


Jmp 

pl29 

;und zur rechten Seite 

3250 

pl24 

sty 

stol 

jmerkflags fuer linke 

3850 

} 




3260 


sty 

sto2 

;und rechte Seite zurueck 

3860 

pl28 

and 

(ptrl), 

y ;"bit gesetzt ? 

3270 






3870 


beq 

pl26 

jnein, dann abfrage merken erl. 

3280 

pl25 

jsr 

padr2 

;adresse und maske(im akku !) 

3875 




;usw 

3290 


ora 

(ptrl) 

y ;in $8000 grafik setzen 

3880 

i 




3300 


sta 

(ptrl) 

y 

3890 

pl27 

sty 

stol 

;merken links.erlauben 

3310 


clc 


;in aktueller grafik muster 

3900 

i 




3320 




jplotten 

3910 

jrechte 

Seite 


3320 


lda 

ptrl 

;Position in muster-maske 

3920 

pl29 

lda 

xk+1 

; "x=319 ? 

3330 


sta 

ptr2 

;berechnen 

3930 


beq 

P130 

;nein, ok 

3340 


lda 

ptrl+1 


3940 


lda 

xk 


3350 

of2 

ade 

#$e0 

;offset von $8000 grafik zur 

3950 


cmp 

#<319 

• 

3355 




jakt. 

3960 


bcs 

P134 

;ja, dann rechte Seite bearb. 

3360 


sta 

ptr2+l 


3965 




jueberspr. 

3370 


lda 

yk 


3970 

* 




3380 


and 

#$0f 


3980 

P130 

lda 

msk 

jplot-maske 

3390 


sta 

ptr3 


3990 


lsr 


;Pixel daneben 

3400 

3410 


lda 

and 

xk 

#$08 

6*6R C 

-3 

*■»< 

i 

bcc 

P132 

jnoch innerhalb des bytes 

3420 


asl 


4020 

lda 

ptrl ' 

jausserhalb, 8 addieren(c=l) 

3430 


ora 

ptr3 


4030 


ade 

#$07 


3440 


tax 



4040 


sta 

ptr2 


3450 


lda 

fmsk,x 

jbyte aus der muster-maske 

4050 


lda 

ptrl+1 


3460 


and 

msk 

;nicht benoetigte bits 

4060 


ade 

#$00 


3465 




;ausmaskieren 

4070 


sta 

ptr2+l 


3470 


ora 

(ptr2) 

y ;in zeichengrafik schreiben 

4080 


lda 

(ptr2), 

y jbyte laden 

3480 


sta 

(ptr2),y 

4090 


asl 


;"bit 8 (punkt) gesetzt ? 

3490 

! 




4100 


bcs 

P133 

;ja, merken rechts erlauben 

3500 


lda 

xk 

; "xk = 0 ? 

4110 

pl3l 

lda 

sto2 

j"nein, leer, merken erlaubt ? 

3510 


ora 

xk+1 


4120 


bne 

P134 

jnein, dann merken ueberspringen 

3520 


beq 

pl29 

jja, dann testen links 

4130 


inc 

sto2 

jmerken verbieten 

3525 




;ueberspringen 

4140 

i 




3530 

;testen links - 


4150 


ldx 

stoO 

;Stapelzeiger 

3540 


lda 

msk 

jplot-maske 

4160 


clc 



3550 


asl 


jnach links verschieben 

4170 


lda 

xk 

;Position rechts neben 

3560 


bce 

pl28 

jnoch im byte 

4180 


ade 

#$01 

jdem zuletzt geplotteten 

3570 

: * 




4190 


sta 

xxl,x 

;punkt laden und auf 

3580 


lda 

ptrl 

;ausserhalb 

4200 


lda 

xk+1 

jdem Stapel ablegen 

3590 


sbc 

#$08 

;byteposition neben dem 

4210 


ade 

#$00 


3595 




;'plotbyte' 

4220 


sta 

xxh,x 


3600 


sta 

ptr2 


4230 


lda 

yk 


3610 


lda 

ptrl+1 


4240 


sta 

yyk,x 


3620 


sbe 

#$00 


4250 


cpx 

#$ff 

; "255 ? 

3630 


sta 

ptr2+l 


4260 


beq 

P134 

jja, nicht erhoehen 

3640 


lda 

(ptr2),y ;laden 

4270 


inc 

stoO 

jnein, naechste freie Position 

3650 


lsr 


j'l.bit gesetzt ? 

4280 


jmp 

P134 

jnaechste Zeile 

3660 


bcs 

pl27 

jja, dann merken erlauben 

4290 

» 




3670 

pl26 

lda 

stol 

;'nein, merken links erl. ? 

4300 

P132 

and 

(ptrl) 

y jbit gesetzt print 

3680 


bne 

pl29 

;nein, uebersprlngen 

4310 


beq 

P131 

jnein, >>pl31 

3690 


inc 

stol 

;Ja, aber jetzt nicht mehr 

4320 

f 




3700 

» 




4330 

pl33 

sty 

sto2 

jja, dann merken erl. 
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4340 

; 



5510: 


ado #>313 

4350 

P134 

jsr 

iyk jdown **************** 

5520: 


sta ptrl+1 

4360 


lda 

yk 

5530: 


rts 

4370 


cmp 

#$c8 ;'unterer rand erreicht ? 

5540: 

» 


4380 


bcs 

pl36 ;ja,gemerkte punkte bearbeiten 

5550: 

1 


4390 


lda 

(ptrl),y ;nein,byte laden 

6000: 

gxyk 

jsr chkcom 

4400 


bne 

pl35 ;nicht leer,dann bitweise 

6010: 


Jsr getcor 

4405 



;bearbeiten 

6020: 


lda $14 

4410 


Jmp 

pll ;sonst schleifenbeginn 

6030: 


ldy $15 

4420 

» 



6040: 


sta xk 

4430 

P135 

and 

msk jentspr. bit gesetzt 

6050: 


sty xk+1 

4440 


bne 

pl36 ;ja,gemerkte punkte holen 

6060: 


stx yk 

4450 


jmp 

pl25 jnein, dann weiter bitweise 

6070: 


rts 

4455 



;fuellen 

8000: 

mskl 

.byt $80,$40,$20,$10 

4460 

» 



8010: 


.byt $08,$04,$02,$01 

4470 

P136 

jmp 

pll6 ;gemerkte punkte bearbeiten 

8020: 

i 


4480 

• 

t 



8030: 

fmsk 

•byt *11111111 ;linke Seite 

4490 

• 

t 



8040: 


.byt *10000000 

4495 

» 



8050: 


.byt *10000000 

5000 

padr2 

clc 

;adresse und maske berechnen 

8060: 


.byt *10000000 

5010 


ldx 

yk ;y-koordinate ins x-reg. 

8070: 


.byt *10000000 

5020 


lda 

xk ;xlow in akku 

8080: 


.byt *10000000 

5030 


and 

#$f8 ;auf beginn des bytes 

8090: 


.byt *10000000 

5040 


ade 

aadl.x ;zeilen beginn low addieren 

8100: 


.byt *10000000 

5050 


sta 

ptrl ;= adresse low 

8110: 


-byt *11111111 

5060 


lda 

xk+1 jxhigh laden 

8120: 


-byt *10000000 

5070 


ade 

aadh,x ;Zeilenadresse high addieren 

8130: 


•byt *10000000 

5080 


sta 

ptrl+1 ;=adresse high 

8140: 


.byt *10000000 

5090 


lda 

xk ;maske errechnen 

8150: 


•byt *10000000 

5100 


and 

#$07 ;xlow and 7 ergibt 

8160: 


■byt *10000000 

5110 


tax 

;7-potenz zur basis 2 

8170: 

8180: 


.byt *10000000 

.byt *10000000 

5130 


sta 

msk ;und nach msk 

8190^', 

5140 


rts 


8200: 


.byt *11111111 ;rechte Seite 

5150 

5 



8210: 


•byt *10000000 

5160 

J 



8220: 


.byt *10000000 

5170 

a 



8230: 


.byt *10000000 

5200 

dyk 

dee 

yk 

8240: 


■byt *10000000 

5210 


lda 

ptrl 

8250: 


•byt *10000000 

5220 


and 

#$07 

8260: 


•byt *10000000 

5230 


beq 

dykll 

8270: 


.byt *10000000 

5240 


dee 

ptrl 

8280: 


.byt *11111111 

5250 


rts 


8290: 


•byt *10000000 

5260 

dykll 

sec 


8300: 


.byt *10000000 

5270 


lda 

ptrl 

8310: 


.byt *10000000 

5280 


sbc 

#<313 

8320: 


.byt *10000000 

5290 


sta 

ptrl 

8330: 


.byt *10000000 

5300 


lda 

ptrl+1 

8340: 


.byt *10000000 

5310 


sbc 

#>313 

8350: 


•byt *10000000 

5320 


sta 

ptrl+1 

8360: 

1 


5330 


rts 


8900: 

xxl 

• $7b00 

5340 

f 



8910: 

xxh 

= $7c00 

5350 

> 



8920: 

yyk 

= $7d00 

5400 

iyk 

Ine 

yk 

8930: 

t 


5410 


lda 

ptrl 

8940: 

aadl 

= $7e00 

5420 


and 

#$07 

8950: 

aadh 

= $7f00 

5421 


cmp 

#$07 

8960: 

f 


5430 


beq 

iykll 

8970: 

;>>> padr2 <<< 

5440 


ine 

ptrl 

8980: 

;unter diesem label wird die adresse 

5450 


rts 


8990: 

;in der $8000 graflk. 

5460 

lykll 

olo 


8900: 

;die zu xk/xk+l,yk gehoert,errechnet 

5470 


lda 

ptrl 

8910: 

;und in ptrl/ptrl+1 abgelegt. 

5480 


ade 

#<313 

8920: 

;die bitmaske fuer den entsprechenden 

5490 


sta 

ptrl 

8930: 

;punkt wird nach msk geschrieben 

5500 


lda 

ptrl+1 

8940: 

;und 

befindet sich nach abchluss 
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8950 

8960 

8970 

8980 

8990 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9270 

9280 

9290 

9300 

11370 

11370 

11380 

11390 

11400 

11410 

11420 

11430 


im akku. das carry ist zu diesem 
Zeitpunkt nicht gesetzt. 

>>> dyk <<< 

die y-koordinate wird um eins ver¬ 
mindert. die zugehoerige adresse 
steht in ptrl 

>>> iyk <<< 

wie dyk. jedoch wird die y-koord. 

erhoeht 


» 

;"belegung der zeropage z.b.: 

J 

;ptrl = $f7 
;ptr2 = $f9 
;ptr3 n $fb 

I 

;sto0 = $fd 
;stol « $fe 
;sto2 = $ff 

t 

;in badh steht das high-byte des 
jzeichenspeichers.z.b. $40 fuer 
;die grafik ab $4000 
;"achtung: die grafik ab $8000 
»darf nicht benutzt werden, da 
;sie vom Programm aus benoetigt 
jwird. 

> 

;xxl,xxh und yyk sind die merkstapel 
;sie haben eine laenge von jeweils 
»256 bytes (insgesammt 768). 

;sie dürfen im freien ram liegen. 

;da bei hires-master beim aufuehren 
;dle rams mit sei 
lda #$30 
sta $01 

;eingeschaltet werden, liegen sie 
;dort unter den cias im bereich ab $d000 

;die routine mit dem label 'gxyk' 

;holt die koordinaten und legt 
;sie in xk/xk+l,yk ab. 


G46R CfUin 


Listing 1. Quellcode zur »Fill-Routine« (Schluß) 


10 IF A=0 THEN A=1:L0AD"FILL-C",8,1 <03B> 

20 SL=32256:SH=32512:AD=2tl5:D=256:F0R 1=0 

TO 199 STEP B <223> 

30 FOR J=0 TO 7:B=AD+J:H=INT(B/D):L=B-H*D <069> 
40 POKE SL+1+J,L:POKE SH+I+J,H:NEXT:AD=AD+ 

320:NEXT <071> 

50 REM OBEN WIRD DIE ANFANGSZEILENTABELLE <209> 
60 REM AUFGESTELLT (AADL/H) <154> 

70 V=53248:POKE V+24,B*16:P0KE V+17,59:P0K 

E 56576,2:REM GRAFIK EIN <036> 

80 GOSUB 140:SYS 12*4096:REM GRAFIK LOESCH 

EN <229> 

90 FOR 1=6*4096 TO 6*4096+999:POKE I,16:NE 

XT:REM FARBE <156> 

100 FOR 1=0 TO 100:POKE 2tl4+RND(0)*8000,1 

:NEXT <131> 

110 SYS 7*4096,160,100:REM PAINT <230> 

120 POKE 198,0:WAIT 198,1 <092> 

130 POKE V+24,21:POKE V+17,27:P0KE 56576,3 

:END <160> 

140 FOR X=12*4096 TO 12*4096+28:READ A:POK 

E X,A:NEXT:RETURN <154> 

150 DATA 160,0,132,251,169,64,133,252,152, 

145,251,230,251,208,2,230,252,56,165 <139> 

160 DATA 251,233,1,165,252,233,96,144,236, 

< 220 > 


Name 

: 

♦ill-c 




7000 72f3 

7000 


20 

b6 

72 

a0 

00 

a2 

40 

a9 

95 

700S 


80 

84 

f 7 

84 

f 9 

86 

fB 

85 

lb 

7010 


-f a 

a2 

20 

bl 

f 7 

91 

f 9 

c8 

lf 

7018 


d0 

+ 9 

e6 

f 8 

e6 

fa 

ca 

d0 

d0 

7020 


f 2 

84 

fd 

20 

64 

72 

31 

f 7 

66 

7028 


f0 

01 

60 

84 

fe 

84 

ff 

a5 

al 

7030 


02 

f0 

0C 

20 

82 

72 

bl 

f 7 

24 

7038 


25 

04 

f0 

f 3 

20 

9b 

72 

20 

03 

7040 


64 

72 

bl 

f 7 

fB 

03 

4c 

8b 

bS 

7048 


71 

a9 

ff 

91 

f7 

a5 

02 

29 

c7 

7050 


0* 

85 

f 9 

a5 

55 

29 

08 

0a 

28 

7058 


65 

f 9 

aa 

18 

a5 

f 7 

85 

f 9 

8c 

7060 


a5 

+ 8 

69 

C0 

85 

fa 

bd 

cf 

ba 

7068 


72 

91 

f 9 

a5 

56 

d0 

06 

a5 

25 

7070 


55 

c9 

08 

90 

48 

38 

a5 

f 7 

8b 

7078 


B9 

08 

85 

f 9 

aS 

fB 

e9 

00 

d0 

70B0 


85 

+ a 

bl 

f 9 

d0 

09 

a5 

f B 

18 

70B8 


d0 

33 

e6 

fe 

4c 

98 

70 

4a 

6b 

7090 


b0 

29 

a5 

fe 

d0 

27 

e6 

fe 

fe 

7098 


a6 

fd 

a5 

55 

29 

07 

85 

f 9 

26 

7 040 


18 

a5 

55 

e5 

f 9 

9d 

00 

7b 

20 

70a8 


a5 

56 

e9 

00 

9d 

00 

7c 

a5 

0a 

70b0 


02 

9d 

00 

7d 

e0 

ff 

f0 

05 

0c 

70bB 


e6 

+ d 

2c 

84 

fB 

a5 

56 

f0 

91 

70c 0 


06 

a5 

55 

c9 

38 

b0 

44 

18 

72 

70cB 


a5 

+ 7 

69 

08 

B5 

f 9 

a5 

f8 

75 

70d0 


69 

00 

85 

fa 

bl 

f 9 

d0 

09 

3a 

70d8 


a5 

ff 

d0 

2f 

e6 

ff 

4c 

ea 

0c 

70B0 


70 

0a 

b0 

25 

a5 

ff 

d0 

23 

0a 

70e8 


e6 

ff 

a6 

fd 

18 

a5 

55 

09 

4d 

70f 0 


07 

69 

01 

9d 

00 

7b 

aS 

56 

bf 

70f8 


69 

00 

9d 

00 

7c 

a5 

02 

9d 

01 

7100 


00 

7d 

e0 

ff 

fB 

05 

e6 

fd 

c6 

7108 


2c 

84 

ff 

20 

9b 

72 

a5 

02 

62 

7110 


c9 

c8 

b0 

07 

bl 

f 7 

d0 

25 

b 3 

7118 


4c 

49 

70 

c6 

fd 

a6 

fd 

eB 

cc 

7120 


f + 

d0 

01 

60 

bd 

00 

7b 

85 

a9 

7128 


55 

bd 

00 

7c 

85 

56 

bd 

00 

ed 

7130 


7d 

85 

02 

20 

64 

72 

31 

f 7 

83 

7138 


d0 

el 

4c 

2b 

70 

c9 

ff 

f0 

a9 

7140 


da 

aa 

a5 

55 

29 

f 8 

85 

55 

9e 

7148 


84 

03 

8a 

39 

c7 

72 

d0 

35 

d5 

7150 


a5 

03 

d0 

Id 

e6 

03 

8a 

48 

90 

715B 


a6 

fd 

a5 

55 

9d 

00 

7b 

a5 

24 

7160 


56 

9d 

00 

7c 

a5 

02 

9d 

00 

f 5 

7168 


7d 

e0 

ff 

fB 

02 

e6 

fd 

68 

93 

7170 


aa 

e6 

55 

c8 

C0 

08 

90 

d2 

30 

7178 


a5 

55 

d0 

02 

c6 

56 

c6 

55 

21 

7180 


a0 

00 

4c 

lb 

71 

a9 

00 

85 

06 

71B8 


03 

f0 

e6 

84 

fe 

84 

ff 

20 

a2 

7190 


64 

72 

ii 

f7 

91 

f 7 

18 

a5 

f 5 

7198 


f 7 

85 

f 9 

a5 

f 8 

69 

C0 

85 

6e 

71a0 


+a 

a5 

02 

29 

0f 

85 

fb 

a5 

6b 

71a8 


55 

29 

08 

0a 

05 

fb 

aa 

bd 

2c 

71b0 


cf 

72 

25 

04 

11 

f 9 

91 

f 9 

9d 

71b8 


a5 

55 

05 

56 

f0 

41 

a5 

04 

cc 

71c0 


0a- 

90 

36 

a5 

f 7 

e9 

08 

85 

4f 

71c8 


f9 

a5 

fB 

e9 

00 

85 

fa 

bl 

8b 

7ld0 


+ 9 

4a 

b0 

29 

aS 

fe 

d0 

27 

23 

71d8 


e6 

f e 

a6 

fd 

38 

a5 

55 

e9 

80 

71 e0 


01 

9d 

00 

7b 

a5 

56 

e9 

00 

d4 

71 bB 


9d 

00 

7c 

a5 

02 

9d 

00 

7d 

61 

71+0 


i?0 

ff 

f0 

0b 

e6 

fd 

4c 

ff 

fd 

71 + 8 


71 

31 

f 7 

f0 

d7 

84 

fe 

ä5 

07 

7200 


56 

f0 

06 

aS 

55 

c9 

3f 

b0 

07 

7208 


41 

a5 

04 

4a 

90 

36 

a5 

f 7 

a7 

7210 


69 

07 

85 

f 9 

a5 

f 8 

69 

00 

65 

7218 


85 

fa 

bl 

f 9 

0a 

b0 

29 

a5 

de 

7220 


f + 

d0 

27 

e6 

ff 

a6 

fd 

18 

Bb 

7228 


a5 

55 

69 

01 

9d 

00 

7b 

aS 

05 

7230 


56 

69 

00 

9d 

00 

7c 

a5 

02 

6d 

7238 


9d 

00 

7d 

B0 

ff 

fo 

0b 

e6 

d2 

7240 


fd 

4c 

4a 

72 

31 

f 7 

f0 

d7 

8a 

7248 


84 

ff 

20 

9b 

72 

a5 

02 

c9 

37 

7250 


cB 

b0 

0e 

bl 

f 7 

d0 

03 

4c 

d5 

7258 


2b 

70 

25 

04 

d0 

03 

4c 

Bf 

fb 

7260 


71 

4c 

1b 

71 

18 

a6 

02 

aS 

f 6 

7268 


55 

29 

f 8 

7d 

00 

7b 

85 

f 7 

3a 

7270 


aS 

56 

7d 

00 

7f 

85 

fB 

a5 

f 3 

7278 


55 

29 

07 

aa 

bd 

c7 

72 

85 

68 

7280 


04 

60 

c6 

02 

a5 

f 7 

29 

07 

73 

7288 


f0 

03 

C6 

f 7 

60 

38 

a5 

f 7 

f 9 

7290 


e9 

39 

85 

f7 

a5 

f8 

B9 

01 

42 

7298 


85 

fB 

60 

e6 

02 

a5 

f 7 

29 

0B 

72a0 


07 

c 9 

07 

fB 

03 

e6 

f 7 

60 

74 

72a8 


18 

a5 

f 7 

69 

39 

85 

f 7 

a5 

a9 

72b0 


+ 8 

69 

01 

85 

fB 

60 

20 

fd 

5d 

72bB 


ae 

20 

eb 

b7 

a5 

14 

a4 

15 

20 

72c 0 


85 

55 

84 

56 

86 

02 

60 

80 

d7 

72cB 


40 

20 

10 

0B 

04 

02 

01 

ff 

72 

72d0 


80 

80 

B0 

B0 

80 

80 

80 

ff 

ce 

72dB 


80 

80 

80 

80 

80 

80 

B0 

ff 

d6 

72e0 


80 

80 

80 

B0 

80 

80 

80 

ff 

de 

72e8 


80 

80 

80 

80 

80 

80 

80 

a9 

3a 

72f 0 

s 

30 

85 

01 

ff 

20 

36 

30 

20 

dB 


Listing 3. Demoprogramm zu einer der schnellsten »Fill- 
Routinen« für den C64 


Listing 2. Übersetzter Maschinencode zur »Fill-Routine«. 
Bitte mit dem MSE eingeben und speichern. 
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Kleiner 

Aufwand, 

große 

Wirkung 

Wer sich mit Turbo Pascal auskennt, wird viel¬ 
leicht auch den MOVE-Befehl schätzen und lie¬ 
ben gelernt haben. Dieses Kommando erweitert 
auch das Basic ihres C64 um ein wichtiges und 
nützliches, Hilfsmittel zur Variablenbehandiung 
und Window-Programmierung. 

W enn Sie diesen Artikel durchgelesen haben, werden 
Sie sich fragen, warum ein so leistungsfähiger Befehl 
erst jetzt für das Basic des C 64 entwickelt wurde. 
Die Routine (MSE-Listing 1 und Assembler-Listing 2) ist 
zudem so kurz, daß man sie leicht in eigene Programme inte¬ 
grieren kann, was die Möglichkeiten des Programmierers 
erheblich vergrößert. Die Handhabung des Befehls ist jedoch 
nicht ganz einfach. 

MOVE (VAR1, VAR2, Anzahl) verschiebt ab der Variablen 
VAR1 »Anzahl« Bytes zur Variablen VAR2. Der MOVE-Befehl 
wird beim C64 durch Aufruf mit SYS und nachfolgenden 
Parametern eingeleitet. VAR1 und VAR2 können hierbei 
sowohl Variable als auch Adressen von Speicherstellen sein. 
Die Syntax lautet: 

SYS 49152, Adressel, Adresse2, Anzahl 
Der Befehl SYS 49152,1024,50000,1000 verschiebt zum 
Beispiel den Speicherbereich 1024 bis 1024+1000, also 
den Bildschirminhalt, nach 50000. Mit SYS 
49152,50000,1024,1000 wird der Inhalt des Speicherbe¬ 
reiches 50000 bis 51000 in den Bildschirmspeicher 
(zurück)geschrieben. 

Der erste Befehl kann zum Beispiel in eigenen Programmen 
eingesetzt werden, um auf Tastendruck den aktuellen Bild¬ 
schirminhalt zu retten und daraufhin einen Hilfsbildschirm 
einzublenden. Der zweite SYS-Befehl dient dann dazu, den 
geretteten Bildschirm zurückzuholen. Das Demoprogramm 
(Listing 3) zeigt, wie Sie den neuen MOVE-Befehl zur 
Window-Programmierung einsetzen können. Es wäre genau¬ 
sogut möglich, nur eine einzige Bildschirmzeile, zum Beispiel 
die oberste, in einen ungenutzten Speicherbereich zu retten, 
die zum Beispiel eine Menüleiste enthält. Springt man in ein 
Untermenü, wird dann eine andere Menüleiste mit dem 
MOVE-Befehl einkopiert. Sie brauchen in diesem Fall den 
oben beschriebenen SYS-Befehl nur bei »Anzahl« zu ändern 
(40 Byte (= 1 Zeile) anstelle von 1000 Byte für den gesam¬ 
ten Bildschirmspeicher). 

Werden als Adressen Variablennamen angegeben, ver¬ 
wendet die MOVE-Routine die Adressen der zugehörigen 
Stringdeskriptoren als Quell- und Zieladresse und nicht den 
Inhalt der Variablen. Sollen also tatsächlich Speicherberei¬ 
che verschoben werden, dürfen diese beim SYS-Aufruf nicht 


als Variablen angegeben werden, sondern unbedingt als 
numerische, ganzzahlige Werte. Die nachfolgende Befehls¬ 
folge bewirkt somit nicht das gleiche wie der oben beschrie¬ 
bene Befehl zur Verschiebung des Bildschirmspeichers: 
A=1024:B=50000:C=1000 : SYS 49152,A,B,C 

In diesem Beispiel werden 1000 Byte ab der Speicher¬ 
stelle, in der die Variable A gespeichert ist, zur Adresse, ab 
der B gespeichert war, verschoben. Bei der Angabe von 
Variablennamen und geeigneter Parameter werden die 
Inhalte der Variablen selbst verschoben. Wenn in unserem 
Beispiel die Variable A den Wert 1024 enthält, B den Wert 
50000 und C den Wert 1000, dann sucht das Programm 
zunächst die Variable A, also die Speicherstelle im Basic- 
RAM, an der »1024« in Fließkommaform abgelegt ist. Ab die¬ 
ser Speicherstelle (zum Beispiel $0900) werden 1000 Byte 
zu der Speicherstelle verschoben, ab der der Wert 50000 
der Variablen B im Speicher liegt. Die Variable Bund der nach¬ 
folgende Speicherbereich werden also überschrieben. Rich¬ 
tig eingesetzt, kann der MOVE-Befehl beim Sortieren ausge¬ 
sprochen nützlich und zeitsparend sein. Angenommen, Sie 
erstellen eine Dateiverwaltung, die Daten (Datensatzdatei 
oder Indexdatei) in einem Array sortiert im Speicher hält 
(zum Beispiel A$(1)= "ANDI", A$(2)= "BERND" ... 
A$(20)= "WILLI"). Um ein neues Element zum Beispiel mit 
dem Index zwei einzutragen beziehungsweise einzufügen, 
müssen die Elemente A$(2) bis A$(20) im Basic 2.0 mit einer 
Schleife um jeweils ein Element nach unten verschoben wer¬ 
den, um Platz für das neue Element zu schaffen. Um Element 
drei zu löschen, ist ebenfalls eine Schleife nötig, die die Ele¬ 
mente A$(4) bis A$(20) um je ein Element nach oben ver¬ 
schiebt. MOVE ersetzt beide Schleifen und erledigt das Ver¬ 
schieben beinahe in Nullzeit. 

Die Angabe von Variablennamen innerhalb des MOVE- 
Befehl dürfte nur für die Anwendung auf Arrays interessant 
sein. Hierbei muß man String-, Integer- und Fließkommavaria¬ 
blen unterscheiden. Zum Verschieben dieser Variablentypen 
sind unterschiedlich viele Bytes notwendig (Strings: 3 Byte, 
Integervariablen: 2 Byte und Fließkommavariablen: 5 Byte). 

Um in den Arrays A$(1) bis A$(20) (String), A%(1) bis 
A%(20) (Integer) und A(1) bis A(20) (Fließkomma) jeweils ein 
neues Element »zwei« einzufügen, sind demnach folgende 
Befehle notwendig: 

SYS 49152,A$(2),A$(3),18#3: REM 18 Stringdeskripto¬ 
ren k 3 Byte 

SYS 49152,A%(2),A$(3),18*2: REM 18 Integer¬ 
variablen k 2 Byte 

SYS 49152,A (2),A (3),18*5: REM 18 Fließkomma¬ 
variablen k 5 Byte 

Diese Befehle verschieben den Inhalt von jeweils 18 Varia¬ 
blen (beziehungsweise Stringdeskriptoren) eines Arrays 
(zum Beispiel A$(2) bis A$(19)) um ein Element nach unten 
(also nach A$(3) bis A$(20)). 

Das zweite Demoprogramm (Listing 4) nimmt beliebige Ein¬ 
gaben von der Tastatur entgegen und sortiert diese in alpha¬ 
betischer Reihenfolge in das Array A$(..) ein. Wenn Sie sich 
erst in die scheinbar komplizierte Syntax für die Variablenver¬ 
schiebung eingearbeitet haben, werden auch Sie den 
MOVE-Befehl nicht mehr missen wollen. Wer den Befehl 
selbst erweitern oder ändern will, kann sich das kommen¬ 
tierte Assembler-Listing zur Hilfe nehmen. So ist es beispiels¬ 
weise denkbar, daß die Routine durch geringfügige Änderun¬ 
gen den Variablentyp selbständig erkennt und die Anzahl der 
notwendigen Bytes für die Verschiebung von Variablen auto¬ 
matisch berechnet. Es wäre auch möglich, die Anfangs- und 
die Zieladresse beim Verschieben von Speicherbereichen 
zusätzlich indirekt, durch Variablen, bestimmen zu können. 
Wir würden uns freuen, wenn Sie uns Ihre Erfahrungen oder 
selbstentwickelten Änderungen und Erweiterungen zukom¬ 
men ließen. (Said Baloui/nj) 
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C 64 


Name : move.obj 


cOOO cOae 


cOOO 


20 

33 

cO 

84 

4b 

85 

4c 

20 

9b 

cOOB 

: 

33 

cO 

84 

4d 

85 

4e 

20 

4d 

49 

cOlO 

: 

ae 

20 

8a 

ad 

20 

f 7 

b7 

84 

dO 

coia 

: 

a7 

85 

a8 

aa 

a9 

00 

85 

ab 

09 

c 020 

: 

38 

a5 

4d 

e5 

4b 

a5 

4e 

e5 

lb 

c 02 B 

: 

4c 

90 

05 

e6 

ab 

20 

58 

cO 

29 

c030 

: 

4c 

75 

cO 

20 

4d 

ae 

20 

73 

28 

c038 

: 

00 

a6 

7a 

dO 

02 

c6 

7b 

c6 

16 

c040 

: 

7a 

c9 

30 

90 

Ob 

c9 

3a 

10 

c5 

c048 

: 

07 

20 

8a 

ad 

20 

f 7 

b7 

60 

19 

C050 

r 

20 

8b 

bO 

a4 

47 

a5 

48 

60 

7a 

c058 

z 

cO 

00 

dO 

01 

ca 

88 

18 

98 

e4 

c060 

: 

65 

4b 

B5 

4b 

8a 

65 

4c 

85 

76 

c 068 

: 

4 c 

18 

98 

65 

fd 

85 

4d 

8a 

5c 

c070 

: 

65 

4e 

85 

4e 

60 

aO 

00 

bl 

04 

c078 

t 

fb 

91 

fd 

a5 

ab 

40 

13 

a5 

4a 

cOBO 

: 

4b 

dO 

02 

c6 

4c 

c6 

4b 

a5 

7e 

c088 

3 

fd 

dO 

02 

c6 

4e 

c6 

4d 

4c 

4d 

c090 

: 

9e 

cO 

e6 

4b 

dO 

02 

e6 

4c 

7a 

cO90 

: 

«?6 

4d 

dO 

02 

e6 

4e 

a6 

a7 

41 

cOaO 

3 

dO 

02 

c6 

a8 

ca 

86 

a7 

dO 

59 

cOaS 

3 

CB 

aS 

a8 

dO 

ca 

60 

00 

44 

3d 

Listing 1. MOVE-Befehl für den C64. 
Bitte verwenden Sie zur 

Eingabe den MSE auf Seite 91. 



0070 

0080 

0100 

0110 

0120 

0130 

0140 

0160 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0260 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0360 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0460 

0460 

0470 

0480 

0490 

0600 

0610 

0520 

0530 

0540 

0550 

0560 

0570 

0580 


HOVE-ROUTINE 
(C) S.BALOUI, 1986 


*■* FUNKTION *** 

■HOVE'VERSCHIEBT EINEN BELIEBIGEN 
SPEICHERBEREICH, WOBEI DER FALL, 
DASS SICH DIE ZIELADRESSE HIT DEH 
ZU VERSCHIEBENDEN BLOCK 'UEBER- 
LAPPT', BERUECKSICHTIGT WIRD. 


*•* AUFRUF *** 

SYS 49152,START,ZIEL,ANZAHL 

- START : ADRESSE ODER VARIABLE 

- ZIEL : ADRESSE ODER VARIABLE 

- ANZAHL: INTEGERWERT 


AB 'START' 
NACH 'ZIEL' 


WERDEN 'ANZAHL' BYTES 
VERSCHOBEN. 

BEI ANGABE VON VARIABLEN WIRD 
DIE ADRESSE DER ZUGEHOERIGEN 
DESCRIPTOREN VERWENDET. 


*** BEISPIELE *** 

1. SYS 49152,1024,50000,1000 
VERSCHIEBT DEN KOHPLETTEN 
BILDSCHIRHSPEICHER NACH 
50000 

2. SYS 49152,A$(10),A$(11),5*3 
START: ADRESSE DES DESCRIPTORS 

AUF 'A$(10)' 

ZIEL: ADRESSE DES DESCRIPTORS 
AUF 'A$(11) ' 

ANZAHL:15 BYTES 

PRAKTISCHE AUSWIRKUNG: 

IH ARRAY 'A$(1)'•.'A$(14)' 

WIRD AN DER POSITION 'A$(10)' 
PLATZ EUER EINEN NEU EINZU¬ 
TRAGENDEN STRING GESCHAFFEN 
('A$(10)'..'A$(14)' WERDEN UH 
JE DREI BYTE (EINE DESCRIPTOR- 
LAENGE) VERSCHOBEN. 


0590CHRGET 

.DE 

$73 

0600CHRGOT 

.DE 

S79 

0610TXTPTR 

.DE 

$7A 

0620VARPOS 

.DE 

SB08B 

0630CHKKOH 

.DE 

SAEFD 

0640FRHNUH 

■ DE 

$ AD8A 

0650GETADR 

.DE 

SB7F7 

0660; 



0670VON 

.DE 

SFB 

06B0NACH 

■ DE 

$FD 

0690ANZAHL 

.DE 

SA7 

0700KOPIE 

• DE 

$A9 

0710FLAG 

.DE 

SAB 


0720; 


0730 

0740 

0750; 

0760; 

0770;' 


•BA SC000 
.OS 


HAUPTPROGRAHH *** 


0780 

JSR 

LIES 

;QUELLADRESSE 

0790 

STY 

VON 

;LESEN ('VON(*1) ' ) 

0800 

STA 

VON* 1 


0810 

JSR 

LIES 

;ZIELADRESSE 

0820 

STY 

NACH 

;LESEN (* NACH(♦1J' ) 

0830 

STA 

NACH+1 

0840; 

0850 

JSR 

CHKKOH 

;ANZAHL LESEN 

0860 

JSR 

FRHNUH 

;('ANZAHL(+1J') 

0870 

JSR 

GETADR 

0880 

STY 

ANZAHL 


0890 

STA 

ANZAKL+1 


0900; 

0910 

TAX 


;ANZAHL-HIGH RETTEN 

0920; 

0930 

LDA 

#0 

;DEFAULT-WERT: 0 

0940 

STA 

FLAG 

; ( 'NACH ' < ' VON' ) 

0950 

0960 

SEC 

LDA 

NACH 

;'VON(+1)' HIT 

0970 

SBC 

VON 

;'NACH(+1)' VER¬ 

0980 

LDA 

NACH+1 

GLEICHEN 

0990 

SBC 

VON* 1 


1000 

BCC 

PI 

; 'NACH ' > ' VON' => 

1010 

INC 

FLAG 

;FLAG=1 

1020 

JSR 

ADRKOR 

;U.ADRESSEN KÖRRIG. 

1030P1 

JHP 

SCHIEB 



PARAHETER LESEN *** 


1040; 

1050; 

1060;*** 

1070LIES 
1080 
1090 
1100 
1110 
1120L1 
1130; 

1140 
1150 
1160 
1170 
1180; 

1210 
1220; 

1230L2 
1240 
1250 
1260 
1270; 

1280; 

1290;-** ADRESS-KORREKTUR **■ 
1300ADRKOR CPY *0 


JSR 

CHKKOH 


JSR 

CHRGET 

.•ZEICHEN NACH DEH 

LDX 

TXTPTR 

;KOHHA LESEN 

BNE 

LI 

;TEXTPOINTER WIEDER 

DEC 

TXTPTR+1 

;AUF DAS KOHHA SET- 

DEC 

TXTPTR 

' ;ZEN (DEKREHENT.) 

CHP 

#'0' 

;VARIABLE, WENN DAS 

BCC 

L2 

.■ZEICHEN KEINE ZAHL 

CHP 


; IST 

BPL 

L2 


JSR 

FRHNUH 

;INTEGERWERT LESEN 

JSR 

GETADR 


RTS 



JSR 

VARPOS 

;VARIABLENADRESSE 

LDY 

S47 

;HOLEN 

LDA 

$48 


RTS 




1310 

1320 

1330A1 

1340; 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420; 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510; 

1520; 

1530;*' 


BNE Al 
DEX 
DEY 

CLC 
TYA 

ADC VON 
STA VON 

llc VON*1 
STA VON*1 

;(Y=LOW:ANZAHL 

CLC 
TYA 

ADC NACH 
STA NACH 
TXA 

ADC NACH * 1 
STA NACH*1 
RTS 


VERSCHIEBE-RODTINE *** 


- 1 / 


; ANZAHL (<X/Y) 

;DEKREHENTIEREN => 
;X/Y=LOW/HIGH VON 
;ANZAHL-1 

.•ADRESSEN KÖRRIG. 

;'VON(+1)• UND 
;'NACH(+1)' WERDEN 
;AUF DAS JEWEILIG. 

;BLOCKENDE GESETZT, 
;INDEH ANZAHL-1 
;ADDIERT WIRD 

X=HIGH:ANZAHL-1) 


1540SCHIEB 

LDY 

#0 

;Y IHHER NULL 

1550S1 

LDA 

(VON J,Y 

;EIN BYTE 

1660 

1570; 

STA 

(NACH),Y 

;VERSCHIE8EN 

1580 

LDA 

FLAG 

;'VON'<'NACH' 7 

1590 

1600; 

BEQ 

S4 

;NEIN .> 

1610 

LDA 

VON 

;'VON'<'NACH' : 

1620 

BNE 

S2 

;VERSCHIEBEN AB 

1630 

DEC 

VON+1 

;BLOCKENDE ABWAERTS 

1640S2 

DEC 

VON 


1650 

LDA 

NACH 

;BEIDE POINTER 

1660 

BNE 

S3 

;DEKREHENTIEREN 

1670 

DEC 

NACH+1 


1680S3 

DEC 

NACH 


1690 

1700; 

JHP 

S6 
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1710S4 

INC VON 

;'VON'>"NACH' : 

1720 

BNE S5 

;VERSCHIEBEN AB 

1730 

INC VON*1 

;BLOCKANFANG AUF- 

1740S5 

INC NACH 

;WAERTS 

1750 

BNE 86 

;BEIDE POINTER 

1760 

INC NACH+1 

;INKREMENTIEREN 

1770; 



1780S6 

LDX ANZAHL 

;'ANZAHL * DEKREM- 

1790 

BNE S7 

;TIEREN UND MIT 

1800 

DEC ANZAHL+1 

;NULL VERGLEICHEN 

1810S7 

DEX 


1820 

STX ANZAHL 

;WENN ANZAHL=NOLL 

1830 

BNE S1 

; BLOCKVERSCHIEBÜNG 

1840 

LDA ANZAHL*1 

;BEENDET 1 

1850 

BNE S1 


1860 

RTS 


1870 

.EN 



Listing 2. Kommentiertes Assembler-Listing 
der MOVE-ftoutine für den C64 


100 REM *** MOVE—DEMO *** <237> 
110 REM *** WINDOWING *** <235> 
120 s <096> 
130 PRINT CHR*(147> <159> 
140 FOR 1=1 TO 20 <159> 
150 : PRINT "DIES IST EIN TEST" <067> 
160 NEXT <170> 
170 : <146> 
180 SYS 49152,1024,50000,1000 <232> 
190 : <166> 
200 PRINT CHR*(19> <246> 
210 PRlNTsPRINT:PRINT <079> 
220 PRINT TflB (10) "<203> 


230 PRINT TAB(10)"2 DIESES WINDOW13SPACE>£ 

" <151> 

240 PRINT TAB(10)"2 VERSCHWINDET,{3SPACE>£ 

“ < 001 > 

250 PRINT TAB(10)"£ WENN SIE EINE<3SPACE>B 

" < 212 > 

260 PRINT TAB (10) ".5 TASTE DREIECKEN{2SPACE> 

270 PRINT TAB(10)".§ UND WIRD DURCHC2SP ACE> <081>i 


£" <215> 
280 PRINT TAB(10)"£ DEN ALTEN BILD- <057> 
290 PRINT TAB (10) "Jt SCHIRM INHALT {4SPACE>Jä" <017> 
300 PRINT TAB (10) "J3 ERSETZTC9SPACE>2" <248> 
310 PRINT TAB (10) "<096> 
320 : <042> 
330 BET A*:IF A*="" THEN 330 <205> 
340 SYS 49152,50000,1024,1000 <021> 
350 GET A*:IF A*="" THEN 350 <098> 


Listing 3. Demoprogramm zur Window-Programmierung mit 
dem MOVE-Befehl. Beachten Sie die Eingabehinweise 
auf Seite 91. 


100 

REM ***************** 

<237> 

110 

REM *** MOVE-DEMO *»* 

<247> 

120 

REM «SORTIERTE LISTE* 

<255> 

130 

REM ***************** 

<011> 

140 

c 

< 116> 

150 

AM=100 

< 122> 

155 

DIM A* (AM) 

<037> 

160 

PRINT CHR*(147) 

< 189> 

167 

AD=AD+1 

< 184> 

170 

INPUT"DATENSATZ";DA* 

<241 > 

180 

S=0:E=AD:GOSUB 510:REM BI-SUCHE 

<002> 

190 

SYS 49152,A*(E>,A*(E+1),(AM-E>*3 

< 118> 

200 

A*(E)=DA* 

<017> 

215 

PRINT:PRINT 

< 167> 

217 

FOR 1=1 TO AD:PRINT A*(I):NEXT 

<215> 

220 

GOTO 167 

<212> 

230 

: 

<206> 

240 

: 

<216> 

500 

REM *»* BINAERE SUCHE *** 

<056> 

510 

M=INT((S+El/2) 

<106> 

520 

IF DA*>A*(M> THEN S=M:GOTO 540 

<237> 

530 

E=M 

< 148> 

540 

IF E-S>1 THEN GOSUB 510 

< 194> 

550 

RETURN 

<100> 


Listino 4. Demoprogramm zum Verschieben von Variablen 
inneil.db eines Arrays mit dem MOVE-Befehl 


SMON »runderneuert« 


Für alle Anwender eines C 64 gibt es jetzt den Pro- 
mon 64. Bei diesem Programm handelt es sich um 
eine äußerst leistungsfähige Erweiterung des 
SMON, die dem Programmierer einen gewaltigen 
Vorrat an neuen Befehlen zur Verfügung stellt. 

W em der Befehlsvorrat des SMON nicht ausreicht, der 
braucht »Promon 64«. Hierbei handelt es sich um 
einen komplett umgeschriebenen und erweiterten 
SMON, wobei auch einige Verbesserungen am SMON selbst 
vorgenommen wurden. 

Durch den Einbau sämtlicher Zusätze ist der Promon 64 
zwar genau doppelt so groß geworden (er belegt 8 KByte im 
Speicher des Computers), diesen Nachteil macht er aber 
durch die Leistungsfähigkeit seiner Befehle wieder wett. Wir 
wollen uns deshalb im folgenden sofort mit dem Befehlssatz 
des Promon 64 beschäftigen, wobei vorausgesetzt wird, daß 
Sie den SMON bereits kennen. Bei der Besprechung der 
Befehle gehen wir in alphabetischer Reihenfolge voran, 
wobei die Angaben hinter den Befehlsnamen die Parameter 
bestimmen, die angegeben werden müssen. Selbstver¬ 
ständlich sind beim Eintippen eines Byte oder einer Adresse 
die Klammern wegzulassen. 

A (Start) 

Mit diesem Befehl starten Sie den Assembler des Promon 

333 ? 


64. Er arbeitet analog zum Assembler des SMON, wobei 
auch illegale Opcodes eingegeben werden können. Bei einer 
Fehleingabe springt der Cursor direkt hinter die ausgege¬ 
bene Adresse und erlaubt es Ihnen damit, den fehlerhaften 
Text zu überschreiben. Einmal gesetzte Label können bei 
Änderung ebenfalls wieder neu gesetzt werden. 

B (Start) (Ende) 

Dieser Befehl erzeugt, wie schon beim SMON, Basic- 
DATA-Zeilen aus den Speicherinhalten von (Start) bis (Ende). 
Im Gegensatz zum SMON werden hier jedoch nicht alle 
Basic-Zeilen ausgegeben, und es wird ein optimierter Algo¬ 
rithmus verwendet, so daß das Erstellen der Zeilen sehr viel 
schneller geht. Die ungefähre Zeit, die Promon 64 benötigt, 
wird nach dem Druck auf die < RETURN > -Taste auf dem 
Bildschirm angezeigt. 

C (Start alt) (Ende alt) (Start neu) (Start) (Ende) 

Verschiebt einen Speicherbereich von (Start alt) bis (Ende 
alt) nach (Start neu). Dabei werden alle Sprungadressen im 
Bereich von (Start) bis (Ende) an den neuen Speicherbereich 
angepaßt. 

D (Start) (Ende) 

Startet das Disassemblieren eines Speicherbereichs ab 
der Adresse (Start). (Ende) ist optional und muß nicht ange¬ 
geben werden. Wird (Ende) nicht angegeben, so kann die 
Anzeige der Speicherinhalte durch das Drücken einer belie¬ 
bigen Taste angehalten und wieder gestartet werden. 
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E (Adresse) 

Mit diesem Befehl kann der Speicherbereich ab (Adresse) 
mit Hilfe von Zeichen editiert werden. Diese Zeichen werden 
nach dem Drücken der <F3>-Taste im entsprechenden 
Speicherbereich als Bildschirmcodes abgelegt. Durch Druck 
auf <F7> kommen Sie wieder in den Befehlseingabe- 
Modus zurück. 

F (Start) (Ende) (Bytes...) 

Die Funktion F sucht im Speicher des C 64 ab Adresse 
(Start) bis (Ende) nach der Bytefolge (Bytes...). Wird die Byte¬ 
folge gefunden, so erscheint die Startadresse auf dem Bild¬ 
schirm. 

G (Start) 

Startet ein Maschinenprogramm ab der Adresse (Start). 
Wird keine Adresse angegeben, so nimmt Promon 64 den 
aktuellen Programmzähler (kann mit R abgefragt werden) als 
Startadresse. 

H (Start) (Ende) 

Zeigt den Speicherbereich des Computers von (Start) bis 
(Ende) an. Dabei werden immer drei Byte nebeneinander als 
Bitmuster (Bit gesetzt = »*«, Bit gelöscht = ».«) angezeigt, 
was das Auffinden und Editieren von Sprites ermöglichen 
soll. (Ende) ist optional, muß also nicht mit angegeben wer¬ 
den. 

I (Gerätenummer) 

Setzt die Standard-Gerätenummer für alle Disketten- 
Operationen. 

J 

Erlaubt das Suchen von Grafikbildern im Speicher des 
Computers. Dabei wird mit den Tasten < 1 > bis < 8 > der 
gewünschte Speicherbereich angewählt. Die Tasten < H > 
und < M > erlauben das Umschalten zwischen HiRes- und 
Multicolor-Darstellung. Durch die Funktionstasten < Fl >, 
<F3> und <F5> können Sie die Bildschirmfarben ändern. 
Drücken Sie die Taste < SPACE >, so kommen Sie wieder in 
den Befehlseingabe-Modus zurück. 

K (Start) (Ende) 

Gibt den Speicherinhalt von (Start) bis (Ende) in ASCII- 
Codes aus. Das erlaubt das Suchen von Text, wobei (Ende) 
wieder optional ist. 

L "Name" (Start) 

Lädt ein Programm von dem Gerät, das mit I angewählt 
wurde. Normalerweise steht die Geräteadresse auf 8 für die 
Floppy-Station. (Start) ist optional und kann dazu dienen, ein 
Programm in einen anderen Speicherbereich zu laden, als 
der, in dem es normalerweise untergebracht ist. 

M (Start) (Ende) 

Erlaubt das Anzeigen und Ändern des Speicherinhalts im 
Bereich von (Start) bis (Ende). Die Anzeige erfolgt zu jeweils 
acht Byte in einer Zeile und deren ASCII-Codes im Anschluß. 
Die Angabe von (Ende) ist optional. 

N 

Holt ein Basic-Programm, das mit NEW gelöscht wurde 
zurück. Anschließend wird Promon 64 verlassen und ins 
Basic gesprungen. 

O (Start) (Ende) (Byte) 

Füllt den Speicherbereich von (Start) bis (Ende) mit dem 
Wert (Byte). 

P (Gerätenummer) 

Setzt das Ausgabegerät auf die Nummer (Gerätenummer). 
Voreingestellt ist hier die Gerätenummer 4 für einen Drucker. 

QE (Start) (Ende) (Byte) 

Dieser Befehl führt im Bereich von (Start) bis (Ende) ein 
EOR mit dem angegebenen Wert (Byte) aus und erlaubt so 
das Codieren großer Speicherbereiche. 

QA (Start) (Ende) (Byte) 

Siehe QE. Hier wird jedoch eine Addition und kein Exklusiv- 
ODER ausgeführt. 


R 

Zeigt die aktuellen Inhalte der Prozessor-Register an. 
Diese Inhalte können durch Überschreiben auch geändert 
werden. 

S "Name" (Start)(Ende) 

Speichert einen Speicherbereich von (Start) bis (Ende) auf 
das, durch I eingestellte, Gerät. Der voreingestellte Wert für 
die Gerätenummer beträgt 8. 

T (Start) (Byte) 

Startet ein Maschinenprogramm an der Adresse (Start) mit 
dem Inhalt der Speicherstelle $01 (Byte) im »Trace«-Modus. 
Hierbei wird ein Opcode angezeigt und erst durch Druck auf 
die < SPACE >-Taste ausgeführt. Anschließend wird der 
nächste Befehl angezeigt und so weiter. Trifft der Computer 
auf ein JSR mit Sprung ins Betriebssystem, so kann dieser 
Aufruf durch Drücken der Taste <J> schnell ausgeführt 
werden. Danach wird vor dem nächsten Befehl wieder auf 
den Druck der < SPACE > -Taste gewartet. Der Trace-Befehl 
kann durch Drücken auf < RUN/STOP > angehalten werden. 
Er stoppt automatisch beim Erreichen eines BRK- oder RTS- 
Befehls, der den Programmzähler wieder auf die Ebene des 
Promon 64 führt. Nach dem Start werden die Prozessor- 
Register automatisch mit den Werten gefüllt, die mit R abge¬ 
rufen werden können. 

U (Start) (Ende) 

Gibt ab der Adresse (Start) alle Speicherinhalte in 
Bildschirm-Codes aus. Dabei werden keine Adressen ange¬ 
geben, um den Bildschirmaufbau nicht zu zerstören. Beim 
Abbruch der Funktion durch < RUN/STOP > wird die gerade 
erreichte Adresse ausgegeben. 

V (Start alt) (Ende alt) (Start neu) (Start) (Ende) 

Rechnetalle Sprungadressen im Bereich (Start) bis (Ende) 
um, wobei keine Verschiebung eines Programms stattfindet. 
Als KriLcVJm für die Umrechnung wird der Bereich (Start alt) 
bis (Ende alt) bezüglich der neuen Adresse (Start neu) 
genommen. Bitte betrachten Sie dazu auch die Beschrei¬ 
bung des Befehls C. 

Eingebauter Disketten-Monitor 


W (Start alt) (Ende alt) (Start neu) 

Verschiebt ein Programm aus dem Bereich (Start alt) bis 
(Ende alt) nach (Start neu). Es wird keine Adreßumrechnung 
vorgenommen. 

X 

Rückkehr ins Basic. Die Modulkennung des Promon 64 
wird dadurch jedoch nicht zerstört, so daß der Monitor durch 
Druck auf einen Reset-Taster jederzeit wieder aufgerufen 
werden kann. Eine andere Möglichkeit ist der erneute Aufruf 
mit SYS 36864. 

Y 

Zeigt an, ob der Monitor im RAM oder im ROM arbeitet. 
Siehe dazu die Befehle YA und YO. 

YA 

Schaltet den Monitor auf RAM-Betrieb. Finden jetzt Opera¬ 
tionen statt, die im Bereich des Basic-ROM, des I/O-Bereichs 
oder des Betriebssystem-ROM liegen, so wird generell der 
»darunterliegende« RAM-Bereich angesprochen. Das gilt 
auch für die Befehle L und S. 

YO 

Hier wird der gesamte Monitor auf ROM-Betrieb umge¬ 
schaltet. Es ist jetzt möglich, auch das Basic-ROM oder den 
Kernel-Bereich zu betrachten, wobei natürlich keine Ände¬ 
rungen der Speicherinhalte möglich sind. Außerdem wird 
jetzt von $D000 bis $DFFF der I/O-Bereich eingeblendet. 
Z 

Gibt die Spur- und Sektornummer des zuletzt angespro¬ 
chenen Sektors auf einer Diskette aus. Wurde der Disketten¬ 
monitor noch nicht verwendet, so erscheint keine Meldung. 



SONDERHEFT 12 


109 





TIPS & TRICKS_ c 64 


8010 

Kopiere RAM-Teil für Laden und Speichern 

8947 

#-Einsprung 

8030 

Laderoutine für Disk 

894D 

X-Einsprung 

8096 

Speicherroutine für Disk 

8956 

Zeile für »M« drucken 

80D0 

Print Text 

898D 

M-Einsprung 

80DE 

Hexcode-Ausgabe zwei Byte 

89AE 

t-Einsprung 

80E2 

Hexcode-Ausgabe ein Byte 

89D0 

O-Einsprung 

80F8 

Adressenausgabe 

89F1 

RAM-Tell löschen und Drucker sperren 

8200 

Vergleiche Start und Ende 

8A05 

Ausgabe ins RAM 

8209 

Bildschirmcode-Ausgabe 

8A17 

B-Einsprung 

821F 

Directory laden 

8ADB 

W-Einsprung 

8270 

DOS 5.1 

8B62 

I-Einsprung 

82E1 

Status/Stop-Abfrage 

8B81 

Kopiere RAM-Teil und sperre Drucker 

82F0 

— -Einsprung 

8B87 

Lese Tabelle 4 und 5 

830F 

Eingabe (ohne Punkt) 

8BB5 

Print CR 

8317 

Ende der Eingabe erreicht? 

8BBA 

Print CR und ASCII 

831F 

Print CR 

8BC2 

Print Space 

8324 

Print ASCII und CR 

8BC7 

Fülle Zeile mit Leerzeichen 

832E 

Input (ohne Space) 

8BD3 

“-Einsprung 

8336 

Input (ohne Komma und Space) 

8C29 

IMPSBDCD 

833E 

Input (Fehlerausgabe am Ende) 

8C30 

IMPSA474 

8345 

Einsprung für Fehler 

8C37 

Kopiere RAM-Teil 

834A 

Einsprung Hauptmenü 

8C48 

Y-Einsprung 

8430 

Setze File für Laden oder Speichern 

8C97 

Menü ein (E) 

845E 

L-Einsprung 

8CC1 

Menü aus (E) 

847F 

S-Einsprung 

8CD9 

E-Einsprung 

84A4 

Setze Start und Ende 

8E73 

Drucke und fülle Farb-RAM 

84B6 

Setze Start 

8E76 

Fülle Farb-RAM 

84B8 

Setze Pointer 

8E93 

Start, Ende, Byte Input und sperre Drucker 

84C5 

Input ein Byte in Akku 

8EA4 

EOR (QE) 

84F0 

I-Einsprung 

8EBD 

ADD (QA) 

84FB 

P-Einsprung 

8ED6 

Q-Einsprung 

8503 

Erhöhe Start 

8EEA 

N-Einsprung 

850A 

Stop/Skip/Scroll am Ende der Zeile 

8F13 

Print 4 Leerzeichen 

8510 

Stop/Skip/Scroll an jeder Stelle 

8F16 

Print 3 Leerzeichen 

8520 

Set s.s.s.-Flag, Return und kopiere RAM-Teil 

8F19 

Print 2 Leerzeichen 

8531 

Return und kopiere RAM-Teil 

SF1C 

Print 1 Leerzeichen 

8534 

Kopiere RAM-Teil 646 R C 

« F 

Print Hex-Byte von Opcode 

8551 

U-Einsprung 

8F5D 

Print Wort und Adresse 

8574 

Kontrolliere Gerät und setze Pointer 

9000 

Monitor-Einsprung (SYS36864) 

85A0 

Sperre Druckerausgabe 

9034 

Print ASCII und Leerzeichen 

85A5 

Setze Start und Ende 

903A 

D-Einsprung 

85AB 

Ausgabe auf Monitor und Drucker 

906B 

Addiere Länge der Instruktion zu Start 

85E3 

Drucker ausschalten 

9079 

Suche Instruktion 

85F6 

Zeile für die Funktion 'H’drucken 

90EC 

Hex-Code? 

8633 

H-Einsprung 

9400 

Zwei folgende Bytes Hex-Codes? (mit Leerzeichen) 

864F 

- -Einsprung 

9417 

Zwei folgende Bytes Hex-Codes? (ohne Leerzeichen) 

8680 

Prüfe ASCII 

941D 

Zweiter Teil der Befehlssuche 

868F 

K-Einsprung 

954F 

Input für Assemblieren 

86CF 

'-Einsprung 

95C4 

, -Einsprung 

86ED 

Setze Programmzähler 

9630 

A-Einsprung 

8700 

G-Einsprung 

97F0 

Print Text 

871F 

Einsprung BRK/RTS 

9886 

Setze RAM-Teil 

8755 

Monitor-Start 

98C4 

Stop/Ende 

8760 

R-Einsprung 

98D4 

Reset-Einsprung (Pointer $8000 bis $8001) 

8793 

Leerzeichen und binären Wert drucken 

98F6 

Setze Pointer 

87A6 

;-Einsprung 

9900 

Z-Einsprung 

87C9 

Hex-Umrechnung 

9AA6 

Setze Pointer für *V« und »C« 

87ED 

drucke Hex, Bin, Dec 

9AC3 

Hauptroutine »V« 

881B 

Bin-Umrechnung 

9B19 

V-Einsprung 

883A 

$-Einsprung 

9B1F 

C-Einsprung 

8840 

%-Einsprung 

9B5F 

F-Einsprung 

8865 

Addieren 

9BA7 

J-Einsprung 

8873 

Subtrahieren 

9C53 

Unterroutine (T) 

8881 

Ende Input? 

9C65 

T-Einsprung 

8897 

?-Einsprung 

9E7F 

Einsprung für Turbo-Tape-Lader 

88F6 

Dec-Umrechnung 

9FFE, 

3FFF unbenutzt 


Tabelle 1. Hier finden Sie alle wichtigen Einsprungadressen des Promon 64 abgedruckt 


ZR (Track) (Sektor) 

Liest den Sektor mit der Spurnummer (Track) und der Sek¬ 
tornummer (Sektor) von der Diskette in den Speicher des 
Computers. Werden die Parameter (Track) und (Sektor) weg¬ 


gelassen, so wird der Sektor eingelesen, dessen Nummer 
mit Z abgefragt werden kann. 

ZN 

Liest den logisch nächsten Sektor von der Diskette in den 
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Speicher des Computers. Auf diese Art und Weise können 
Files auf der Diskette nachverfolgt werden. 

ZW (Track) (Sektor) 

Schreibt einen Sektor mit den Parametern (Track) und (Sek¬ 
tor) auf die Diskette. Werden (Track) und (Sektor) weggelas¬ 
sen, so wird der Sektor dahin zurückgeschrieben, von wo er 
gelesen wurde (Anzeige der Parameter mit Z). 

Z (Monitorkommando) 

Hier werden Kommandos, die der Promon 64 kann, auf den 
eingelesenen Sektor bezogen. Es können also beispiels¬ 
weise mit ZK alle Bytes als ASCII-Zeichen angezeigt werden. 
Z$ zeigt den Beginn des Sektors im Speicher des Computers 
an. 

@ oder — oder > 

Kennzeichen für DOS 5.1. Hier kann das Directory einer 
Diskette angezeigt, oder es können Befehle an das Disket¬ 
tenlaufwerk geschickt werden. Die Syntax der einzelnen 
Befehle entspricht der des DOS 5.1, also zum Beispiel $ für 
die Anzeige des Directory. 

I 

Dieses Kommando zeigt die Kürzel aller Befehle an, die der 
Promon 64 eingebaut hat. 

# (Dezimalzahl) 

Rechnet einen Wert (Dezimalzahl) in hexadezimal und binär 
(falls kleiner als 256) um. 

$ (Hexadezimalzahl) 

Rechnet einen Wert (Hexadezimalzahl) in dezimal und binär 
(falls kleiner als 256) um. 


% (Binärzahl) 

Rechnet eine achtstellige Binärzahl in den entsprechen¬ 
den Hexadzimal- und Dezimalwert um. 

? 

Erlaubt das Rechnen mit dem Monitor. Hier können Zahlen 
der drei Zahlensysteme Hexadezimal, Dezimal oder Binär 
addiert oder subtrahiert werden, zum Beispiel: 
?#23+$10+%00000001. Der Computer gibt dann 
»$001E 00011110 #30« aus. 

= (Start 1) (Ende 1) (Start 2) 

Vergleicht den Speicherbereich von (Start 1) bis (Ende 1) 
mit dem Bereich ab (Start 2). Stimmen Bereiche nicht über¬ 
ein, so werden deren Anfangsadressen auf dem Bildschirm 
ausgegeben. 

£ (Start) 

Dieser Befehl sucht auf der Datasette nach einem Pro¬ 
gramm, das mit Turbo-Tape auf Kassette gespeichert wurde. 
Wird ein solches Programm gefunden, so wird dessen Name 
angezeigt. Es kann nun durch Drücken der < SPACE > -Taste 
das Programm geladen oder durch Druck auf 
< RUN/STOP > der ganze Vorgang abgebrochen werden. 
Geben Sie eine Adresse (Start) an, so wird das Programm an 
diese Adresse geladen. Andernfalls wird es im Speicher an 
der Stelle abgelegt, von der es gespeichert wurde. 

Soweit der Befehlssatz von Promon 64. Das Programm fin¬ 
den Sie unter Listing 1 abgedruckt. Interessiert Sie auch der 
Aufbau des Promon 64, so hilft Ihnen die Tabelle 1 weiter. 
Hier sind alle wichtigen Systemadressen des Programms 
abgedruckt. (Ed van Hout/ks) 


Name : promon 64 8000 a000 


8000 

1 

d4 

98 

5e 

fe 

c3 

c2 

cd 

38 

92 

800B 

: 

30 

20 

56 

32 

20 

43 

38 

36 

8e 

8010 

: 

20 

37 

8c 

85 

51 

85 

55 

85 

41 

8018 

: 

59 

60 

00 

00 

00 

00 

00 

78 

92 

8020 

s 

e6 

01 

bl 

cl 

c6 

01 

60 

78 

12 

8028 

: 

e6 

01 

91 

cl 

c6 

01 

60 

02 

25 

8030 

: 

86 

c 1 

84 

c2 

20 

10 

80 

*5 

e0 

8038 

: 

b9 

48 

*9 

00 

85 

b9 

Bd 

0e 

+8 

8040 

: 

de 

20 

4* 

+3 

a6 

b8 

20 

0e 

0* 

8048 


f 2 

20 

13 

ee 

a8 

20 

13 

ee 

*3 

80S0 

: 

aa 

68 

f0 

04 

84 

cl 

86 

c2 

ei 

8058 

: 

*5 

90 

d0 

2f 

*2 

00 

20 

d0 

ac 

8060 

: 

80 

a4 

cl 

*5 

c2 

20 

de 

80 

01 

8068 

: 

a9 

00 

85 

Cl 

20 

13 

ee 

20 

41 

8070 

s 

53 

00 

aS 

90 

d0 

07 

c8 

d0 

49 

8078 

: 

+ 3 

e6 

c2 

d0 

e+ 

84 

mm 

a2 

CC 

8080 

s 

10 

20 

d0 

80 

*5 

c2 

B5 

*f 

ca 

8088 

: 

20 

de 

80 

20 

33 

+ 3 

*5 

b8 

16 

8090 

: 

es 

0C 

de 

4c 

91 

+ 2 

86 

ae 

6e 

8098 

: 

84 

*+ 

20 

10 

80 

20 

4a 

+ 3 

18 

80*0 

3 

*6 

b8 

20 

50 

+ 2 

*4 

cl 

a9 

63 

80*8 

s 

00 

B5 

cl 

8d 

0e 

de 

98 

20 

+ 7 

80b0 

: 

dd 

ed 

«0 

c2 

20 

dd 

ed 

20 

2 a 

S0b8 

: 

4b 

00 

20 

dd 

ed 

*5 

90 

d0 

b7 

80c 0 

t 

ca 

c8 

d0 

02 

e6 

c2 

c4 

ae 

58 

80c 8 

: 

*5 

c2 

*5 

af 

d0 

e9 

+0 

bb 

d5 

80d0 

c 

bd 

00 

81 

49 

Sd 

+ 0 

06 

20 

cd 

80dB 

s 

16 

*7 

08 

d0 

f 3 

60 

20 

e2 

be 

80B0 

: 

80 

98 

48 

4* 

4a 

4* 

4a 

20 

68 

B0o8 

: 

ed 

80 

68 

29 

0+ 

c9 

0* 

90 

dd 

80+0 

B 

02 

69 

06 

69 

30 

4c 

ab 

85 

75 

80+8 

I 

*5 

+ b 

*8 

*5 

+ c 

4c 

de 

80 

28 

8100 

e 

50 

11 

12 

lc 

19 

14 

13 

la 

94 

810B 

c 

7d 

lb 

0+ 

12 

10 

7d 

79 

Sd 

*7 

8110 

: 

7d 

09 

12 

7d 

79 

5d 

50 

50 

aa 

811B 

3 

0e 

09 

12 

0d 

7d 

14 

13 

7d 

91 

8120 

8 

79 

5d 

50 

19 

18 

0b 

14 

le 

e6 

8128 

B 

18 

7d 

13 

12 

09 

7d 

0d 

0 + 

d5 

8130 

3 

18 

0e 

18 

13 

09 

5d 

50 

14 

9d 

8138 

: 

11 

11 

18 

1 * 

lc 

11 

7d 

19 

Be 

8140 

: 

18 

0b 

14 

1* 

18 

7d 

13 

08 

71 

8148 

: 

10 

1 + 

18 
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TIPS & TRICKS 



Pull-down-Menüs 
in Maschinensprache 


Wollen Sie Ihren Programmen ein professionelles 
Aussehen geben? Dann arbeiten Sie doch in 
Zukunft mit Pull-down-Menüs. Wie das funktio¬ 
niert und wie Sie die Pull-down-Menüs in Ihre 
Basic- oder Maschinenprogramme einbinden 
können, erkären wir hier anhand eines dokumen¬ 
tierten Quell-Listings. 

D ie meisten unter Ihnen wissen bereits, was unter einem 
»Pull-down-Menü« zu verstehen ist. Eine Vielzahl 
moderner Programme arbeitet mit dieser interessanten 
Menüform, vorwiegend auf grafikorientierten Computern wie 
dem Atari ST oder dem Commodore Amiga. 

Bild 1 zeigt ein Beispiel eines Pull-down-Menüs. Es besteht 
aus einer »Menüleiste«, die die Namen verschiedener »Unter¬ 
menüs« enthält und sich meist in der obersten Bildschirm¬ 
zeile befindet. 

Das aktuelle oder auch »aktive« Untermenü wird in einem 
Fenster oder »Window« unterhalb des Menünamens ange¬ 
zeigt. Mit den Cursor-Tasten (oder einer Maus) wird das 
gewünschte Kommando ausgewählt. Der Benutzer bewegt 
mit < CRSR > -unten/-oben einen vergrößerten Cursor (nicht 
nur ein Zeichen, sondern das gesamte Kommando wird inver¬ 
tiert) zum gewünschten Befehl und bestätigt die Auswahl mit 
<RETURN >. 

Mit den Tasten < CRSR > -rechts/-links wird das momentan 
aktive Untermenü wieder »weggeklappt« und das rechte 
beziehungsweise linke Untermenü aktiviert (Bild 2). 


Diese Art der Menüverwaltung ist extrem komfortabel, da 
der Benutzer mit den Cursor-Tasten in beliebigen Unterme¬ 
nüs »herumblättern« und sich auf diese Weise geradezu spie¬ 
lerisch aus einer Vielzahl gebotener Kommandos das 
gewünschte auswählen kann. 

Leider besitzt der C 64 einen gravierenden Nachteil im Ver¬ 
gleich zum Atari ST oder auch zum Amiga. Im Gegensatz zum 
C64 unterstützen die Betriebssysteme beider Computer 
diese Menüform. Pull-down-Menüs sind gewissermaßen 
»serienmäßig« eingebaut. 

Dieser Artikel richtet sich vorwiegend an Leser, die bereits 
gute Grundkenntnisse in der Assembler-Programmierung 
des C 64 besitzen. 

Ziel ist es, jedem C64-Besitzer die benötigten Hilfsmittel 
zur Verwaltung von Pull-down-Menüs zu verschaffen. Diese 
Hilfsmittel bestehen aus mehreren Assembler-Routinen, die 
Sie - wenn Sie nicht über Assembler-Kenntnisse verfügen - 
abtippen und mit der Kurzanleitung am Ende des Kapitels 
problemlos in Ihren eigenen Basic-Programmen anwenden 
können. 

Assembler-Programmierer können jedoch erheblich grö¬ 
ßeren Nutzen aus diesem Artikel ziehen: 

1. Wenn Sie sich noch nicht zu den Profis zählen, wird Ihnen 
dieser Artikel sicher einiges über die Planung und Vorge¬ 
hensweise bei der Erstellung größerer Programmpakete ver¬ 
mitteln, zum Beispiel über die wichtige modulare Program¬ 
mierung. 

2. Das gesamte Programmpaket besteht aus einzelnen 
Routinen, die in sich abgeschlossen sind und unabhängig 
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von der Verwaltung von Pull-down-Menüs genutzt werden 
können. Schnittstellen existieren sowohl für Basic- wie auch 
für Assembler-Programmierer. Wie Sie einzelne Routinen 
über diese Schnittstellen ansprechen, erfahren Sie im folgen¬ 
den Hauptteil des Artikels, der die Planung und den Aufbau 
des Gesamtprogramms behandelt. 

Am Anfang steht die Planung 


Im folgenden werden wir das Programm »gemeinsam« ent¬ 
wickeln. Die geplante Funktionsweise ist bekannt. Mit den 
Cursor-Tasten soll ein inverser Balken - der »Cursor« - inner¬ 
halb eines Untermenüs bewegt und damit der gewünschte 
Untermenüpunkt selektiert werden. Ebenfalls mit den Cur¬ 
sor-Tasten wird bestimmt, welches Menü aktiv ist. Mit 
<CRSR>-rechts/-links wird das aktive Menü gewechselt. 

Diese bei Pull-down-Menüs übliche Art der Steuerung 
besitzt einen entscheidenden Nachteil. Angenommen, Sie 
arbeiten täglich mit einem bestimmten Programm, das Pull- 
down-Menüs wie in Bild 1 beziehungsweise Bild 2 verwen¬ 
det. Nach kurzer Zeit werden Ihnen die verschiedenen Kom¬ 
mandos vertraut sein. Wahrscheinlich werden Sie es nun als 
umständlich empfinden, zum Beispiel zum Kopieren der Dis¬ 
kette fünf Tasten betätigen zu müssen. 

Bei dem in den Bildern verwendeten Pull-down-Menü 
drücken Sie zuerst die Taste <CRSR>-rechts, um das 
Untermenü »Disk« zu aktivieren. Anschließend drücken Sie 
viermal <CRSR>-unten, um das Kommando »Copy« zu 
selektieren, und zum Abschluß bestätigen Sie die Auswahl 
mit < RETURN >. 

Ein wirklich komfortables Verwaltungsprogramm sollte 
daher außer der Auswahl mit den Cursor-Tasten auch eine 
»Direktanwahl« des gewünschten Kommandos zulassen. 
Mein Vorschlag, der im vorgestellten Programm verwirklicht 
wurde, sieht so aus: 

1. Ein Menü kann mit Hilfe des Anfangsbuchstabens akti¬ 
viertwerden. Gleichzeitig muß die Taste <CTRL> gedrückt 
werden. Die Kombination <CTRL+D> aktiviert zum Bei¬ 
spiel das Untermenü »Disk«. 

2. In einem aktivierten Untermenü kann ein Kommando 
direkt angewählt werden, indem der Anfangsbuchstabe des 
Kommandonamens eingegeben wird. Beispiel: Wenn das 
Untermenü »Disk« aktiviert ist, genügt die Betätigung der 
Taste <C>, um das Kommando »Copy« anzuwählen. 

Mit dieser Methode kann jedes Kommando durch zwei 
Tasten angewählt werden. Voraussetzung ist natürlich, daß 
innerhalb eines Menüs jedes Kommando mit einem anderen 
Anfangsbuchstaben beginnt. Gleiches gilt für die Menülei¬ 
ste: Die Anfangsbuchstaben aller Untermenünamen müssen 
eindeutig sein, ein Anfangsbuchstabe darf keinesfalls mehr¬ 
fach Vorkommen. 

Die Frage ist nun, welche Routinen benötigt werden, um ein 
solches Pull-down-Menü zu verwalten: 

1. Eine Routine zur Erzeugung des »Cursors«, die ein 
Menükommando invertiert. Diese Routine soll zusätzlich ver¬ 
wendet werden, um in der Menüleiste den Namen des 
momentan aktiven Untermenüs zu invertieren. Um die Rou¬ 
tine möglichst vielseitig - auch außerhalb des vorgestellten 
Programms - verwenden zu können, wird eine allgemeine 
»lnvertier-/Normalisier-Routine« erstellt, die beliebige Bild¬ 
schirmausschnitte invertiert beziehungsweise wieder nor¬ 
malisiert. 

2. Eine »Mal-Routine«, die mit den Grafikzeichen des C 64 
einen Rahmen zeichnet, in dem das aktuelle Untermenü dar¬ 
gestellt wird. Diese Routine soll zusätzlich die verschiedenen 
Kommandos in diesen Rahmen schreiben. 

3. Eine »Window-Routine«, mit der es möglich ist, vor dem 
Zeichnen eines Untermenüs den aktuellen Bildschirminhalt 
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Bild 1. Untermenü »File« aktiviert 
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Bild 2. Untermenü »Disk« aktiv Kommando »Copy« angewählt 


zu retten, bevor ihn das »Herunterklappen« des Menüs über¬ 
schreibt. Wird das Untermenü wieder »zugeklappt«, soll die 
gleiche Routine den geretteten Bildschirminhalt zurück¬ 
schreiben. 

Von allen drei Routinen ist die Window-Routine am vielsei¬ 
tigsten verwendbar, wenn sie allgemein genug erstellt wird. 
Mit dieser Routine ist es jederzeit möglich, ein Pull-down- 
Menü zum Beispiel über einen Text oder Datensatz zu legen 
und nach Auswahl eines Kommandos den ursprünglichen 
Zustand des Bildschirms wiederherzustellen. 

Ein weiteres Beispiel für die Anwendung dieser Routine 
sind Hilfstexte, die - dank der Mal-Routine mit einem netten 
Rahmen umgeben - jederzeit eingeblendet werden können. 
Wenn der Benutzer den Hilfstext nicht mehr benötigt, wird 
ebenfalls der alte Bildschirminhalt zurückgeschrieben. 

Um eine wirklich absolut professionelle Bildschirmgestal¬ 
tung zu ermöglichen, sollte die Window-Routine allgemein 
genug sein, um mehrere (!) Windows überlagern zu können 
(Bild 3). 

Diese - für Pull-down-Menüs nicht benötigte - zusätzliche 
Routine ermöglicht Bildschirmgestaltungen wie auf dem Atari 
ST oder dem Amiga. Der Benutzer ruft ein Window mit einem 
Hilfstext auf und überlagert den Hilfstext mit einem weiteren 
Window, das zum Beispiel eine ASCII-Tabelle oder das Direc¬ 
tory enthält. Mit einem Tastendruck wird das oberste Window 
»entfernt« und das Window mit dem Hilfstext erscheint wie¬ 
der vollständig. Mit einem weiteren Tastendruck wird der 
Hilfstext ausgeblendet und der ursprüngliche Bildschirmin¬ 
halt ist wiederhergestellt. 

Welche fantastischen Programme mit dieser Window- 
Routine erstellt werden können, liegt allein an Ihnen und Ihrer 
Fantasie. 
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Bild 3. Überlagerung mehrerer Windows 


Doch zurück zu unserem Programmpaket. Die wichtigsten 
Routinen sind festgelegt und werden im folgenden beschrie¬ 
ben. Ein Problem, das für alle Routinen gilt, ist die Art und 
Weise der Parameterübergabe. Alle Routinen sollen sowohl 
von Basic als auch von Maschinensprache aus aufzurufen 
sein. 

Die Farameterübergabe wird definiert 


Die Parameterübergabe von Basic stellt die größeren Pro¬ 
bleme. Es muß vorausgesetzt werden, daß Sie - zum Beispiel 
aus einem Artikel in der 64’er - wissen, wie ein Basic-Pro- 
gramm Parameter an ein Maschinenprogramm übergibt und 
wie der Basic-Interpreter Variablen verwaltet (Wenn nicht: In 
den Sonderheften 1/86, 7/86,8/86 und 9/86 finden Sie ver¬ 
schiedene Artikel, die die erforderlichen Routinen beschrei¬ 
ben). 

Zusammenfassung der Routinen zur Parameterübergabe: 

CHKKOM (SAEFD): Liest ein Zeichen aus dem Basic-Text 
und prüft, ob es sich um ein Komma handelt. 

GETBYT ($B79E): Liest einen Ein-Byte-Wert (Angabe von 
Variablen möglich) aus dem Basic-Text und übergibt ihn im X- 
Register. 

GETPOS (SB08B): Liest eine beliebige Variable ein und 
übergibt in Akku und Y-Register (Y=Low-, Akku=High-Byte) 
einen Zeiger auf die Variable (bei numerischen Variablen) 
beziehungsweise auf die Stringdescriptoren (wenn eine 
Stringvariable übergeben wird). 

Mit diesen Routinen können wir alle Parameter einiesen, 
die ein Aufruf wie zum Beispiel SYS 49152,10,20,X,A$(10) 
an ein Maschinenprogramm übergibt. 

Um Sie nicht in heillose Verwirrung zu stürzen, benutzen 
alle Routinen sehr einheitliche Parameter. Sowohl in der 
Invertier- als auch in der Mal- und der Window-Routine wird 
jeweils ein Rechteck behandelt (invertiert, gemalt oder 
»gerettet«). Die Rechteck-Parameter sollten daher allen Rou¬ 
tinen in einheitlicher Art und Weise mitgeteilt werden. Im vor¬ 
gestellten Programm wird allen Routinen die obere linke Ecke 
(Spalte und Zeile), die Breite und die Länge des Rechtecks 
übergeben. Das betreffende Rechteck ist durch diese Para¬ 
meter eindeutig definiert. Wichtig: Bildschirmkoordinaten 
wie Spalte und Zeile werden ab Null numeriert (Spalte 0 bis 
39; Zeile 0 bis 24). 

Der Aufruf der einzelnen Routinen wird lauten: 

1. Invertier-Routine: SYS xxxx,spalte,zeile,breite,länge,flag. 

Die Parameter »spalte, zeile, breite, länge« definieren das 
Rechteck, »flag« entscheidet darüber, ob der Bildschirmaus¬ 
schnitt invertiert oder normalisiert werden soll (flag=0 = > 
normalisieren; flag=1 => invertieren). Beispiel: SYS xxxx, 


5,10,15,20,1 invertiert ein Rechteck mit der linken oberen 
Ecke 5/10 (Spalte/Zeile), das 15 Spalten breit und 20 Zeilen 
lang ist. 

2. Mal-Routine: SYS xxxx,spalte,zeile,breite,länge,array. 

Wie erläutert, füllt die Mal-Routine einen Rahmen mit den 

Kommandos eines Untermenüs. Diese Kommandos übergibt 
das Basic-Programm in einem Stringarray. Das in Bild 1 dar¬ 
gestellte Untermenü kann wie folgt gezeichnet werden: SYS 
xxxx,0,1,8,7,A$(2). Voraussetzung: Das Array A$(...) muß fol¬ 
gende Strings enthalten: 

A$(2)= "LOAD" 

A$(3)= "SAVE" 

A$(4)= "COPY" 

A$(5)= "RENAME" 

A$(6)= "DELETE" 

3. Window-Routine: SYS xxxx,spalte,zeile,breite,länge,flag, 
puffer. 

Der Parameter »flag« entscheidet darüber, ob ein Bild¬ 
schirmausschnitt in einen Pufferbereich des Computerspei¬ 
chers kopiert oder aus diesem Bereich auf den Bildschirm zu¬ 
rückgeschrieben wird (flag=0 = > Puffer nach Screen über¬ 
tragen; flag=1 = > Screen nach Puffer übertragen). Da die 
Überlagerung mehrerer Windows möglich sein soll, werden 
mehrere Puffer verwendet, um ein Überschreiben des Puf¬ 
ferinhalts durch ein zusätzliches Window zu verhindern. Mit 
»puffer« wird die Nummer des gewünschten Puffers angege¬ 
ben (die Numerierung beginnt mit Puffer Nummer Null). 

Der Programmablauf wird entwickelt 


Nachcie.' nun alle Anforderungen an die einzelnen Routinen 
besprochen wurden, wird im folgenden Abschnitt das Pro¬ 
gramm anhand des Source-Codes erläutert (Listing 1). Das 
Programm wurde mit dem Hypra-Ass entwickelt, der Ihnen 
sicherlich aus dem Assembler-Sonderheft 8/85 und dem 
64’er-Stammheft (Ausgabe 7/85) bekannt ist. 

Verwendete Label 

Den ersten Abschnitt bildet wie üblich die Definition ver¬ 
schiedener Label (Bild 4). Die verwendeten Interpreter- 
Routinen CHKKOM, GETBYT und GETPOS wurden kurz 
erläutert, die Betriebssystem-Routinen GETIN (Zeichen von 
der Tastatur einiesen), BSOUT (Zeichen ausgeben) und 
PLOT (Cursor setzen/aktuelle Position holen) werden als 
bekannt vorausgesetzt. 

Interessanter sind die »programminternen« Label. In PAR- 
BACK und PARBACK+1 übergibt das Hauptprogramm zur 
Verwaltung der Pull-down-Menüs die Nummer des selektier¬ 
ten Untermenüs und die Nummer des darin angewählten 
Kommandos an das aufrufende Programm zurück. 

INDIZ und INDIZ+1 sind je zwei Speicherzellen der Zero- 
Page, die für indirekt indizierte Adressierung verwendet wer¬ 
den (LDA (INDIZ),Y). In STRLEN wird die Länge und in 
STRPOS beziehungsweise STRPOS+1 die Adresse eines 
Strings abgelegt, das heißt in diese drei Speicherzellen wer¬ 
den die Inhalte der drei Stringdescriptoren kopiert (Länge, 
Pointer low, Pointer high). CNTI und CNTI+ werden für ver¬ 
schiedene Zwecke als Zähler eingesetzt (Schleifen etc.). 

COL, LINE, BREITE und LAENGE werden zur Speicherung 
der erläuterten Rechteck-Parameter verwendet (spalte, zeile, 
breite, länge). In FLAG und PUFNR werden die zusätzlichen 
Parameter »flag« und »puffer« abgelegt. Das Label ROUTIN 
erhält erst in einem späteren Abschnitt des Source-Codes 
eine Bedeutung, wo ab der Adresse dieses Labels weitere 
Parameter abgelegt werden. 

Für die Window-Routine werden einige zusätzliche Label 
benötigt. SCREENP und PUFFERP nehmen jeweils einen 


SONDERHEFT 12 


117 



























TIPS & TRICKS 


C 64 


10 ... 

20 -j» routlrun lur Verwaltung • 

30 -| • von pul 1 ‘-diMn-unun • 
40 -je < c > t.baloui, 19Q6 e 
50 -j eeeeeeeeeeeee< 


“I 


“l••• labela 


120 

-.•q 

chkkom 

. 

*a«fd i 

130 

-.•q 

gotbyt 

■ 

*b79« 

140 

-.•q 

getpoa 

- 

Sb 08b j 

130 

-.•q 

plot 

- 

*«f«0 

160 

180 

182 

-1 

-1 

bsout 


S««d2 | 

1B3 

-»**• 1abeli 

programamir 

IBS 

-.•q 

parback 

— 

Sa7 

190 

“•■9 

indli 

m 

*«9 

200 

-.•q 

Indizl 

m 

Sab 

202 

-.■q 

■trlen 

m 

Sad 

204 

“•■q 

■trpos 

- 

Sa« 

210 

-•■q 

cntl 

■ 

*0334 

220 

-•■q 

entj 

- 

cntl+l 

230 

-••q 

col 

m 

entJ *1 

240 

“■ °q 

Uns 

m 

col *1 

230 

-.•q 

br.it« 

m 

lln«*i 

260 

-.•q 

1aengo 

m 

breite-»: 

270 

-.•q 

«lag 

• 

1 aorigo* 1 

280 

”.«q pu«nr 

■ 

«lag *1 

310 

320 

330 

340 

-.oq 

“I 

“1 

“1 

routln 


pu«nr »2 


betrlebsaystem eee 
- *«««4 jZeichen van temtetur leeen 

»basic-texti naechstee zeicheni kaeaa? 
»basic-texti bytowert holen (x-register) 
jbaeic-texti polnter au« variable holen 
ICursor setzen 
{Zeichen aussgeben 


!auswshlrueckuebergab« an baslc 

Ipolnter «.indizierte adressierung 

jpointer «.indizierte adressierung 

jlaenge der von baslc uebergeb.stringvar 1 able 

»polnter au« uebergeb.stnngvarlable 

»zaehler 

jzaehler 

»spalte merken 

»zelle merken 

»rechteckbreite merken 


Inr.des anzusprechenden puffere 


350 

360 

370 

380 

390 

400 

410 

420 


-!••• labuls 
-.eq screenp 
-.eq puf«erp 
-.eq pufpol 
-.eq pufstart - *« 
-.eq lntctrl - *deBe 
-.eq crsllne - 214 
-.eq llnepoi - 209 


«.puf«er-routine ••• 

- Indiz |polnter au« bl1 dachtra 
■ lndlzl »polnter auf puf«er 

- *0293 »tabelle mit atartadrestten der aktuellen pu««er 
»pu«feran«ang 

»vlc-reglster zur lnterruptkootrolle 
I Cursorzeile 

»polnter au« cursorzeile 


Bild 4. Verwendete Label 

Zwei-Byte-Pointer auf, mit denen eine indirekt indizierte 
Adressierung des Bildschirms beziehungsweise des Puffer¬ 
bereichs vorgenommen wird. Da mehrere Puffer verwaltet 
werden (Window-Überlagerung), wird eine Tabelle benötigt, 
die die Anfangsadressen der verschiedenen Puffer enthält. 
Diese Tabelle beginnt ab PUFPOI. PUFSTART kennzeichnet 
die Anfangsadresse des ersten Puffers ab $F000. 

Wie Sie anhand der Adresse erkennen, liegt der Pufferbe¬ 
reich, in dem die zu rettenden Bildschirmausschnitte gespei¬ 
chert werden, »unter« dem Betriebssystem. Der Grund: Ich 
wollte es möglichst vermeiden, kostbaren Speicherplatz 
(zum Beispiel im Bereich $C000 bis $CFFF) zu verschwen¬ 
den. Insgesamt stehen zwei KByte an Pufferbereichen zur 
Verfügung. 

Sprungverteiler 

Bild 5 zeigt den Programmanfang. Der Programmstart wird 
auf die Adresse $C600 gelegt. Am Programmanfang befin¬ 
det sich ein »Sprungverteiler«, der zum Aufruf der Routinen 
von Basic aus verwendet werden sollte. Der Vorteil: Selbst 
bei eventuellen Programmänderungen bleiben die SYS- 
Aufrufadressen für alle Routinen erhalten. 

Gemeinsame Unterprogramme 

Vor allem der Strukturierung wegen folgen nun (Bild 6) 
mehrere Unterprogramme, die von allen beschriebenen Rou¬ 
tinen benötigt werden. 

1. Parameter lesen: Diese Routine liest mit CHKKOM und 
GETBYT eine im Akku übergebene Anzahl von Ein-Byte- 
Werten (meist die Parameter spalte, zeile, breite, länge, flag) 
aus dem Basic-Text ein und legt sie nacheinander in COL, 
COL+1, COL+2,... ab. 

2. Stringdescriptoren holen: Wie Sie wissen, legt der 
Basic-Interpreter Strings am Ende des verfügbaren Spei¬ 
cherbereichs ab und vermerkt in der Variablentabelle Länge 
und Adresse der Strings. Diese sogenannten Stringdescrip¬ 
toren bestehen aus drei Byte, einem Byte für die Stringlänge 
und zwei Byte für den Pointer auf den String. Dem Unterpro¬ 
gramm »Stringdescriptoren holen« wird in INDIZ(+1) ein Poin¬ 
ter auf die Descriptoren eines Strings übergeben. Das Unter¬ 
programm kopiert die drei Descriptorbyte nach STRLEN und 
STRPOS(-fl). 

3. Das folgende Unterprogramm geht ebenfalls davon aus, 
daß INDIZ(-fl) einen Pointer auf die Descriptoren eines 
Strings enthält. Dieser Pointer wird um drei erhöht und weist 


damit auf die Descriptoren des nächsten Strings eines String- 
arrays (nur im Falle von Arraystrings benutzt der Interpreter 
drei Byte für die Descriptoren eines Strings, bei einfachen 
Stringvariablen sieben Byte). 

4. Das letzte dieser Unterprogramme nennt sich »Endzeile 
berechnen«, ein nicht gerade aussagekräftiger Name. 
Gemeint ist folgendes: Wie erläutert, behandeln alle Routi¬ 
nen einen rechteckigen Bildschirmausschnitt. Bei der Bear¬ 
beitung dieses Ausschnitts muß nach jeder Zeile geprüft wer¬ 
den, ob die letzte Zeile des Rechtecks bereits behandelt 
wurde. »Endzeile berechnen« ermittelt anhand der übergebe¬ 
nen Nummer (LINE) der ersten Window-Zeile und der eben¬ 
falls übergebenen Window-Länge die letzte Window-Zeile 
und speichert sie in LAENGE. Zugegebenermaßen ist das 
Label LAENGE mißverständlich, da es nach dem Aufruf die¬ 
ses Unterprogramms nicht mehr für die Window-Länge in Zei¬ 
len steht, sondern die entsprechende Speicherzelle, die die 
Nummer der letzten Window-Zeile enthält. 

Die Mal-Routine (Window plus Inhalt malen) 

Bild 7 zeigt Ihnen den Source-Code der Mal-Routine. Die 
Routine besteht aus vier Teilen: Einem Initialisierungsteil, der 
die benötigten Parameter einliest und weitere Vorbereitun¬ 
gen trifft, und drei Abschnitte, die die erste beziehungsweise 
letzte Window-Zeile und die »Innenzeilen« auf dem Bild¬ 
schirm ausgeben. 

Der Initialisierungsteil verwendet das Unterprogramm 
»Parameter lesen«, um die vier Parameter »spalte, zeile, 
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Bild 6. Gemeinsame Unterprogramme 

breite, länge« aus dem Basic-Text zu lesen. Anschließend 
wird mit der Interpreter-Routine GETPOS ein Pointer (Y/Akku) 
auf die Descriptoren des übergebenen Strings ARRAY einge¬ 
lesen. 

Im Anschluß an diesen Teil folgt das Label WIN JSR, das den 
Einsprung von Maschinensprache aus markiert. Vorausset¬ 
zung für einen solchen Einsprung ist selbstverständlich, daß 
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das aufrufende Programm die erwähnten Parameter zuvor in 
den von »Parameter lesen« verwendeten Adressen ablegt 
und den benötigten Pointer ebenso wie die Interpreter- 
Routine GETPOS in Akku und Y-Register übergibt. 

Dieser Pointer wird in INDIZ(+1) gespeichert, bevor die 
letzte Window-Zeile ermittelt wird und die Parameter »länge, 
breite« korrigiert werden (warum, erkennen Sie bei näherer 
Analyse des folgenden Hauptteils). 

Das Malen einer Window-Zeile wird von einer eigenen Rou¬ 
tine vorgenommen. Dieser Routine wird b6im Malen der 
ersten Window-Zeile, die nur aus Grafikzeichen (erinnern Sie 
sich an den Rahmen, der das Window umgibt) besteht, das 
Flag Null übergeben. Jeder Wert ungleich eins sagt aus, daß 
die betreffende Zeile nur aus Grafikzeichen besteht und nicht 
(!) mit dem Inhalt eines Strings (einem Kommando des Unter¬ 
menüs) gefüllt werden soll. 

Nachdem die erste Zeile gemalt wurde, werden die 
»Window-Innenzeilen« ausgegeben. Die erste und letzte 
Spalte dieser Innenzeilen besteht aus Grafikzeichen (Rah¬ 
men), der innere Teil wird mit dem jeweiligen Kommando¬ 
string gefüllt (Flag=1). Der Aufruf der Routine »Zeile malen« 
erfolgt in einer Schleife solange, bis alle Innenzeilen ausge¬ 
geben wurden. - Nach jedem Aufruf wird der Pointer 
INDIZ(-M) auf die Descriptoren des folgenden Arraystrings 
(des folgenden Untermenükommandos) gesetzt und die 
betreffende Zeile von der Routine »Zeile malen« mit diesem 
Kommandostring gefüllt. 

Die Ausgabe der letzten Window-Zeile, die wiederum nur 
aus Grafikzeichen besteht, entspricht der ersten Zeile. 

Den Hauptteil bildet die Routine »Zeile malen«, die für die 
Ausgabe einer Zeile zuständig ist. Der Ablauf: Der Cursor 
wird auf die aktuelle Zeile und darin auf die erste Spalte 
gesetzt, in der das Window beginnt. Wenn das Flag einen 
Wert ungleich eins besitzt, handelt es sich bei der auszuge¬ 
benden Zeile um die erste oder die letzte Window-Zeile. Die 
Innenspalten des Windows bestehen in diesem Fall aus¬ 
schließlich aus Grafikzeichen. 

Soll dagegen eine Innenzeile ausgegeben und mit einem 
Kommandostring gefüllt werden, liest die Routine Zeichen für 
Zeichen dieses Strings anhand der übergebenen String- 
descriptoren und gibt ihn aus. Wird innerhalb der Ausgabe¬ 
schleife das Stringende erreicht (wenn die Stringlänge klei¬ 
ner ist als die Window-Länge minus zwei), wird der Rest der 
Window-Zeile mit Leerzeichen aufgefüllt. 

Die Window-Routine (Window-Untergrund retten/holen) 

Bild 8 enthält den Source-Code der Window-Routine. Nach 
dem Einlesen der benötigten Parameter wird der Pointer auf 
den ersten Puffer Nummer Null initialisiert (gleich der Puffer- 
Startadresse). Anschließend wird anhand der übergebenen 
Puffernummer der Pointer auf den gewünschten Puffer aus 
der Tabelle aller Puffer geholt. Im Normalfall - ohne Überlage¬ 
rung mehrerer Windows - werden Sie immer den ersten Puf¬ 
fer (Puffer Nummer Null) verwenden und der »Pufferpointer« 
daher dem initialisierten Pointer auf den Anfang des Pufferbe¬ 
reichs entsprechen. 

Nach Ermittlung der letzten Window-Zeile wird der Cursor 
auf die linke obere Ecke des Windows gesetzt und ein weite¬ 
rer Pointer erzeugt, der auf die zugehörige Speicherzelle des 
Video-RAMs zeigt (= Pointer auf Zeilenanfang+Startspalte). 

Nun folgt eine Schleife, die entsprechend der Window- 
Breite Zeichen für Zeichen entweder vom Bildschirm in den 
Puffer kopiert (flag=1) oder umgekehrt den Pufferinhalt in die 
aktuelle Bildschirmzeile schreibt. 

Anschließend wird der Pointer auf den Puffer um die jewei¬ 
lige Zeilenlänge (=Window-Breite) erhöht und der Cursor 
durch Ausgabe des Steuerzeichens Cursor down (ASCII- 
Code 17) auf den Beginn der nächsten Window-Zeile 
gesetzt. Wurde die letzte Window-Zeile in der inneren 
Schleife noch nicht gepuffert beziehungsweise zurückge- 
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_ 

Bild 7. Window und Inhalt auf den Bildschirm bringen 

schrieben, wird eine weitere Zeile auf die beschriebene Art 
und Weise behandelt. 

Nachdem das komplette Window behandelt wurde, weist 
der Pointer PUFFERP(+1) exakt auf das Ende des aktuellen 
Puffers. Dadurch ist automatisch die Startadresse des näch¬ 
sten Puffers festgelegt. Angenommen, SF100 markiert das 
Ende von Puffer Nummer Null. Puffer Nummer Eins beginnt 
in diesem Fall genau ein Byte weiter, ab $F101. Diese Start¬ 
adresse wird zum Abschluß der Routine in die Tabelle der 
Puffer-Startadressen eingetragen. Sie verstehen nun sicher¬ 
lich, was ich meine, wenn ich von »dynamischer« Pufferver¬ 
waltung spreche. 

Die Invertier-Routine (Ausschnitt invertieren/normalisie¬ 
ren) 

Die.lnvertier-Routine (Bild 9) ist geradezu »primitiv«, vergli¬ 
chen mit der Window-Routine. Wie üblich, werden zuerst 
Parameter gelesen und die letzte Window-Zeile berechnet. 

Zu Beginn der äußeren von zwei ineinandergeschachtelten 
Schleifen wird der Cursor auf die obere linke Window-Ecke 
gesetzt. Durch die Addition der Cursor-Spalte und des vom 
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Betriebssystem verwalteten Pointers auf den Beginn der 
aktuellen Cursor-Zeile, wird ein Pointer auf die momentane 
Cursor-Position erzeugt. 

In der folgenden inneren Schleife »hangelt« sich die Rou¬ 
tine entlang der einzelnen Zeichen, aus denen die aktuelle 
Window-Zeile besteht. Jedes dieser Zeichen wird invertiert 
(Bit sieben setzen) oder normalisiert (Bit sieben löschen), je 
nach übergebenem Flagzustand (flag=1 => invertieren; 
flag=0 => normalisieren). 

Nachdem die innere Schleife durchlaufen wurde, wird der 
»Zeilenzähler« LINE inkrementiert und enthält somit die Num¬ 
mer der folgenden Bildschirmzeile, bevor wiederum zum 
Beginn der äußeren Schleife verzweigt wird. 

Die Routine wird verlassen, wenn die Bedingung 
LINE=LAENGE erfüllt ist. In diesem Fall wurde die letzte 
Window-Zeile behandelt. 

Hauptprogramm (Verwaltung von Pull-down-Menüs) 

Nach diesem »Vorgeplänkel« nähern wir uns dem Ziel, der 
Verwaltung von Pull-down-Menüs. Das notwendige »Hand¬ 
werkszeug« ist vorhanden, es fehlt jedoch noch ein Steue¬ 
rungsprogramm, das für eine »intelligente« Nutzung der Rou¬ 
tinen sorgt. 

Das Hauptprogramm ist ziemlich umfangreich, so daß ich 
es abschnittsweise besprechen werde. 

Bild 10 zeigt fünf zusätzliche Label, die in der Routine ver¬ 
wendet werden: 

1. MCOUNT stellt einen Zähler dar, der die Nummer des 
jeweils aktiven Untermenüs enthalten wird (ab null). 

2. MZAHL enthält die Gesamtanzahl der zu verwaltenden 
Untermenüs. 

3. POINT ist wiederum ein Zähler, der den jeweils selektier¬ 
ten Menüpunkt (=Kommando) angibt (ab null). 

4. ZEICHEN wird zur Tasten-Speicherung verwendet und 
enthält den ASCII-Code der vom Benutzer betätigten Taste. 

5. VEKTOR: Die verschiedenen Unterroutinen zur Verar¬ 
beitung von Benutzereingaben (< CRSR >-rechts/-links) 
werden über einen indirekten Sprung aufgerufen (JMP (VEK- 
TOR)). 

Bild 11 enthält den ersten abgeschlossenen Teil dieses 
Hauptprogramms, die Ermittlung aller benötigten Parameter 
des gesamten Pull-down-Menüs. Folgende Parameter benö¬ 
tigt das Steuerungsprogramm: 

- Die Anfangsbuchstaben der verschiedenen Untermenü- 
Namen. 

- Die Window-Parameter »spalte,breite,länge«. 

- Für jedes Untermenü einen Pointer auf den ersten Kom¬ 
mandostring dieses Menüs. 

- Da der Name des aktiven Untermenüs invertiert werden 
soll, ist es sinnvoll, zu Beginn die Breite dieser Namen zu 
ermitteln. Diese Angabe wird beim Aufruf der Invertier- 
Routine benötigt, um die Breite des zu invertierenden 
Rechtecks anzugeben. 

- Die Anzahl der zu verwaltenden Untermenüs. 

Sollten Sie einen wichtigen Parameter vermissen, die Num¬ 
mer der jeweils ersten Menüzeile: Diese Angabe steht 
bereits fest, da wir vereinbarten, daß sich die Menüleiste in 
Zeile Nummer Null befindet und die Untermenüs unterhalb 
der Menüleiste beginnen. Daher ist die Zeile eins die erste 
Zeile aller Untermenüs. 

Diese Parameter (mit Ausnahme der Untermenü-Anzahl) 
werden in Tabellen am Programmende abgelegt (Bild 12). Die 
in den Tabellen verwendeten Label besitzen folgende Bedeu¬ 
tungen: 

- START: Tabelle der Menü-Startspalten. 

- LENGTH: Tabelle der Länge der verschiedenen Menü¬ 
namen. 

- SIGN: Anfangsbuchstaben der Menünamen. 

- WBREITE: Breite der Untermenüs. 

- WLAENGE: Länge der Untermenüs. 
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Bild 8. Window-Hintergrund retten und holen 

- WPOILOW: Low-Byte des Pointers auf den jeweils ersten 
Kommandostring der Untermenüs. 

- WPOIHIGH: High-Byte des Pointers auf den jeweils ersten 
Kommandostring der Untermenüs. 

Um die Parameter-Ermittlung zu verstehen, müssen Sie 
wissen, in welcher Form die Kommandostrings und die 
Menüleiste an das Steuerungsprogramm übergeben wer- 
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Bild 9. Bildschirmausschnitt invertieren 


den. Betrachten Sie bitte das in Basic geschriebene »Demo¬ 
programm 1« (Listing 1) am Ende dieses Kapitels. 

Der Aufruf der Routine lautet prinzipiell SYS 
xxxx,leisteS,arrayS. Im Demoprogramm wird der Leisten¬ 
string <K$> verwendet, der die Untermenü-Namen FILE, 
DISK, EDIT und HELP enthält. 

Das Array <A$(...)> enthält alle Kommandos der vier 
Untermenüs. Vor jedem Untermenü befindet sich ein String, 
der ausschließlich aus Leerzeichen (Spaces) besteht und 
dessen Länge der gewünschten Menübreite (ohne Rahmen) 
entspricht, gewöhnlich der Zeichenanzahl des längsten 
Kommandos im betreffenden Untermenü. 

Nach diesem Schema (Leerstring, Kommandostrings) sind 
alle vier Untermenüs aufgebaut. Dem letzten Kommando¬ 
string muß wiederum ein Leerstring folgen, dessen Länge 
jedoch beliebig ist (siehe Zeile 410 in »Demoprogramm 1«), 

Die Parameter werden nun wie folgt ermittelt: 

1. Die Descriptoren des Menüleistenstrings werden gele¬ 
sen und zur späteren Verwendung auf den Stack kopiert 
(»Menüparameter holen«), 

2. Die einzelnen Zeichen des Leistenstrings werden gele¬ 
sen (»Startspalten der Menüs«), das heißt die Menünamen, 
zwischen denen sich zur Unterscheidung mindestens ein 
Leerzeichen befinden sollte. Während dieses Vorgangs wer¬ 
den bereits drei Parameter ermittelt und in den Tabellen abge¬ 
legt: die Anfangsbuchstaben der Menünamen (Tabelle 
SIGN), die Startspalten der Menünamen und damit zugleich 
die Startspalten der zugehörigen Untermenüs (Tabelle 
START) und die Länge der Menünamen (Tabelle LENGTH). 
Wenn dieser Vorgang beendet ist, das heißt wenn das letzte 
Zeichen des Leistenstrings gelesen wurde, steht zugleich 
die Anzahl MZAHL der Untermenüs fest. 

3. Der Programmteil »Window-Parameter holen« ermittelt 
die noch fehlenden Window-Parameter WLAENGE und 
WBREITE und den Pointer WPOILOW/WPOIHIGH, der auf 
die Adresse des jeweils ersten Untermenüstrings zeigt. 
WBREITE entspricht der Länge des erwähnten Leerstrings, 
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ein untermenue kann 


4180 

-{ 

alternativ mit stuft«- 


4190 

- j 

dem anfangsbuchstaben 


4200 

—j 

dos menuenamenn 


4210 


direkt angc?waehlt 


4220 

—j 

wurden, z.b. ühlft*-f 


4230 

-| 

fuer d.menuo file'. 


4240 

-j 

ein menuepunkt kann 


4250 

-j 

alternativ mit dem 


4260 

-j 

anfangsbuchstaben 


4270 

-| 

direkt gcwaehlt wer- 


4280 


don< s'fuer'scratch) 


4281 

4282 




4283 

-j 



4284 

—s 

gewaehlte menuepunkt 


4285 

—; 

in point uebergeben 


4290 




4300 

-(bsp.: sys xxxx,a*,a*( 1 > vor- 


4310 


waltot das oben verwendete 


4320 

-J 

bei spiel 


4330 




4340 




4350 

-.eq 

mcount - routin*! (zaehler: 

aktuellen menuo 

4360 

-oq 

«zahl - mcount »1 (gosamte 

tenueanzahl 

4370 

-.eq 

point = mzahl• 1 jzaehler: 

aktueller menuepunkt 

4380 

-.eq 

Zeichen - point»! (godruecktc taste 

4390 

-.eq 

vektor - Zeichen«-! ;vektor f 

indir.jmp 

Bild 10. Verwaltung der Pull-down-Menüs 


WLAENGE wird ermittelt, indem sich die Routine String für 
String bis zum nächsten Leerstring vortastet, der ja den 
Beginn eines weiteren Untermenüs kennzeichnet. Der Poin¬ 
ter WPOILOW/WPOIHIGH zeigt auf die Descriptoren jenes 
Strings, der dem Leerstring folgt, das heißt auf den jeweils 
ersten Kommandostring der Untermenüs. 

Bild 13 zeigt den nächsten Programmteil, die Initialisierung. 
Der Cursor wird auf die HOME-Position gesetzt und die 
Menüleiste ausgegeben. Zuletzt wird der Menüzähler 
MCOUNT initialisiert. 

Der Teil »Menü-Ausgabe« initialisiert nun das erste 
(MCOUNT=0) Pull-down-Menü. Der Untergrund des zu 
zeichnenden Menüs wird mit der Window-Routine gerettet 
(JSR LIESGR), der Menüname - im Basic-Demoprogramm 
der Name FILE - wird invertiert (JSR MINVERT), das Menü 
ausgegeben (JSR MPRINT) und der Kommandozähler 
POINT initialisiert, wobei der Wert 255 bedeutet, daß 
momentan kein Kommando selektiert ist. 

Die folgende Tastaturabfrage (Bild 14) vergleicht ein einge¬ 
gebenes Zeichen mit der Tabelle KEY, die die ASCII-Codes 
der vier Cursor-Tasten und der < RETURN > -Taste enthält 
(Bild 11). Wurde eine dieser Tasten betätigt, wird mit Hilfe der 
Tabelle TAB ein Vektor auf die entsprechende Routine er¬ 
zeugt, und es erfolgt ein indirekter Sprung über diesen Vektor 
(JMP (VEKTOR)). 
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C 64 


4420 -je** (wnunparamoter holen ••• 


4430 -cntrl 

Jar chkkom 

ipointor auf doacriptoron 


4440 - 

Jar getpos 

;doa monuoloiatonatrings 


4450 - 

ata Indiz 

;nach Indiz(* 1 )' und 


4460 - 

aty indiz*! 

jdoacriptoron aolbat nach 


4470 - 

jsr holdes 

1 'atrlon'.atrpoa(« 1 )' 


44S0 -| 




4490 - 

1 da atrlon 

!doacriptoron rotton 


4500 - 

pha 



4310 - 

lda atrpoa 



4520 - 

pha 



4330 - 

lda atrpoa *1 



4340 - 

pha 



4530 -| 




4560 -I 




4570 -j*** atartapalton d.«»nui 

a ••• 


4380 - 

ldy 40 

japalto und anzahl 


4590 - 

ld. 40 

1 im tial i aioren 


4600 -atartl 

lda (atrpoa),y 

Ilm loiatonatrlng all# 


461B - 

cmp 4" " 

; spar Ol. bla zum 


4620 - 

bno atart 2 

11 .nicht-apaco 


4630 - 

»ny 

juaborloaon 


4640 - 

hno atart 1 

1 immor 1 '• 


4630 -| 




4660 -atart2 

ata aign.M 

(anfangabuchatabo das menuoc 


4670 - 

tya 

(y-pciaition von l.nichtapaco 


4680 - 

ata atart.x 

1 -Btart.ro! fuer invort 


4690 -atart3 

lda (atrpoa),y 

jnun allo 


4700 - 

cmp 4“ " 

jnlchtapaceo 


4710 - 

boq start4 

Suoborlernen 


4720 - 

* ny 

(jedoch nur, wenn 


4730 - 

cpy atrlon 

jatringlaengo noch 


4740 - 

bcc atart3 

{nicht UBhorarhritten 


4730 -| 




4760 -atart4 

tya 

Sinvrrtiorbreite utoht nun 


4770 - 

ob: 

(fest: lnvortbrolto- 


4700 - 

abc atart.x 

jy-atartcol 


4790 - 

ata langth,x 

t ergehn 1 a ln tabeile speichern 


4800 - 

in« 



4010 - 

iny 

(weiter, wenn ende doc 


4020 - 

cpy atrlon 

;leiatenstringa noch nicht 


4030 - 

bcc otartl 

jerreicht •> 


4040 




4050 - 

atx rnzahl 

jmonueanzahl apeichorn 


4060 -J 




4070 -« 




4080 -!••• Mlndowparameter holen •*• 


4090 - 

Jar chkkom 

;pointer auf doacriptoron 


4900 - 

jar gotpos 

(dna 1 .nrnueotrings holen 


4910 - 

ata indlz 

;und deacrltoren aolbat 


4920 - 

oty indix +1 

(nach atrlon ‘ ,'Btrpoa(«-l> ' 


4930 - 

jar holdon 



4940 




4950 - 

ldx 4253 

jx im tial l aioren 


4960 - 


; 1 mmor ! • 1 


4970 -| 




4980 -pari 

lda 40 

jatringzaehler 


4990 - 

ata cnti 

jinitialiaieren 


5000 -j 




5010 -par2 

ldy 40 

jpointer auf atringzoichen mit. 


5020 -par3 

lda (atrpoa),y 

;aktuelles 


5030 - 

cop 4" - 

;atr i ngzeichen-apace? 


5040 - 

boq par4 

;ja -> 


5050 -| 




5060 - 

jar noxtatr 

(naochcten atring 


3070 - 

jar holdoo 

;doacriptoren holen 


5080 - 

inc cnti 

jatringzaehler lnkrom. 

S46R 

5090 - 

bno par 2 



5100 -j 




5110 -par4 

iny 

jzeichenpointer inkrem. 


5120 - 

cpy atrlcn 

jatringendo erreicht? 


5130 - 

bcc par3 

; noin -> 


3140 - t 




5150 - 

lda cnti 

jlaengo doa aktuellen 


3160 - 

ata wlacnge.x 

jwindowo in tabelle 


5170 -| 




3100 -par5 

in» 

(breite des aktuellen 


3190 - 

lda atrlon 

(Windows ebenfalls 


5200 - 

ata wbreito.x 



3210 -| 




5220 - 

jar noxtatr 

(next atring 


3230 - 

jar holdes 

(doacriptoron holen 


5240 - 

lda indiz 

>adresBo der doacriptoron 


5230 - 

ata wpcii low.« 

(in tabelle merken 


3260 - 

lda indlz *1 



5270 - 

ata wpoihigh,x 



5280 




3290 - 

cpx inzahl 

(alle monuoa durch? 


3300 - 

bcc pari 

»nein -> 



Bild 11. In diesem Programmteil werden alle erforderlichen 
Parameter ermittelt 


7330 kommando-taaten 

7360 -key .by 29 jcra.right 

7300 - .by 137 

7390 - .by 17 jcra.down 

7600 - .by 143 jcra.up 

7610 - .by 13 jreturn 

7620 
7630 

7640 -!••• Sprungtab»11■ 

7660 -tab .wo right 

7670 - .wo Imit 

7680 - .wo down 

7690 - .wo up 

7700 - .wo return 

7710 
7720 

7723 -{••• wlndowparam.-tabellen ••• 

7730 -mtart .by 1.2,3,4,3,6.7.8,9 

7740 -langth .by 1,2,3,4,5,6,7,8,9 
7730 -sign .by 1,2,3,4,5,6.7,8,9 

7760 -wbraita .by 1,2,3,4,5,6,7,8,9 
7770 -wlaanga .by 1,2,3,4,3,6,7,8,9 
7780 -wpollow .by 1,2,3,4,3,6,7,8,9 
7790 -wpoihigh .by 1,2,3,4,3,6,7,8,9 


Wurde keine dieser Tasten betätigt, prüft der Teil »Direktan- 
wahl« (Bild 15), ob ein Untermenü direkt angewählt wird, das 
heißt ob der Anfangsbuchstabe eines Menünamens einge¬ 
geben und zugleich die Taste <CTRL> gedrückt wurde. 


’ 5330 -j*** 

initialiaiorung *•* 


5340 - 

lda 419 

;'Cursor homo 

3350 - 

jar bdout 

{ auageben 

5360 -( 



5370 - 

Pia 

(deacnptoren dos 

5380 - 

ata olrpoB*1 

{ leistenatrInga 

5390 - 

pla 

(holen 

5400 - 

ata atrpoa 


5410 - 

pla 


5470 - 

Bta atrlon 


5430 -j 



5440 - 

ldy 40 

( leiBtenstring auageben 

5450 -initl 

lda (atrpoa) ,y 


3460 - 

jar baout 


3470 - 

iny 


5400 - 

cpy atrlon 


5490 - 

bcc Initl 


3500 -| 



5310 - 

ld» 40 

imenuezaohler 

3320 - 

atx »raunt 

1 initlallaioren 

3330 -| 



5540 -| 



3350 -ja*# 

menue-auBgab* ••• 


5560 -auagabo Jar Ueagr 

(untorgrund retten 

3370 - 

jar minvert 

lmenuename invertieren 

3500 - 

Jar mprlnt 

1 menuo auageben 

5390 - 

lda 4253 

(menuopunkt initialiaieren 

5600 - 

ata point 

1(253-koin punkt angewaehlt) 


Bild 13. Das Programm wird initialisiert 


Wenn ja, wird der ursprüngliche Menüuntergrund aus dem 
Puffer geholt, der Menüname wieder normalisiert und 
anschließend zum beschriebenen Programmteil »Menü¬ 
ausgabe« gesprungen, der das angewählte Untermenü aus¬ 
gibt. 

Wenn nein, wird die gedrückte Taste mit den Anfangsbuch¬ 
staben der Kommandos des aktiven Untermenüs verglichen. 
Eine Übereinstimmung bedeutet, daß der Benutzer das 
betreffende Kommando direkt anwählt. In diesem Fall werden 
die Menü- und die Kommandonummer in den Speicherzellen 
167 und 168 an das aufrufende Programm übergeben und 
das Steuerungsprogramm beendet. 

Der folgende Abschnitt behandelt die Cursor- und die 
< RETURN >-Taste. < RETURN > bewirkt ebenfalls das Ver¬ 
lassen »w ; Programms, nachdem zuvor die getroffene Aus¬ 
wahl an das aufrufende Programm übergeben wird. 

< CRSR > -rechts/-links schließen das aktuelle und aktivie¬ 
ren ein benachbartes Untermenü. Der gerettete Untergrund 
des aktuellen Menüs wird auf den Bildschirm zurückge¬ 
schrieben (JSR HOLGR), der Menüname wieder normalisiert 
(JSR MNORMAL) und der Menüzähler MCOUNT in- 
(< CRSR >-rechts) beziehungsweise dekrementiert 
(< CRSR > -links). Den Abschluß bildet der Sprung zur Rou¬ 
tine AUSGABE, die das nun aktivierte Untermenü behandelt. 

Die Programmteile zur Behandlung von < CRSR >-unten/ 
-oben normalisieren das zuletzt selektierte Menükommando 
und invertieren das neu selektierte Kommando, bevor die 
Rückkehr zur Eingabeschleife erfolgt. 

Bild 16 zeigt den letzten Programmabschnitt, der aus den 
Unterprogrammen besteht, die das beschriebene Hauptpro¬ 
gramm aufruft. Gemeinsam ist diesen Routinen, daß ihre 
Hauptarbeit vorwiegend in der Parameterübergabe an die 
drei Unterprogramme »Untermenü zeichnen«, »Window ret¬ 
ten/holen« und »Screen-Ausschnitt invertieren/normalisie¬ 
ren« besteht. Der Aufruf dieser Unterprogramme erfolgt über 
die erläuterten Einsprungpunkte für Maschinenprogramme 
(INVJSR, WINJSR und PUFFERJSR). Zut Ermittlung der 
Window-Parameter werden die erwähnten Tabellen verwen¬ 
det. 

1. »Menüname invertieren/normalisieren« invertiert/norma¬ 
lisiert in der Menüleiste den Namen des Menüs Nummer 
MCOUNT. 

2. »Menüpunkt invertieren/normalisieren« invertiert/norma¬ 
lisiert das durch POINT angegebene Kommando des Menüs 
MCOUNT. 

3. »Menü ausgeben« gibt das Menü Nummer MCOUNT 
aus. 

4. »Untergrund retten/holen« holt/rettet den Untergrund 
von Menü MCOUNT. 

5. »Window-Param. übergeben« übernimmt für einige die- 


Bild 12. Hier werden 
die Parameter der 
Menüleiste gespeichert 
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5630 -}*#* 

tastatur abfragen 


5640 -get 

jsr getin 

lauf taste 

3650 - 

bsq get 

jwarten 

5660 - 

ata reichen 

{Zeichen merken 

5670 -J 



3680 - 

Id« «4 

1 Cursor- oder return-taste 

5690 -getl 

cap koy,x 

1 gedruecfct? 

5700 - 

beq get 2 

|ja -> 

5710 - 

dox 

|ansonsten zum 

5720 - 

bpi gell 

;toil dlroktanwahl' 

5730 - 

bmi direkt 


3740 



3750 -get2 

txa 

izaehler mit 2 

5760 - 

aal 

I multiplixieren 

5770 - 

ta« 

{ergibt zelger auf 

5700 - 

lda tab.x 

1 uprungt abel 1 e 

5790 - 

sta vektor 

ipointer fuer 

5B00 - 

lda tab*l,K 

linirekten sprung 

3810 - 

sta vektor*l 


5020 - 

Jmp (vektor) 

iJmp indirekt 


Bild 14. Routine zur Tastaturabfrage 


3830 

-!•** direktanwahl7 


5060 

-direkt 

cmp 

• 440 

jshlft-tastonkomblnation? 

3070 

— 

bcs 

direkt 2 

«J* -> 

5800 

- 

ora 

■ 440 

lin grosEbuchstabe wandeln 

5090 

- 

ld« 

mzahl 

;und mit anfangsbuchstaben 

5900 

- 

de« 


• der menuenamen 

5910 

-direktl 

cmp 

sign,« 

1 vergleichen 

5920 

— 

beq 

menue 

{gleich -> 

3930 

- 

de« 



5940 

- 

bpi 

direktl 


3950 

- 

bmi 

get 

1 falscher buchstabe -> 

3960 

“5 




5970 

-minus 

txa 


1 x (zeiger auf 

3900 

— 

pha 


jmonue-comand) retten 

3990 

- 

J»r 

holgr 

1 alten Untergrund holen 

6000 

— 

jsr 

mnornj] 

{alten menuenamen normallsieren 

6010 

- 

pla 


;x wiederholen und 

6020 

- 

tax 


{nach crs.left/right• springen 

6030 

— 

bpi 

mokay 

{immer ''' 

6040 

"1 




6050 

-dlrekt 2 

ldx 

mcount 

;pointer auf 1 .stnng 

6060 

— 

lda 

wpoxInw.x 

{des aktuellen 

6070 

- 

ata 

indiz 


6080 

- 

lda 

wpoihigh.x 

1 'indiz (*- 1 ) * 

6090 

- 

sta 

lndi 2 +i 

{holen 

6iea 





61 10 


lda 

•0 

izaehler mtial isieren 

6128 

-direkt3 

tax 



6130 

- 

Jsr 

holdes 

;descnptoren holen 

6140 

- 

iny 


{ta^ts mit den anfangs- 

6150 

— 

lda 

(strpos),y 

;buchstaben der menue- 

6160 

- 

cmp 

Zeichen 

;strings vergleichen 

6170 

— 

beq 

dirokt4 

{gleich ■> 

6180 

- 

jsr 

nextstr 

{sonst next String 

6190 

- 

i nx 


{untersuchen, wenn 

6200 

— 

txa 



6210 

— 

ldx 

mcount 

;string noch nicht 

6220 

- 

cmp 

wlacnge.x 

{behandelt wurde 

6230 

6240 


bcc 

bcs 

dirokt3 

get 

{buchstabe nicht im menue vorhanden ■>' 

6250 

“1 




6260 

-dirokt4 

stx 

point 

jnonuopunkt retten 

6270 

-return 

lda 

mcount 

{menuenummer und 

6280 

- 

sta 

parback 

;menuepunkt an basic 

6290 

- 

lda 

point 

;uebergeben 

6300 

- 

sta 

parback»l 


6310 

— 

jsr 

mnormal 

;menuenamo normalisieren 

6315 

- 

J»p 

hol gr 

{Untergrund holen * rts fff «*> basic f f f f f f 

6320 

-1 




6330 

-right 

jor 

holgr 

[Untergrund holen 

6340 

— 

jsr 

mnormal 

;menuonamo normalisieren 

6350 


ldx 

mcount 

;wenn bereits letztes 

6360 

- 

l nx 


;monuu erreicht« zaohlor 

6370 

- 

cp« 

mzahl 

{auf 1 .menue, sonst 


- 

bcc 

mokay 

;zaehler inkreo. 

6390 

- 

ldx 

• 0 


6400 

— 

beq 

»okay 

}immer ••f 

6410 

-I 

6420 

-left 

jsr 

holgr 

{Untergrund holen 

6430 

- 

jsr 

mnormal 

;monuonamo normalisieren 

6440 

- 

ldx 

mcount 

{wenn zaehler bereits 

6450 

- 

de« 


{auf 1 .menue: zaehler 

6460 

- 

cpx 

•255 

;auf last menue, 

6470 

- 

bno 

mokay 

{sonst zaehler 

6480 

— 

ldx 

mzahl 

;dekre«. 

6490 

- 

de« 


6500 

“1 




6510 


stx 

mcount 

{menuonummer retten 

6520 


jmp 

jusgabo 

{menue ausgoben » rts fff 

6530 

“I 




6340 

-down 

lda 

point 

(naechstee menue, wenn 

6330 

- 

bmi 

down 1 

I letztes menue nicht 

6560 

- 

jsr 

comnormal 

(bereits erreicht. 

6570 

-down 1 

lnc 

point 

(sonst 1 .menue 

6580 

- 

ldx 

mcount 


6390 

- 

lda 

point 


6600 

- 

cmp 

wlaenge,« 


6610 

— 

bcc 

down 2 


6620 

- 

lda 

• 0 


6630 

- 

sta 

point 


6640 

-down 2 

jsr 

cominvort 

{aktuellen monuepunkt invertieren 

6650 

-down’ 

jmp 

get 

1 ■> eingabeschleife 

6660 

-1 




6670 

-up 

lda 

point 

{voriger monuepunkt. 

6600 

- 

bmi 

down 3 

{wenn 1 .monuepunkt nicht 

6690 

•• 

lor 

comnormal 

{bereits erreicht, 

6/00 

- 

lda 

point 

»sonst last »enuepunkt 

6710 

— 

bnc 

upl 


6720 

- 

ldx 

mcount 


6730 

- 

lda 

wlaenge,« 


6740 

— 

ota 

point 


6730 

-upl 

dec 

point 


6760 


J-P 

down 2 

{weiter wie bei 'down' 


Bild 15. Wurde keine Taste gedrückt, überprüft dieser Pro¬ 
grammteil, ob ein Untermenü direkt angewählt wurde 


ser Unterroutinen die »Schwerarbeit«, die Parameter START, 
WBREITE und WLAENGE aus den Tabellen zu ermitteln. Aus¬ 
gangspunkt ist auch in dieser Routine wiederum die Menü¬ 
nummer MCOUNT. 



6705 

aenurnamo lnvert./normal.••• 


6790 

-comnormal 

lda «0 

;normalx sieren« 


6000 

- 

.by 42c 

;flag -0 


6020 

-cominvert 

lda NI 

|invertieren« 


6030 

- 

sta flag 

|flag-l 


6840 

-comi 

lda *2 


6050 

- 

clc 

1 invertierparamotor 


6060 

- 

ade point 

{(1 ine,col.breite. 


6870 

- 

sta 1 ine 



6880 

- 

ld« mcount 

{aktuellen menue- 


6090 

- 

lda Start,x 

(Punkt setzen und 


6900 

- 

sta col 

;die invertier- 


6910 

- 

inc col 

1 routlne aufrufen 


6920 

— 

lda wbroite.x 



6930 

— 

sta breite 



6940 

- 

lda «1 



6950 

— 

sta laongo 



6960 

- 

jmp invjsr 

irte 


6970 

”1 




6900 





6990 

-{••• menuepkt.»nvert/normalis. 


7000 

-mnormal 

lda N 0 

1 normalisieren« 


7010 

- 

.by 42c 

|flag -0 


7030 

-ainvert 

lda »1 

1 invertieren« 


7040 

- 

sta flag 

|fleg-I 


7050 

-mnor 

ld« N0 



7060 

- 

stx Uno 

1 invertlerparameter 


7070 


inx 

{uebergeben (zeile. 


7000 

“ 

Stx 1 aenge 

11 aenge,fIag sind fast) 


7070 

-| 




7100 

- 

ldx mcount 

1 startspaalte und 


7110 

- 

lda Start,« 

;tnvertlerbroi te 


7120 

- 

sta col 

(bestimmen 


7130 

- 

lda length.x 

{und Invertierroutine 


7140 

— 

sta brelto 

laufrufen 


7130 

“I 



7160 


jmp lnvjsr 

»rts m 


7170 

-1 




7100 





7190 

-!••• menue ausgeben 



7200 

-mprint 

jsr wparam 

Ipointer auf 1.menue- 


7210 

“ 

lda wpoilow.K 

1 etnng uobergoben und 


7220 

- 

ldy wpoihigh,« 

{mal raut 1 ne aufrufen 


7230 

— 

jmp winjor 

irts '!• 


7240 

-1 




7230 

-1 




7260 

-»*“• Untergrund retten/holen ••• 


7270 

- 1 iesgr 

lda HO 



7200 

— 

-by 42c 



7300 

-holgr 

lda Hl 



7310 

- 

sta flag 



7320 

-liosl 

lda *0 

[aua/in puffer nr .0 


7330 

- 

sta puffer 

|holon/schreiben 


7340 

- 

jsr wparam 

{windowparaenotor holen 


7350 

- 

jmp pufferjsr 

;einsprung ♦ rts f'' 


7360 

-1 




7370 

-1 




7300 

-;••• windowparam. uebergeben ••• 


7390 

-wparam 

ldx mcount 

(ueber 'mcount' 


7400 

— 

lda Start ,n 



7410 

- 

sta col 



7420 

- 

lda «1 

{dos aktuellon 


7430 

- 

sta 1 ine 

{Windows aus den 


7440 

- 

lda wbroite.x 

{tabeilen ermittelt 


7450 

- 

clc 

;(col,line,breite. 


7460 


ade 92 

; 1 aenge) 

1 

7480 

_ 




7490 

- 

clc 



7500 

- 

ade »2 



7510 

- 

sta laongo 



7520 


rts 



Bild 16. Unterprogramme, die vom Hauptprogramm benötigt 
werden 


Jene Leser, die sich die Mühe gemacht haben, den Pro¬ 
grammablauf anhand des Source-Textes und meiner Erläute¬ 
rungen zum Ablauf zu studieren, werden auch ohne »Bedie¬ 
nungsanleitung« zurechtkommen. 

Anleitung zum voigestellten Programm 


Da dieses Programm jedoch von allen Lesern genutzt wer¬ 
den sollte, nicht nur von Assembler-Profis, folgt nun eine 
kurzgefaßte Anleitung zur Einbindung der Routinen in Basic- 
Programme. 

Am Kapitelende finden Sie das MSE-Listing des Pro¬ 
gramms (Listing 2). Geben Sie das Programm ein und spei¬ 
chern mit einem Monitor den Bereich $C600 bis SCAFF, zum 
Beispiel unter dem Namen »PULL-DOWN«. 

Laden Sie dieses »Objektprogramm« immer vor (!) dem 
Basic-Programm mit LOAD "PULL-DOWN",8,1:NEW. Wird 
Ihr Basic-Programm nicht compiliert, ist auch ein Nachladen 
des Maschinenprogramms (von Diskette) möglich. Die erste 
Zeile Ihres Basic-Programms sollte in diesem Fall lauten: 

IF A=0 THEN A=1:LOAD"PULL-DOWN",8,1. 
Pull-down-Menüs 

Die Menüleiste und die einzelnen Kommandos der Unter¬ 
menüs werden im Basic-Programm in Form von Stringvaria¬ 
blen definiert. Beachten Sie folgende Hinweise: 

1. Die Menüleiste, eine beliebige Stringvariable, enthält die 
Namen aller Untermenüs, jeweils durch ein Leerzeichen 
getrennt. 
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2. Die Menükommandos werden in einem Stringarray defi¬ 
niert. Zuerst wird ein Leerstring angelegt, dessen Länge der 
maximalen Kommandolänge im ersten Menü entspricht. Die 
folgenden Strings enthalten die Kommandos des ersten 
Untermenüs. 

3. Alle weiteren Untermenüs werden auf die gleiche Weise 
im selben (!) Stringarray definiert. 

4. Dem letzten Kommando (=String) des letzten Menüs 
folgt ein Leerstring, der aus einem Leerzeichen (Space) 
besteht. 

5. Die Routine wird aufgerufen mit SYS 50697,menü$, 
array$. 

6. Mit den Cursor-Tasten können Sie Kommandos selektie¬ 
ren - und anschließend mit < RETURN > anwählen - und in 
den Untermenüs »blättern«. 

7. Mit <CTRL> und dem jeweiligen Anfangsbuchstaben 
des Menünamens kann ein Untermenü direkt aktiviert wer¬ 
den. Mit dem jeweiligen Anfangsbuchstaben kann in einem 
aktiven Untermenü ein Kommando direkt angewählt werden. 

8. Nach der Rückkehr aus der Routine befindet sich in 
Speicherzelle 167 die Nummer des aktiven Untermenüs und 
in 168 die Nummer des selektierten Kommandos. Die Nume¬ 
rierung beginnt in beiden Fällen mit null. 

Zum Thema Pull-down-Menüs betrachten Sie bitte das 
Listing des ersten Demoprogramms (»Demoprogramm 1«), 
Einzelne Routinen 

Außer dem Gesamtprogramm können drei Unterpro¬ 
gramme recht sinnvoll eingesetzt werden. Allen drei Unter¬ 
programmen müssen beim Aufruf die Parameter eines Recht¬ 
ecks in folgender Form angegeben werden: 

spalte/zeile: Die Bildschirmkoordinaten der oberen linken 
Ecke des Rechtecks (0/0 bis 39/24). 

breite: Die Breite des Rechtecks in Spalten. 

länge: Die Länge des Rechtecks in Zeilen. 

1. Die Invertier-Routine 

Diese Routine invertiert (flag=1) oder normalisiert (flag=0) 
einen beliebigen rechteckigen Bildschirmausschnitt. 

Aufruf: SYS 50688+6,spalte,zeile,breite,länge, flag 

Beispiel: SYS 50688+6,5,10,20,3,1 invertiert ein Recht¬ 
eck, dessen linke obere Ecke sich an Position 5/10 
(Spalte/Zeile) befindet, dessen Breite 20 Spalten beträgt und 
das drei Zeilen lang ist. 

2. Die Mal-Routine 

Diese Routine zeichnet einen Rahmen und füllt diesen mit 
Strings des angegebenen Arrays. 

Aufruf: SYS 50688,spalte,zeile,breite,länge, arrayS 

Beispiel: SYS 50688,2,4,10,5,A$(1) zeichnet einen Rah¬ 
men mit der linken oberen Ecke 2/4, der Breite zehn Spalten 


und einer Länge von fünf Zeilen. Die drei Innenzeilen des Rah¬ 
mens werden mit dem Inhalt der Strings A$(1), A$(2) und 
A$(3) gefüllt. 

3. Die Window-Routine 

Die Window-Routine ermöglicht in Verbindung mit der Mal- 
Routine absolut professionelles »Windowing«. Mit dieser 
Routine kann ein beliebiger rechteckiger Bildschirmaus¬ 
schnitt in einen »Puffer« gerettet werden, bevor er durch das 
Window selbst überschrieben wird. Soll das Window wieder 
»ausgeblendet« werden, kann mit der gleichen Routine der 
ursprüngliche Bildschirminhalt aus dem Puffer auf den Bild¬ 
schirm zurückgeschrieben werden. 

Aufruf: SYS 50688+3,spalte,zeile,breite, länge,flag,puffer 
flag: Mit diesem Parameter wird angegeben, ob ein Bild¬ 
schirmausschnitt in einen Puffer kopiert werden soll, oder 
aber umgekehrt der Pufferinhalt auf den Bildschirm zu schrei¬ 
ben ist. 

puffer: Sie können mehrere Windows, die sich gegenseitig 
teilweise verdecken (überlagern), beliebig ein- und ausblen¬ 
den. In diesem Fall werden jedoch verschiedene Puffer benö¬ 
tigt, um jeden Window-Untergrund separat zu speichern. Mit 
dem Parameter »puffer« geben Sie an, in welchen Puffer ein 
Bildschirmauschnitt kopiert wird beziehungsweise welcher 
Puffer benutzt werden soll, um den ursprünglichen Bild¬ 
schirminhalt wiederherzustellen. 

Wichtig: Die Numerierung der Puffer beginnt mit null. Jeder 
folgende Puffer darf erst benutzt werden, wenn der vorige 
Puffer wenigstens einmal mit einem Inhalt gefüllt wurde. Das 
bedeutet: Verwenden Sie den zweiten Puffer Nummer Eins 
erst dann, wenn bereits durch einen vorhergehenden Aufruf 
der erste Puffer Nummer Null verwendet wurde und so wei¬ 
ter. Die Verwendung mehrerer Puffer ist nur dann nötig, wenn 
Sie mehrere Windows überlagern (siehe »Demoprogramm 2« 
Listing 3'. Im »Normalfall« verwenden Sie bitte immer (!) Puf¬ 
fer Null. 

Beispiel: SYS 50688+3,5,5,15,10,1,0 schreibt (flag=1) 
den Inhalt eines rechteckigen Bildschirmausschnitts mit der 
oberen linken Ecke 5/5, der Breite 15 Spalten und der Länge 
zehn Zeilen in Puffer Null. Mit SYS 50688+3,5,5,15,10,0,0 
wird der ursprüngliche Inhalt dieses Bildschirmausschnitts 
wiederhergestellt (flag = 0 => von Puffer nach Bildschirm 
kopieren). 

Die Window-Routine ist zweifellos am schwierigsten anzu¬ 
wenden, sie bietet jedoch enorme Möglichkeiten, wie vor 
allem Demoprogramm 2 zeigt. Beachten Sie außer dem bis¬ 
her Gesagten, daß der Aufruf der Routine zum »Retten« 
beziehungsweise »Holen« eines Bildschirmausschnitts bis 
auf die Angabe »flag« identisch sein muß. (S. Baloui/ah) 


10 REM ****************** <053> 
20 REM * DEMOPROGRAMM 1 * <191> 
30 REM ****************** <073> 
40 s <016> 
50 : <026> 
60 IF A=0 THEN A=1: LOAD"PULL-DOWN-OBJECT" , 

8,1sREM ROUTINEN NACHLADEN <091> 
70 : <046> 
100 DIM A*(401:PRINT CHRS(147> <174> 
110 K*="FILE DISK EDIT HELP“ <052> 
120 A*(1) = "<6SPACE>“ <079> 
130 A*(2)="L0AD" <156> 
140 A*(3)="SAVE" <084> 
150 A*(4)="COPY" <167> 
160 M (5) = "RENAME" <253> 
170 A*(6)="DELETE" <02B> 
180 A*(7)=“<10SPACE>" <075> 
190 A$(8)="DIRECTORY“ <117> 
200 A*(9)="NAME" <255> 
210 A*(10)="ID“ <159> 
220 A$(11)="COPY" <191> 
230 A*(12)="DELETE“ <074> 


240 A*(13>="VALIDATE" <123> 
250 A$(14)=“INITIALISE“ <125> 
260 A*(15>="C12SPACE>" <051 > 
270 A*(16)="M0VE BLOCK“ <122> 
280 A»(17)="C0PY BLOCK" <191> 
290 A*<18)="DELETE BLOCK“ <017> 
300 A*(19)="SAVE BLOCK“ <001> 
310 A*(20)="LOAD BLOCK" <204> 
320 A*(21)="PRINT BLOCK" <223> 
330 A*(22)="<14SPACE>“ <216> 
340 A*(23)»"NOTEPAD" <118> 
350 A*(24)="CALCULATOR" <125 > 
360 A*(25)="DATABASE" , <076> 
370 A*(26)="W0RD PROCESSOR" <129> 
3B0 A*<27>="SPREADSHEET" <124> 
390 A$(28)="FILE—HANDLING" <219> 
400 A*(29)="DISK-HANDLING" <079> 
410 A$(30)=”<2SPACE>" <200> 
500 PRINT CHR*(19) <036> 


Listing 1. »Demoprogramm 1« 


126 


SONDERHEFT 12 







C64 


TIPS & TRICKS 


504 

PRINT:PRINT"DIES IST EIN TEST DER ROUT 


527 

PRINT"UND MENUEPUNKTAUSWAHL DURCH" 

<089> 


INEN " 

<013> 

528 

PRINT”JEWEILIGEN ANFANGSBUCHSTABEN"; 

< 196> 

505 

PRINT"ZUR VERWALTUNG VON PULL-DOWN-MEN 


530 

IF PEEK(653)< >4 THEN 530 

< 131 > 


LIES" 

<023> 

540 

SYS 50697,KS,A*<1> 

<011> 

510 

PRINT:PRINT:PRINT:PRINT:PRINT: PRINT: PR 


550 

PRINT CHRS(19) 

<088> 


INT:PRINT:PRINT:PRINT:PRINT:PRINT 

<129> 

560 

PRINT:PRINT:PRINT:PRINT:PRINT:PRINT: PR 

520 

PRINT "AUFRUF : CTRL—TASTE DRUECKEN" 

<063> 


INT:PRINT:PRINT:PRINT:PRINT 

<255> 

521 

PRINT 

< 115> 

565 

PRINT"GETROFFENE AUSWAHL:“ 

< 137> 

522 

PRINT"STEUERUNG: CURSORTASTEN ZUM BLAE 


570 

PRINT "MENUE NR.C4SPACE,5LEFT>"PEEKC16 



TTERN" 

<247> 


7) + 1 

<061 > 

523 

PRINT"VON MENUE ZU MENUE UND ZUR AUSWA 


580 

PRINT "MENUEPUNKT NR.<4SPACE,4LEFT>"PE 



HL IM" 

<023> 


EK <168)+1“ 

<232> 

524 

PRINT-UNTERMENUE. ANWAHL: -RETURN'" 

<091 > 

590 

GOTO 500 

<042> 

525 

PRINT 

< 119> 




526 

PRINT"ALTERNATIV: 'CTRL'+MENUEANFANGSBU 






CHSTABE " 

<0B3> 

Listing 1. »Demoprogramm 1« 



Name 

I 

pul 1-down-obJect 

c600 ca29 

c758 

c760 

3 

de 

0e 

60 

de 

ad 

60 

Be 

a9 

de 

05 

09 

20 

01 

0c 

8d 

c6 

c7 

39 

c8c0 

c8c8 

: 

: 

41 

8a 

03 

ae 

f0 

3e 

0f 

03 

20 

dd 

33 

0f 

c6 

ca 

e8 

90 

29 

3c 

c600 

: 

4c 

4a 

c6 

4c 

c4 

c6 

4c 

63 

27 

c768 

: 

20 

3f 

c6 

ce 

38 

03 

ae 

37 

78 

c8d0 

3 

e7 

b0 

90 

Be 

40 

03 

ad 

3e 

55 

C60B 

: 

c7 

4c 

al 

c7 

8d 

34 

03 

a2 

22 

c770 

: 

03 

18 

20 

f0 

ff 

a5 

dl 

18 

4a 

c8d8 

3 

03 

85 

a7 

ad 

40 

03 

85 

a8 

cl 

c61 B 

: 

00 

8e 

35 

03 

20 

fd 

ae 

20 

f 2 

C77B 

: 

6d 

36 

03 

85 

dl 

90 

02 

e6 

e9 

c8e0 

3 

20 

79 

c9 

4c 

ab 

c9 

20 

ab 

9a 

c618 

3 

9e 

b7 

8a 

ae 

35 

03 

9d 

36 

59 

C780 

3 

d2 

ac 

38 

03 

bl 

dl 

ae 

3a 

f0 

c8e8 

3 

c9 

20 

79 

c9 

ae 

3e 

03 

e8 

14 

c620 

: 

03 

e8 

ec 

34 

03 

d0 

ea 

60 

7c 

c788 

: 

03 

f0 

03 

09 

80 

2c 

29 

7f 

f 2 

c8f 0 

3 

ec 

3f 

03 

90 

16 

a2 

00 

f0 

a7 

c62B 

: 

a0 

02 

bl 

a9 

99 

ad 

00 

88 

83 

c790 

3 

91 

dl 

88 

10 

ef 

ee 

37 

03 

87 

c8f 8 

3 

12 

20 

ab 

c9 

20 

79 

c9 

ae 

91 

c630 

5 

10 

■#8 

60 

a5 

a9 

18 

69 

03 

90 

c798 

3 

ae 

37 

03 

ec 

39 

03 

d0 

dl 

d3 

c900 

3 

3e 

03 

ca 

e0 

ff 

d0 

04 

ae 

82 

c638 

: 

85 


90 

02 

e6 

aa 

60 

ad 

97 

c7a0 


60 

20 

fd 

ae 

20 

8b 

b0 

85 

92 

c908 


3f 

03 

ca 

Be 

3e 

03 

4c 

55 

25 

c64 0 

: 

37 

03 

18 

6d 

39 

03 

Bd 

39 

01 

c7a8 

3 

a9 

B4 

aa 

20 

28 

c6 

a5 

ad 

ed 

c910 

3 

c8 

ad 

40 

03 

30 

03 

20 

4e 

58 

c648 

: 

03 

60 

a9 

04 

20 

0c 

c6 

20 

24 

c7b0 

3 

48 

a5 

ae 

48 

a5 

af 

48 

a0 

ba 

c918 


c9 

ee 

40 

03 

ae 

3e 

03 

ad 

0d 

c650 

: 

fd 

ae 

20 

8b 

b0 

85 

a9 

84 

05 

C7b8 

3 

00 

a2 

00 

bl 

ae 

c9 

20 

d0 

9b 

c920 

3 

40 

03 

dd 

0f 

ca 

90 

05 

a9 

d4 

c658 

: 

aa 

20 

3f 

c6 

ce 

39 

03 

ce 

lb 

C7C0 

3 

03 

c8 

d0 

f 7 

9d 

fd 

c9 

98 

7c 

c928 


00 

Bd 

40 

03 

20 

51 

c9 

4c 

ac 

c660 

: 

38 

03 

ce 

38 

03 

a9 

00 

Bd 

6d 

c7cB 


9d 

eb 

c9 

bl 

ae 

C9 

20 

f0 

9f 

c930 

3 

63 

c8 

ad 

40 

03 

30 

f 8 

20 

41 

C668 

: 

3a 

03 

20 

87 

c6 

ee 

3a 

03 

f0 

c7d0 

: 

05 

cS 

c4 

ad 

90 

f 5 

98 

38 

ac 

c938 


4e 

c9 

ad 

40 

03 

d0 

09 

ae 

16 

C670 

s 

20 

28 

c6 

20 

87 

c6 

20 

33 

f0 

c7d8 

: 

fd 

eb 

c9 

9d 

f 4 

c9 

e8 

c8 

c4 

c940 

3 

3e 

03 

bd 

0f 

ca 

Bd 

40 

03 

71 

c67B 

3 

c6 

ad 

37 

03 

cd 

39 

03 

d0 

97 

c7e0 

: 

c4 

ad 

90 

d7 

8e 

3f 

03 

20 

c9 

c948 


ce 

40 

03 

4c 

2c 

c9 

a9 

00 

38 

C6B0 

s 

ef 

ee 

3a 

03 

4c 

87 

c6 

ae 

4f 

c7e8 

: 

fd 

ae 

20 

Bb 

b0 

85 

a9 

84 

9d 

c950 

3 

2c 

a9 

01 

8d 

3a 

03 

a9 

02 

a9 

c6B8 

S 

Sy 

03 

ac 

36 

03 

18 

20 

f0 

86 

c7f 0 

: 

aa 

20 

28 

c6 

a2 

ff 

d0 

23 

41 

c95B 

3 

18 

6d 

40 

03 

8d 

37 

03 

ae 

93 

c 690 

: 

ff 

ae 

3a 

03 

bd 

bb 

c6 

20 

ea 

c7-f 8 

: 

a9 

00 

8d 

34 

03 

a0 

00 

bl 

24 

c 960 


3e 

03 

bd 

eb 

c9 

Bd 

36 

03 

f 4 

c698 

s 

d2 

f f 

a0 

00 

bd 

be 

c6 

e0 

41 

C800 

: 

ae 

c9 

20 

f 0 

0b 

20 

33 

c6 

c5 

C968 


ee 

36 

03 

bd 

06 

ca 

8d 

38 

47 

c6a0 

! 

01 

d0 

06 

c4 

ad 

b0 

02 

bl 

ef 

c80B 

3 

20 28 



34 

lo^ .-0 

ed 

46 

C970 


03 

a9 

01 

8d 

39 

03 

4c 

68 

e8 

c6aS 

S 

ae 

20 

d2 

ff 

c8 

cc 

38 

03 

f 5 

C810 

3 

cB 

c4 

ad 


ea 

aa 

^4 

03 

ab 

C978 


c7 

a9 

00 

2c 

a9 

01 

8d 

3a 

e7 

c6b0 

: 

d 0 

ea 

ee 

37 

03 

bd 

cl 

c6 

4b 

cB18 

3 

9d 

0f 

ca 

e8 

a5 

ad 

9d 

06 

57 

c980 


03 

a2 

00 

8e 

37 

03 

e8 

8e 

f 3 

c6b8 

: 

4c 

d2 

ff 

b0 

7d 

ad 

60 

20 

8a 

c820 

3 

ca 

20 

33 

c6 

20 

28 

c6 

a5 

4a 

c988 


39 

03 

ae 

3e 

03 

bd 

eb 

c9 

18 

C6c0 

: 

60 

ae 

7d 

bd 

a9 

06 

20 

0c 

f2 

C828 

3 

a9 

9d 

18 

ca 

a5 

aa 

9d 

21 

68 

c990 

8 

8d 

36 

03 

bd 

f 4 

c9 

Bd 

38 

f 5 

c6c8 

: 

c6 

a5 

00 

a6 

f0 

8d 

93 

02 

03 

c830 

3 

ca 

ec 

3f 

03 

90 

C2 

a9 

13 

Bc 

c998 

3 

03 

4c 

68 

c7 

20 

bb 

c9 

bd 

57 

C6d0 

: 

8e 

94 

02 

ae 

3b 

03 

bd 

93 

e9 

c838 

3 

20 

d2 

ff 

68 

85 

af 

68 

85 

51 

c9a0 

3 

18 

ca 

bc 

21 

ca 

4c 

55 

c6 

63 

c6d8 

: 

02 

85 

ab 

bd 

94 

02 

85 

ac 

08 

c840 

3 

ae 

68 

85 

ad 

a0 

00 

bl 

ae 

68 

c9a8 

3 

a9 

00 

2c 

a9 

01 

8d 

3a 

03 

fd 

c6e0 


20 

3f 

c 6 

ae 

37 

03 

ac 

36 

d2 

c848 

3 

20 

d2 

ff 

c8 

c4 

ad 

90 

f 6 

d4 

c9b0 


a9 

00 

Bd 

c4 

c6 

20 

bb 

c9 

45 

c6e8 

3 

03 

18 

20 

f0 

ff 

20 

51 

c7 

#3 

c850 

3 

a2 

00 

8e 

3e 

03 

20 

a8 

C9 

c5 

C9b8 


4c 

c9 

c6 

ae 

3e 

03 

bd 

eb 

3b 

c6t 0 


a9 

34 

85 

01 

20 

5a 

c7 

a5 

74 

c8sa 

3 

20 

7c 

C9 

20 

9c 

c9 

a9 

ff 

eb 

c9c0 

3 

c9 

8d 

36 

03 

a9 

01 

8d 

37 

85 

c6f 8 

s 

d"Z 

85 

aa 

a5 

dl 

1B 

6d 

36 

ec 

c860 

3 

8d 

40 

03 

20 

e4 

ff 

fe 

fb 

de 

c9c8 


03 

bd 

06 

ca 

18 

69 

02 

Bd 

75 

c700 

3 

03 

85 

a9 

90 

02 

e6 

aa 

ac 

9e 

c868 

3 

8d 

41 

03 

a2 

04 

dd 

de 

c9 

el 

c9d0 

3 

38 

03 

bd 

0f 

ca 

18 

69 

02 

f 2 

c708 

3 

38 

03 

88 

ad 

3a 

03 

d0 

06 

aS 

c870 

3 

f0 

05 

ca 

10 

f 8 

30 

12 

8a 

06 

c9d8 

3 

Bd 

39 

03 

60 

ld 

9d 

11 

91 

f 5 

c710 

S 

bl 

a9 

91 

ab 

d0 

04 

bl 

ab 

bb 

cB78 

: 

0a 

aa 

bd 

el 

c9 

8d 

42 

03 

9b 

c9e0 

3 

0d 

e6 

c8 

f 9 

c8 

11 

c9 

32 

72 

C718 

3 

91 

a9 

SB 

10 

M 

a5 

ab 

1B 

9d 

cB80 

3 

bd 

e2 

c9 

Bd 

43 

03 

6c 

42 

55 

c9b8 

3 

c9 

d6 

cB 

01 

02 

03 

04 

05 

cl 

c720 

: 

6d 

38 

03 

85 

ab 

90 

02 

e6 

30 

c888 

3 

03 

c9 

40 

b0 

lc 

09 

40 

ae 

fe 

c9f 0 


06 

07 

08 

09 

01 

02 

03 

04 

dl 

c728 

3 

ac 

20 

51 

c7 

a9 

37 

85 

01 

9e 

cB90 

3 

3f 

03 

ca 

dd 

fd 

c9 

f0 

05 

bb 

c9f 8 

3 

05 

06 

07 

08 

09 

01 

02 

03 

6a 

c730 

3 

20 

5a 

c7 

a9 

11 

20 

d2 

ff 

02 

c89B 

3 

ca 

10 

f 8 

30 

c6 

8a 

48 

20 

dl 

ca00 

3 

04 

05 

06 

07 

08 

09 

01 

02 

ba 

c738 

3 

a5 

d6 

cd 

39 

03 

d0 

ae 

ae 

b2 

c8a0 

: 

ab 

c9 

20 

79 

c9 

68 

aa 

10 

12 

ca08 

3 

03 

04 

05 

06 

07 

0 B 

09 

01 

e6 

c740 

3 

3b 

03 

e8 

8a 

0 a 

aa 

a5 

ab 

6c 

c8aB 

3 

62 

ae 

3e 

03 

bd 

18 

ca 

85 

24 

cal0 

: 

02 

03 

04 

05 

06 

07 

08 

09 

00 

c748 

3 

9d 

93 

02 

a5 

ac 

9d 

94 

02 

f2 

c8b0 

3 

a9 

bd 

21 

ca 

85 

aa 

a9 

00 

2e 

ca 18 

: 

01 

02 

03 

04 

05 

06 

07 

08 

08 

C750 

3 

60 

ad 

0e 

de 

29 

fe 

8d 

0e 

83 

c8bB 

: 

aa 

20 

28 

c6 

CB 

bl 

ae 

cd 

c6 

ca20 

ca28 

3 

09 

08 

01 

ff 

02 

ff 

03 

ff 

04 

ff 

05 

ff 

06 

ff 

07 

ff 

19 

30 

Listing 2. 

»pull-down-objekt< 

- Maschinencode zu den Menüroutinen. Das Programm wird von den Demoprogrammen 1 
und 2 automatisch nachgeladen. 


10 

REM ****************** 

<053> 


ERSTE WINDOW":PRINT 

<212> 

20 

REM * DEMOPROGRAMM 2 * 

< 192> 

120 

FOR 1=1 TO 20 

< 139> 

30 


<073> 

130 

: PRINT"C2SPACE JUEBERLAGERUNG 

MEHRERER 

40 

s 

<016> 


WINDOWS" 

< 134> 

50 

8 

<026> 

140 

NEXT 

< 150> 

60 

IF A=0 THEN A=l:LOAD"PULL-DOWN-OBJECT", 


150 

SYS 50688+3,5,5,15,10,0,0 

<221 > 


8,1:REM ROUTINEN NACHLADEN 

<091 > 

160 

SYS 50688,5,5,15,10,AS(1> 

<09B> 

70 

: 

<046> 

170 

SYS 50688+3,15,8,8,13,0,1 

<093> 

71 

DIM AS(20>,BS<20) 

< 105> 

180 

SYS 50688,15,8,8,13,BS C1) 

<057> 

72 

FOR 1 = 1 TD 20 

<091 > 

200 

GET AS:IF A*<>" ” THEN 200 

<175> 

73 

: AS(I)="DIES IST EIN TEST" 

<244 > 

210 

SYS 50688+3,15,8,8,13,1,1 

< 165> 

74 

: B*<I>="EIN WEITERER TEST" 

<027> 

220 

GET AS: IF ASO" " THEN 220 

< 196> 

75 NEXT 

76 : 

100 PRINT CHRS(147) 

<085> 

<052> 

< 129> 

230 

SYS 50688+3,5,5,15,10,1,0 

<077> 

110 PRINT"-SPACE’ SCHLIESST DAS JEWEILS OB 


Listing 3. »Demoprogramm 2« 
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Der Weg zum 
optimalen Programm 


Wenn Sie Programme schreiben, sind bestimmte 
Vorgehensweisen erforderlich, um das Software¬ 
produkt übersichtlich und möglichst fehlerfrei zu 
erstellen. Wir zeigen Ihnen, wie das die Profis 
machen. 

U m Mißverständnisse zu vermeiden: Dieser Artikel will 
Ihnen keine Programmiersprache beibringen, sondern 
allgemeine Prinzipien der Programmierung, die von der 
verwendeten Programmiersprache völlig unabhängig sind. 

Diese Prinzipien sind vorwiegend für jene Leser interes¬ 
sant, die planen, größere »Programmpakete« zu erstellen. 
Solche Programme - zum Beispiel eine Textverarbeitung, 
Dateiverwaltung oder Buchhaltung - werden sehr schnell 
unübersichtlich. Daher ist eine eingehende Planung des 
»Programmsystems« notwendig, bevor (!) die Umsetzung 
(Codierung) in einer Programmiersprache erfolgt. 

Vor allem im Heimcomputer-Bereich werden Programme 
ohne genaue Vorstellung erstellt. Die Vorgehensweise: Der 
Programmierer besitzt eine verschwommene Vorstellung 
vom endgültigen Programm, setzt sich an den Computer und 
»legt los«. Während der Programmierung stellt sich dann her¬ 
aus, daß benötigte Programmteile vergessen wurden. Kein 
Problem, Programmzeilen lassen sich ja »einflicken«. Wenn 
das Programm - oftmals nach sehr kurzer Zeit - fertiggestellt 
ist, beginnen die eigentlichen Probleme: 

- Verschiedene Programmfunktionen wurden einfach über¬ 
sehen. Beispiel: »Hinterher« fällt dem Programmierer ein, 
daß in einer Dateiverwaltung »Datensätze« nicht nur einge¬ 
tragen, geändert, gelöscht und gesucht werden, sondern 
es auch möglich sein sollte, die gesamte Datei nach einem 
beliebigen »Feld« des Datensatzes zu sortieren, nach dem 
Namen, der Postleitzahl oder dem Wohnort. 

- Mangels Planung ist das gesamte Programm ungeeignet. 
Wieder das Beispiel Dateiverwaltung: Die Datensätze wer¬ 
den ungeordnet gespeichert. Soll die Datei sortiert ausge¬ 
geben werden, muß zuvor ein »Sortierlauf« durchgeführt 
werden, der die Datei zum Beispiel nach dem Feld »Name« 
ordnet und bei großen Datenmengen lange dauern kann. 
Interessiert Sie vorwiegend dieses Feld, wäre es besser, 
die Datensätze gleich beim Einträgen nach dem Namen 
geordnet zu speichern. In diesem Fall wäre die Datei stän¬ 
dig (!) - bezüglich des Felds »Name« - sortiert und Sortier¬ 
läufe entfielen fast völlig. 

Das eigentliche Problem besteht in der Programmände¬ 
rung. Stellen Sie sich ein komplexes Programm vor, zum Bei¬ 
spiel die beschriebene Dateiverwaltung. Das Programm soll 
nun umgebaut werden, so daß Datensätze sofort beim Einträ¬ 
gen nach dem jeweiligen Namen geordnet in die Datei einge¬ 
tragen werden. 

Leider genügt es in den seltensten Fällen, den Programm¬ 
teil zum Einträgen eines Satzes zu ändern (der sowieso kom¬ 
plett neu zu schreiben ist). Meistens sind die verschiedenen 
Teile eines Programms ineinander »verzahnt« und Änderun¬ 
gen in einem Teil machen Änderungen in allen damit zusam¬ 
menhängenden Programmteilen notwendig. Bei großen Pro¬ 
grammen sind Sie damit ebensolange beschäftigt wie mit der 
eigentlichen Programmerstellung. 


Im geschilderten Beispiel wird der Arbeitsaufwand noch 
größer, da sich durch geordnete Speicherung auch der Pro¬ 
grammablauf ändert. Wenn die Datei ständig sortiert ist, bie¬ 
tet es sich an, zusätzliche Funktionen einzubauen, zum Bei¬ 
spiel zum alphabetischen »Durchblättern« der Datei. Der 
Datensatz »Maier/Hamburg« befindet sich auf dem Bild¬ 
schirm, und Sie wollen den alphabetisch folgenden Daten¬ 
satz sehen (zum Beispiel »Meier/Mannheim«). Dank der 
geordneten Datei kann diese Funktion prinzipiell verwirklicht 
werden, jedoch bestimmt nicht problemlos, wenn vor der 
Erstellung des Programms noch niemand eine solche Funk¬ 
tion berücksichtigte. 

Wenn sich mangels Planung wie in diesem Fall nachträglich 
die verwendeten »Datenstrukturen« ändern, ist das Pro¬ 
gramm oft reif für den Papierkorb und es ist leichter, das Pro¬ 
gramm neu zu schreiben, als das vorhandene Programm 
komplett umzubauen. 

Noch ein Wort zum »Umbauen«. Das Umbauen und »Ent- 
fehlern« oder »Debuggen« von Programmen, die auf die 
beschriebene Weise entstanden sind, ist eine Sache für sich. 
Sie alle kennen bestimmt den Ausdruck »Spaghetti-Code«. 
Spaghetti-Programme entstehen vorwiegend, wenn »drauf¬ 
losprogrammiert« wird. Während (!) der Programmerstellung 
wird dßi ■; igentliche Ablauf klarer und daraufhin fügt man hier 
schnell ein GOTO ein, dort ändert man eine Zeile, und an einer 
dritten Stelle werden gleich mehrere Programmzeilen einge¬ 
fügt. 

Das Ergebnis: Niemand, auch nicht der Programmierer 
selbst, versteht ein solches Programm. Änderungen sind 
extrem zeitaufwendig, wenn überhaupt machbar. Die Verzah¬ 
nung der verschiedenen Programmteile führt oft dazu, daß 
Änderungen in einem Teil Fehler in einem anderen Teil nach 
sich ziehen, der zuvor einwandfrei funktioniert hat. 

Das bisher Gesagte bezieht sich übrigens nur auf größere 
Programme. Theoretisch sollten auch Programme mit nur 
zehn Zeilen eingehend geplant werden, doch diese Vorge¬ 
hensweise ist wohl unrealistisch. 

Der Prozeß der Software-Entwicklung 


Es existieren formale Richtlinien zur Beschreibung des Pro¬ 
zesses der Software-Entwicklung. An diese Richtlinien 
werde ich mich im folgenden anlehnen. Ich gehe davon aus, 
daß die wenigsten unter Ihnen planen, Programme im 
»Fremdauftrag« zu entwickeln, um zum Beispiel für einen 
Betrieb eine Buchhaltung oder Fakturierung zu erstellen. In 
diesem Fall entfallen natürlich Dinge wie Handbücher oder 
eingehende Sitzungen mit der Auftraggeber, um zu klären, 
welche Funktionen das Programm bieten soll. 

Einige dieser Richtlinien sollten jedoch auch dann berück¬ 
sichtigt werden, wenn Sie größere Programme nur für sich 
selbst schreiben. In den folgenden Erläuterungen werde ich 
als Beispiel die Erstellung eines Programms zur Verwaltung 
sogenannter »Pull-down-Menüs« verwenden, das in diesem 
Sonderheft abgedruckt ist. Sollten Sie nicht wissen, was ein 
Pull-down-Menü ist, schauen Sie sich bitte die Abbildungen 
in dem zugehörigen Artikel an. 

Das Programm soll Pull-down-Menüs verwalten. Die 
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»Menüleiste« enthält die Namen aller »Untermenüs«. Der 
Benutzer steuert mit den Cursor-Tasten die Funktionsaus¬ 
wahl. Mit <CRSR>-rechts/-links wählt er das gewünschte 
Menü an, das unterhalb der Menüleiste über den Bildschirm 
gelegt wird. 

Mit <CRSR>-oben/-unten wählt er das gewünschte 
Kommando im »aktiven« Menü aus (Bestätigung mit 
< RETURN >). Alternativ sollte eine »Direktanwahl« möglich 
sein. Gleichzeitiges Drücken von <CTRL> und der Taste, 
die dem Anfangsbuchstaben eines Menünamens entspricht, 
aktiviert das jeweilige Menü, beispielsweise aktiviert 
<CTRL+F> das Untermenü »File«. 

Ähnlich sollte es möglich sein, in einem aktiven Untermenü 
ein Kommando direkt anzuwählen, indem der Anfangsbuch¬ 
stabe des Kommandos eingegeben wird (mit < C > wird das 
Kommando »Copy« ausgewählt). 

Wie erläutert, kann der Benutzer in den Untermenüs »blät¬ 
tern«, wobei diese Menüs »ein-« und wieder »ausgeblendet« 
werden. In jedem Fall muß nach dem Ausblenden eines 
Menüs der ursprüngliche Untergrund des »Menüwindows« 
wiederhergestellt werden, zum Beispiel ein Brief oder ein 
Datensatz. 


ter« notwendig, mit denen die Arbeitsweise des Moduls im 
jeweiligen Fall bestimmt wird. Ein Beispiel ist eine Sortierrou¬ 
tine, der anzugeben ist, wie groß das zu sortierende Array ist. 

3. Schnittstellen existieren meist in beiden Richtungen: 
Das aufrufende Programm übergibt Parameter an das Modul, 
und das Modul übergibt Parameter an das aufrufende Pro¬ 
gramm, zum Beispiel das Ergebnis einer Berechnung. 

Zur Verdeutlichung stelle ich eine kleine »Formatierroutine« 
vor, die zur formatierten Ausgabe von Zahlen in einer Tabelle 
verwendet wird: 

460 REM ##*##*#*############*# 

470 REM * ZAHLENFORMATIERUNG * 

480 REM ###*################## 

490 : 

500 REM AV=ANZAHL VORKOMMASTELLEN (PARAMETER HIN) 

510 REM AN=ANZAHL NACHKOMMASTELLEN (PARAMETER HIN) 
520 REM FZ=ZU FORMATIERENDE ZAHL (PARAMETER HIN) 

530 REM FZ$=F0RMATIERTE ZAHL ALS STRING 
(PARAMETER ZURUECK) 

540 : 

550 REM BSP.: AV=5:AN=2:FZ=1.5:G0SUB 580 => FZ$= 

" 1.50" 


Das Problem »Pull-down-Menüs verwalten« ist grob analy¬ 
siert. Die prinzipielle Art und Weise des Programmablaufs ist 
festgelegt. Die Problemanalyse ist in diesem Fall recht ein¬ 
fach, da das Problem weniger komplex ist als zum Beispiel die 
Erstellung einer Dateiverwaltung. 


Planung 


ln der Planungsphase wird geklärt, in welcher Programmier¬ 
sprache der »Programmcode« erstellt wird und wie das Pro¬ 


560 

570 

580 

590 

600 

610 

620 


REM AV=5:AN=2:FZ=123 
" 123.00" 


GOSUB 580 => FZ$= 


FZ$=STR$(FZ):REM ZAHL IN STRING WANDELN 
IF FZ> 10"AV 0R AV>9 THEN RETURN:REM 
BEREICHSPRUEFUNG 

F0R A=1 T0 LEN(FZ$):REM POSITION EINES 
EVENTUELL ENT- 

: IF MID$(FZ$,A,l)="." THEN 630:REM HALTENEN 
DEZIMAL- 

NEXT:REM PUNKTES IN <A> MERKEN 


• . --—^ .lujri ruimiüo rmriraiiN 

gramm im einzelnen aufgebaut ist. Das Gesamtproblem wird 630 >» A> LEN(FZ$) THEN FZ$=FZ$+". ":REM DEZ.PUNKT 


in Teilprobleme gegliedert, zum Beispiel das Problem, den 
ursprünglichen Bildschirminhalt wieder herzustellen, wenn 
ein Untermenü »zugeklappt« wird. Diese Untergliederung 
führt dazu, daß das Gesamtprojekt überschaubar wird. 

Als Programmiersprache wurde in diesem Fall der 
Geschwindigkeit wegen Assembler gewählt. Zugegeben: 
Sollten Sie ausschließlich Basic-Kenntnisse besitzen, entfällt 
für Sie dieser Teil der Planung. 

Außerordentlich wichtig ist die Aufteilung des Gesamtpro¬ 
gramms in einzelne »Module«. Es gibt verschiedene Möglich¬ 
keiten zur Aufteilung. Am sinnvollsten erscheint die Untertei¬ 
lung des Gesamtprogramms in »funktional« abgeschlossene 
Teile, das heißt in Teile, die eigenständig und möglichst unab¬ 
hängig vom Rest des Programms sind. Ein Beispiel wäre eine 
Sortierroutine. Bei einer solchen Routine wird angegeben, 
welches Array sortiert werden soll. Ansonsten ist sie völlig 
unabhängig vom restlichen Programm. 

Funktional abgeschlossene Module besitzen einen enor¬ 
men Vorteil gegenüber anderen Arten der Aufteilung: Dank 
Ihrer Unabhängigkeit können sie in verschiedenen Program¬ 
men verwendet werden. Allmählich entsteht auf diese Weise 
eine »Modul-Bibliothek« mit einer Sortierroutine, einer Einga¬ 
beroutine und so weiter. Bei der Erstellung eines beliebigen 
Programms kann immer wieder auf diese Bibliothek zurück¬ 
gegriffen werden. Mit der Aufteilung in funktionale Module 
ersparen Sie sich viel Arbeit, da bei späteren Programmen 
oftmals der »Griff in die Kiste« genügt, und schon besitzen Sie 
eine Sortierroutine, die sofort in das aktuelle Programm ein¬ 
zubauen ist. 

Module besitzen folgende Kennzeichen: 

1. Module besitzen meist die Form von Unterprogrammen, 
das heißt sie enden mit RETURN (Basic) oder RTS (Assem¬ 
bler). 

2. Wichtig ist die exakte Definition der »Schnittstellen« des 
Moduls. Fast immer ist die Übergabe sogenannter »Parame¬ 


ANHAENGEN 

640 FZ$= * "+FZ$:REM 10 SPACES VOR STRING 

650 FZ$=RIGHT$(FZ$,LEN(FZ$)-9+AV-A):REM 
V0RK0MMATEIL 

660 FZ$=FZ$+"0000000000":REM 10 NULLEN ANHAENGEN 
670 FZ$=LEFT$(FZ$,AV+AN+1):REM NACHKOMMATEIL 
680 RETURN 

Diese Routine wurde bereits vor längerer Zeit erstellt und 
soll hier nicht diskutiert und im Detail besprochen werden. 
Entscheidend ist die Verwirklichung der besprochenen Prin¬ 
zipien. 

Die Beispiele in den Zeilen 550 und 560 zeigen die Funk¬ 
tionsweise der Routine. Das aufrufende Programm übergibt 
die Parameter »AV«, die maximale Anzahl der Vorkommastel¬ 
len, »AN«, die gewünschte Anzahl der Nachkommastellen 
und die zu formatierende Zahl »FZ«. 

Die Routine formatiert die Zahl in der gewünschten Weise 
und übergibt sie im String »FZ$« an das aufrufende Pro¬ 
gramm. 

Es handelt sich um ein funktionales Modul, da es eine klar 
umrissene Funktion hat, die Formatierung einer Zahl und vom 
restlichen Programm völlig unabhängig ist. Dadurch kann die 
Routine in beliebigen Programmen eingesetzt werden. 

Ein wichtiger Gesichtspunkt bei der »modularen Program¬ 
mierung« ist die Flexibilität der Module. Es wäre problemlos 
möglich gewesen, die vorgestellte Routine so zu schreiben, 
daß Zahlen beispielsweise immer (!) mit fünf Vor- und zwei 
Nachkommastellen formatiert werden. Möglicherweise ist 
dies die einzige Art der Formatierung, die in dem zu erstellen¬ 
den Programm benötigt wird. 

Der Haken daran: In einem anderen Programm wird even¬ 
tuell eine andere Förmatierungsart benötigt. Sie besitzen nun 
jedoch kein allgemein verwendbares Modul, sondern eine 
spezifische Routine, die zum Einsatz in einem anderen Pro¬ 
gramm umzuschreiben ist. 
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Achten Sie bitte darauf, daß Module flexibel und relativ all¬ 
gemein sein sollten. Erreicht wird diese Flexibilität durch den 
Einsatz von Parametern, die die genaue Arbeitsweise der 
Routine festlegen (»AV«, »AN«). 

Flexibilität kann man übrigens auch übertreiben. Überspitzt 
ausgedrückt: Eine Routine, die entweder Datensätze verwal¬ 
tet oder aber Briefe schreibt, ist kein Modul mehr, sondern 
die Zusammenfassung zweier Programme. Achten Sie immer 
darauf, daß Module nicht zu umfangreich werden, sondern - 
wie im Beispiel - überschaubar bleiben, um mit wenigen Para¬ 
metern auszukommen. Den optimalen Kompromiß zwischen 
Flexibilität und Überschaubarkeit muß jeder für sich selbst 
finden, ein Patentrezept kenne ich nicht. 

Überschaubare Module besitzen einen weiteren Vorteil. 
Wenn ein Modul wie die vorgestellte Formatierungsroutine 
erstellt und zur einwandfreien Funktionsfähigkeit gebracht 
wurde, entfällt jegliche spätere Fehlersuche in diesem Pro¬ 
grammabschnitt. Voraussetzung ist natürlich, daß das Modul 
auch tatsächlich in sich abgeschlossen und vom restlichen 
Programm unabhängig ist. 

Bei einem Fehler in einem Programm, das die Förmatie- 
rungsroutine verwendet, kann dieses Modul bei der Fehler¬ 
suche ausgeklammert werden. Generell ersparen Sie sich 
durch »modulare Programmierung« eine Unmenge an Arbeit 
bei der leider immer notwendigen Fehlersuche. 

Zurück zur Verwaltung von Pull-down-Menüs. In welche 
Module das Gesamtprogramm aufgeteilt wird, ist nicht unbe¬ 
dingt eindeutig und hängt vom jeweiligen Programmierer ab. 

Folgende Module wären denkbar: 

1. Ein Modul, das beliebige Bildschirmausschnitte invertiert 
und wieder normalisiert, die »Invertierroutine«. Dieses Modul 
wird für verschiedene Aufgaben eingesetzt, zum Invertieren 
eines selektierten Menükommandos und zum Invertieren des 
Namens vom aktiven Untermenü. 

2. Ein Modul, das ein Untermenü zeichnet und einen Rah¬ 
men (mit den Grafikzeichen des C 64) darum legt, die »Mal¬ 
routine«. 

3. Ein drittes Modul, das einen beliebigen Bildschirmaus¬ 
schnitt irgendwo im Speicher »puffert« und aus dem Puffer 
wieder auf den Bildschirm zurückschreiben kann, die »Win¬ 
dowroutine«. Wie in der Problemanalyse besprochen, soll 
nach dem »Zuklappen« eines Untermenüs der ursprüngliche 
Bildschirminhalt (Text, Datensatz) wiederhergestellt werden. 
Daher wird diese Routine benötigt, um vor dem Malen eines 
Untermenüs den Bildschirminhalt zu »retten« und ihn nach 
dem Verschwinden des Menüs wieder zu »holen«. 

Alle drei Module sollen sowohl Schnittstellen zu Basic- als 
auch zu Assembler-Programmen enthalten. Wie dieses Pro¬ 
blem gelöst wurde, können Sie im erwähnten Artikel nachle- 
sen. 

Zur Parameterübergabe ist folgendes zu sagen: Alle drei 
Module »behandeln« rechteckige Bildschirmausschnitte. Die 
Invertierroutine invertiert/normalisiert einen rechteckigen 
Ausschnitt. Die Malroutine zeichnet ein rechteckiges Unter¬ 
menü mit den jeweiligen Kommandos. Die Windowroutine ret¬ 
tet/holt einen beliebigen rechteckigen Bildschirmausschnitt, 
der durch ein Untermenü überschrieben wird. 

Der Überschaubarkeit wegen ist es angebracht, allen drei 
Modulen die Rechteck-Parameter auf die gleiche Art und 
Weise zu übergeben, zum Beispiel in der Form: 

- Position der oberen linken Ecke des Rechtecks. 

- Breite des Rechtecks. 

- Länge des Rechtecks. 

Diese drei Parameter legen das jeweilige Rechteck eindeu¬ 
tig fest. Assembler-Programmierer werden feststellen, daß 
diese Parameter allen Routinen in den gleichen Speicherzel¬ 
len übergeben werden. 

Die wichtigsten Module sind nun festgelegt. Einzelheiten 
entnehmen Sie bitte dem erwähnten Artikel. 


Die Programmaufteilung ist festgelegt. Es besteht aus den 
erwähnten - und einer Reihe weiterer kleinerer - Modulen 
und selbstverständlich dem Hauptprogramm, das die Module 
zur Steuerung des Gesamtablaufs einsetzt. 

Sowohl die Module als auch das Hauptprogramm werden 
nun »strukturiert«, der genaue Aufbau dieser Teile wird fest¬ 
gelegt. Entweder mit der Methode »Pi-mal-Daumen« und ent¬ 
sprechenden späteren Korrekturen, oder aber (empfehlens¬ 
werter) mit Hilfsmitteln zur Strukturierung wie Programmab¬ 
laufplänen (PAP) oder Struktogrammen (Nassi/Shneider- 
mann-Diagramm). 

Verfeinerung 


»Profis« verwenden meist Struktogramme, die zugegebener¬ 
maßen Vorteile bieten, jedoch »starrer« und unflexibler sind 
als PAPs. 

Alle Hilfsmittel zur strukturierten Programmierung besitzen 
einen wesentlichen Vorteil: Sie zwingen (!) den Programmie¬ 
rer, seine verschwommenen Vorstellungen vom Programm¬ 
oder Modulaufbau zu spezifizieren. In allen Fällen wird der 
Programmablauf grafisch dargestellt, beim PAP zum Beispiel 
mit Symbolen wie Rechtecken, Rauten und Pfeilen. 

Der Programmablauf kann nur dann mit diesen Symbolen 
grafisch dargestellt werden, wenn er dem Programmierer 
selbst klar ist. Diese Klärung tritt oft erst während der Erstel¬ 
lung von PAPs oder Struktogrammen ein. Ein PAP wird 
gezeichnet und wieder verworfen, der nächste PAP gemalt 
und so weiter. 

Bei der Erstellung von PAPs und Struktogrammen wird die 
Methode der »schrittweise Verfeinerung« verwendet. Bild 1 
zeigt einen »Grob-PAP« des Hauptprogramms. Zuerst ermit¬ 
telt da« Programm alle benötigten Parameter (Anzahl der 
Menüs, Menünamen, Menükommandos etc.). Auf einen 
»Menü-Initialisierungsteil«, der das aktuelle (nach dem Start 
das erste) Untermenü einblendet, folgt die »Hauptschleife«, 
zu der - fast - immer zurückgekehrt wird. 

Zu Beginn der Hauptschleife wird die Tastatur abgefragt. 
Wurde eine Cursor-Taste gedrückt, verzweigt das Programm 
zum Abschnitt »Cursor-Taste ausführen«, der je nach Taste 
ein anderes Kommando selektiert (< CRSR > -oben/-unten), 
oder aber das aktive Untermenü »zuklappt« und ein benach¬ 
bartes Menü aktiviert (<CRSR>-rechts/-links). 

Wird ein Menü direkt angewählt (< CTRL >+Anfangs¬ 
buchstabe), verzweigt das Steuerungsprogramm zum Modul 
»Neues Menü aktivieren«. Die direkte Anwahl eines Komman¬ 
dos über dessen Anfangsbuchstaben oder aber die Bestäti¬ 
gung von < RETURN > beendet das Gesamtprogramm, 
nachdem zuvor dem aufrufenden Programm mitgeteilt wird, 
welches Untermenü aktiv ist und welches Kommando dieses 
Menüs ausgewählt wurde. 

Wurde kein Kommando endgültig ausgewählt, verzweigt 
das Programm zum Schleifenanfang, zur Abfrage der Tasta¬ 
tur. Eine Ausnahme bildet die Anwahl eines anderen Menüs, 
nach der zum Teil »Menü initialisieren« verzweigt wird. 

Ausgehend von diesem Grob-PAP werden die einzelnen 
Programmbestandteile mit weiteren PAPs verfeinert. Bild 2 
zeigt ein PAP, das den Ablauf des Moduls »Cursor-Taste aus¬ 
führen« darstellt. 

Wurde <CRSR>-rechts/-links gedrückt, werden fol¬ 
gende Aktionen ausgeführt: 

- Der gerettete Untergrund des aktiven Menüs wird wieder¬ 
hergestellt. 

- Der invertierte Menüname wird wieder normalisiert. 

- Der »Menüzähler«, der angibt, welches Menü aktiv ist, wird 
um eins erhöht (< CRSR > -rechts) beziehungsweise ver¬ 
mindert (< CRSR > -links). 

- Der Menüzähler wird - wenn nötig - korrigiert. Enthält er 
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eine Zahl, die größer ist als die Gesamtanzahl aller Menüs, 
erhält er den Wert eins. »Weist« er vor das erste Menü, 
erhält er die Nummer des letzten Menüs. 

Anschließend wird zurp Programmteil »Menü initialisieren« 
verzweigt, das den Untergrund des neu selektierten Menüs 
rettet, dessen Namen in der Kommandozeile invertiert und 
das Menü selbst zeichnet. 

<CRSR>-oben/-unten arbeitet ähnlich: 

- Ein »Kommandozähler« wird um eins erhöht/vermindert. 

- Das bisherige Kommando wird normalisiert. 

- Der Kommandozähler wird korrigiert, wenn er größer als 
die Anzahl aller Kommandos des Menüs oder aber kleiner 
als die Nummer des ersten Kommandos ist. 

- Das Kommando, auf das der Kommandozähler »zeigt«, 
wird invertiert. 


Zuletzt wird zum Programmteil »Tastatur abfragen« ver¬ 
zweigt. 

Die einzelnen Bestandteile eines solchen verfeinerten 
Ablaufplans können selbstverständlich wiederum verfeinert 
werden. Wie weit die Verfeinerung gehen sollte, muß der Pro¬ 
grammierer entscheiden. 

Nach der Strukturierung kann die eigentliche »Codierung« 
erfolgen, die Umsetzung der Ablaufpläne mit den Befehlen 
der gewählten Programmiersprache. Bis zu diesem Punkt ist 
der Prozeß der Programmentwicklung unabhängig von der 
Programmiersprache. 

Da dieser Artikel weder einen Basic- noch einen 
Assembler-Kurs darstellt, wird auf die Umsetzung nicht näher 
eingegangen. Bei optimaler Programmplanung sollte dieser 
Teil am wenigsten Zeit in Anspruch nehmen. 
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Beachten Sie bitte, daß ein gut dokumentierter Programm¬ 
code äußerst wichtig ist. Mit Kommentaren sollten Sie auf kei¬ 
nen Fall sparen. Verwenden Sie zusätzlich Leer- oder Kom¬ 
mentarzeilen zur Trennung in sich abgeschlossener Pro¬ 
grammteile und Einrückungen, um Schleifenführungen sicht¬ 
bar zu machen. 

Noch einen »Kommentar zu den Kommentaren«. Nicht jede 
Programmzeile sollte »sklavisch« kommentiert werden, um 
völlig sinnlose und ärgerliche Kommentare wie den folgen¬ 
den zu vermeiden: 

100 A=1:REM DER VARIABLEN A WIRD DER WERT 1 
ZUGEWIESEN 

Kein weiterer Kommentar nötig! 

Ohne intensive Testläufe wird ein umfangreiches Pro¬ 
gramm niemals in jeder Situation wie gewünscht arbeiten. 
Selbst wenn der Programmierer keinen Fehler entdeckt, sind 
in der ersten Version eines komplexen Programms immer (!) 
Fehler vorhanden. 

Empfehlung: Wenn Sie selbst keine weiteren Fehler mehr 
entdecken, setzen Sie einen Bekannten, der möglichst 
wenig von Computern, Bits und Bytes versteht, an Ihr Pro¬ 
gramm. Sie werden staunen, welche Fehler sich in einem 
anscheinend fehlerfreien Programm befinden können. 

Außerordentlich wichtig ist der Test von Extremfällen und 
Spezialsituationen: 


- Was passiert, wenn die Dateiverwaltung eine Adresse 
suchen soll, obwohl noch kein Datensatz eingegeben 
wurde? 

- Stürzt das Programm ab, wenn die Sortierroutine ein Array 
mit nur einer oder gar keiner darin enthaltenen Variablen 
sortieren soll? 

- Wie verhält sich das Programm, wenn der Speicher voll ist 
(Dateiverwaltung, Textverarbeitung)? 

Verwenden Sie beim »Entwanzen« (Debuggen) Ihres 
Programms die vorhandenen Hilfsmittel des Systems, zum 
Beispiel die Befehle STOP und CONT des Basic-Interpre- 
ters, mit denen Sie das Programm gezielt unterbrechen 
und mit PRINT anschließend die Inhalte von Variablen prü¬ 
fen können. 

Wenn Sie in Assembler programmieren: Verschaffen Sie 
sich einen Monitor und verwenden Sie dessen Fähigkeit, 
»Breakpunkte« zu setzen. Wird ein solcher Breakpunkt 
erreicht, stoppt das Programm, und Sie können die Inhalte 
der Register und verwendeten Speicherzellen begutachten. 

Viel mehr ist zum Thema Programmentwicklung nicht zu 
sagen. Detailliertere Informationen zum Thema strukturierte 
Programmierung oder Programmablaufpläne können Sie ver¬ 
schiedenen Artikeln im 64’er oder den Sonderheften 
entnehmen. 

(S. Baloui/ah) 
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Verwalten Sie große Datenmengen, so kommen 
Sie um eine Sortierung dieser Daten kaum herum. 
Aber das Sortieren kostet in der Regel viel Zeit. 
Mit unseren neuen Sortierprogrammen wird das 
jedoch anders. Diese beiden Algorithmen sind 
die schnellsten und komfortabelsten, die wir je 
auf dem C 64 gesehen haben. 

I n diesem Artikel wollen wir Ihnen die beiden besten Sor¬ 
tierprogramme vorstellen, die wir bisher auf dem C64 
gesehen haben. Es handelt sich dabei um zwei Algorith¬ 
men, die beide in Assembler geschrieben sind. Der eine 
arbeitet dabei nach dem Prinzip des Shellsort-, während der 
andere den Quicksort-Algorithmus verwendet. 

Bei beiden Programmen haben die Autoren darauf Wert 
gelegt, den entsprechenden Algorithmus sowohl schnell als 
auch komfortabel zu gestalten. Das ist ihnen auch gelungen, 
wie wir noch sehen werden. 

Zuerst wollen wir uns den Shellsort-Algorithmus betrach¬ 
ten. Dazu eine kleine Wiederholung dessen, was wir schon 
in unserem Sortierkurs besprochen haben, der ab Ausgabe 
4/1985 im 64’er abgedruckt war. 

Shellsort (nach seinem Erfinder D. L. Shell 1959 benannt) 
ist eigentlich kein eigener Sortieralgorithmus. Er bedient sich 
vielmehr eines relativ einfachen Algorithmus (in unserem Bei¬ 
spiel dem »straight insertion«), wobei dieser einfache Algo¬ 
rithmus durch eine spezielle Optimierung in seiner Arbeit 
unterstützt wird. 

Es zeigt sich leider immer wieder, daß die Sortierzeit bei 
einfachen Sortieralgorithmen im Verhältnis zur steigenden 
Anzahl von Elementen oft nahezu im Quadrat ansteigt. Das ist 
für den Anwender unzumutbar. Aus diesem Grund geht man 
bei Shellsort einen anderen Weg. 

Man bedient sich hier eines einfachen Sortieralgorithmus, 
versucht jedoch die Anzahl der zu sortierenden Elemente 
möglichst klein zu halten. Das wird erreicht, indem das zu sor¬ 
tierende Feld in Teilfelder zerlegt wird, wobei sich die Ele¬ 


mente eines jeden Teilfeides immer in einem bestimmten 
Abstand zueinander befinden. Diese Teilfelder werden nun 
emzein von einem Unterprogramm, zum Beispiel straight 
insertion, sortiert. Nun wird der Abstand der Elemente der 
Teilfelder - wir nennen ihn Schrittweite - nach jedem Sortier¬ 
durchlauf halbiert, bis er schließlich 1 beträgt. Bei Schritt¬ 
weite 1 erfolgt noch ein letzter Sortierdurchlauf und das Feld 
liegt fertig geordnet vor. 

Anhand von Bild 1 läßt sich der gesamte Vorgang veran¬ 
schaulichen. 

Wir haben ein Ausgangsfeld, das mit zufällig gemischten 
Elementen (in unserem Fall die Zahlen von 0 bis 9) belegt ist. 
Als erste Schrittweite wird nun üblicherweise die halbe 
Anzahl der enthaltenen Elemente in dem Feld verwendet. In 
unserem Fall sind das fünf (bei ungeraden Zahlen wird bei der 
Teilung die Nachkommastelle abgeschnitten). Wirerhalten so 
fünf Teilfelder mit jeweils zwei Elementen. Jedes Element ist 
dabei die Schrittweite, also fünf Elemente, vom vorherigen 
entfernt. Das erste Teilfeld besteht deshalb aus dem ersten 
und dem sechsten Wert, das sind 9 und 7. Das zweite aus 
dem zweiten und dem siebten Wert, also 1 und 8, und so wei¬ 
ter. 

So funktioniert Shellsort 


Diese Teilfelder werden nun sortiert, ohne daß die Position 
innerhalb des Gesamtfeldes verändert wird. Sie können das 
in Bild 1 in der zweiten Zeile nach dem ersten Sortierdurch¬ 
gang erkennen. 

Nun wird die Schrittweite halbiert. Wir erhalten den Wert 2, 
was besagt, daß nur noch zwei Teilfelder mit jeweils fünf Ele¬ 
menten entstehen. Es gehören also das 1., 3., 5., 7. und 9. 
Element und das 2., 4., 6., 8. und 10. Element zusammen. 
Diese Teilfelder werden wiederum sortiert. 

Dieses Halbieren der Schrittweite und Sortieren der Teilfel¬ 
der geht bis zur Schrittweite 1. 

In unserem Beispiel sind das drei Durchgänge. Es werden 
zwar auch hier immer mehr Elemente in einem Teilfeld zusam- 
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mengefaßt, so daß die Sortierzeit bei den Teilfeldern ansteigt. 
Da diese aber jeweils vom vorhergehenden Durchlauf in 
einem vorsortierten Zustand vorliegen, ist der zusätzliche 
Zeitaufwand bei steigender Elementanzahl sehr gering. Das 
mehrfache Sortieren der vorsortierten Felder dauert also 
insgesamt nicht so lang, wie das einmalige Sortieren eines 
völlig ungeordneten, großen Feldes. 

Nun aber zu unserem ersten Assembler-Listing. Es enthält 
den Shellsort-Algorithmus in Verbindung mit dem straight 
insertion. 

Flash-Sort 


Das Programm in Listing 1 wird mit dem MSE eingegeben und 
auf eine Diskette oder Kassette gespeichert. Wollen Sie den 
Algorithmus nun einsetzen, so laden Sie das Programm wie¬ 
der mit LOAD" FLASH-SORT ",8,1 und tippen anschließend 
NEW ein. Flash-Sort steht dann von SCB20 bis SCFFE im 
Speicher (Startadresse = 52000). Darüber hinaus werden 
einige Speicherstellen in der Zeropage verwendet (zum Bei¬ 
spiel $FB-$FE). 

Mit Flash-Sort haben Sie ein Sortierprogramm in der Hand, 
das wohl allen »Sortierproblemen« der Praxis gewachsen 
sein dürfte. Im einzelnen können Sie damit folgende Felder 
sortieren: 

1. beliebige eindimensionale Felder; die Betonung liegt 
dabei auf»beliebig«, das heißt sowohl String- als auch Fest- 
(Integer-) und Fließkomma-Felder. 

2. zweidimensionale String-Arrays. Hierbei wird eine »Tie¬ 
fensortierung« vorgenommen, das heißt, sind zum Beispiel 
zwei Nachnamen gleich, dann wird nach Vornamen sortiert 
(eine genaue Erläuterung folgt später noch). 

3. in obigen Fällen ist es auch möglich, nur einen Aus¬ 
schnitt zu sortieren (Erstellung von Teillisten). 

4. weiterhin kann in allen Fällen ein beliebiges eindimensio¬ 
nales Array mitsortiert werden. 

Als erstes soll der wichtigste Fall besprochen werden und 
zwar das Sortieren eindimensionaler Arrays. Flash-Sort wird 
folgendermaßen aufgerufen: 

1. SYS 52000, A$: Sortieren des String-Arrays A$. 

2. SYS 52000, B, X%: Sortieren des Arrays B; in Abhängig¬ 
keit davon wird das Array X% mitsortiert (was damit gemeint 
ist, wird später erklärt). 

3. SYS 52000# 1, C%(von), C%(bis): nur den angegebe¬ 
nen Teilbereich sortieren. C%(bis) wird noch mitsortiert. 

4. SYS 52000 #1, D$(von), D$(bis), Y(von), Y(bis): Hier 
gilt das unter Punkt 2 und 3 Gesagte, bezogen auf das ange¬ 
gebene Teilfeld. Beachten Sie den Unterschied in der Syntax 
für ganze Felder und Teilfelder. Das Numerus-Zeichen (#) 
nach dem SYS-Befehl ist für Flash-Sort das Zeichen zum Sor¬ 
tieren eines Teilfeldes. Die folgende 1 ist das Zeichen zum 
Sortieren eines eindimensionalen Arrays. 

Sicherheit steht hoch im Kurs 


Bevor jetzt das Mitsortieren, beziehungsweise das Erstellen 
von Teillisten, erläutert werden soll, einige Bemerkungen zur 
Absturz- beziehungsweise Anwendungssicherheit von 
Flash-Sort. Diese Bemerkungen gelten entsprechend auch 
für das Sortieren zweidimensionaler String-Arrays. 

Bevor Flash-Sort mit dem Sortieren beginnt, werden eine 
Reihe von Sicherheitsüberprüfungen durchgeführt. Im Nor¬ 
malfall werden Sie davon nichts merken, es sei denn, Sie 
erhalten die Fehlermeldung »FORMULA TOO COMPLEX 
ERROR«. Diese Meldung stammt von Flash-Sort. Sie haben 
dann in Ihren Sortier-Parametern irgendeinen (Fiüchtigkeits-) 
Fehler begangen. Insbesondere bei der Sortierung von Teilli¬ 
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Bild 1. So werden die Teillisten bei Shellsort während eines 
Sortierdurchlaufs erstellt. Bemerkenswert ist die geringe 
Anzahl an Durchläufen, bis das Feld fertig sortiert vorliegt. 


sten ist die Möglichkeit relativ groß, irgend etwas zu »verges¬ 
sen«. 

Als Beispiel folgt eine kleine Zusammenstellung möglicher 
Fehlerquellen: 

- Das zu sortierende Feld ist nicht dimensioniert. 

- DIM A$(1000),A%(100):SYS 52000,A$,A%: unterschied- > 
liehe Anzahl von Elementen in den zu sortierenden Feldern. 

- SYS 52000 # 1,A$(0),AA$(100): unterschiedliche Namen 
in der Teillistenangabe des zu sortierenden Feldes. 

- SYS 52000 # 1,A$(1000),A$(100): Feldende ist kleiner als 
der Feldanfang. 

- SYS52000 # 1,A$(100),A$(1000),B%(100),B(1000): un¬ 
terschiedlicher Variablentyp in der Parameterliste. 

Der Vollständigkeit halber seien noch die Fehlermeldungen 
des Basic-Interpreters (SYNTAX,ILLEGAL QUANTITY und 
BAD SUBSCRIPT ERROR) erwähnt. Diese Meldungen wer¬ 
den automatisch bei entsprechenden Fehlern ausgegeben 
und sind nicht spezifisch für Flash-Sort (zum Beispiel: DIM 
A$(10):PRINT A$(4711) führt natürlich zu einem BAD 
SUBSCRIPT ERROR). 


Sie werden sich vielleicht gefragt haben, was unter den 
Begriffen »Mitsortieren« und »Sortieren von Teilfeldern« zu 
verstehen ist. Wir möchten das am Beispiel einer Adreßver- 
waltung erklären. Nehmen Sie dazu folgenden Fall an: 

Ihre Datensätze stehen in einer REL-Datei auf der Diskette. 
Die Nachnamen lesen Sie (als Indexfeld) in das String-Array 
NA$, die zugehörigen Datensatznummern in das Array RC% 
ein. Wenn Sie nun die Datensätze sortiert ausdrucken lassen 
wollen (SYS 52000,NA$,RC%), müssen die Record-Num¬ 
mern natürlich bei den zugehörigen Namen »bleiben«. Das 
Feld der Record-Nummern muß also anhand der Namen mit¬ 
sortiert werden, womit wir das Wort »mitsortieren« erklärt hät¬ 
ten. 

In der Praxis bleibt jedoch für die Druckausgabe noch ein 
kleines Problem: Ihre Datensätze sind jetzt zwar nach Nach¬ 
namen geordnet, es kommt aber vor, daß zwei Leute den glei¬ 
chen Nachnamen haben. Auf dem Papier sieht es dann etwas 
unschön aus, wenn »Schmidt Hans« vor »Schmidt Adam« zu 
finden ist. Dazu ein Vorschlag: Dimensionieren Sie für die 
Druckausgabe ein kleines Feld. In dieses Feld lesen Sie nun 
alle Datensätze ein, die mit dem gleichen Buchstaben (des 
Nachnamens) beginnen. Jetzt sortieren Sie einfach dieses 
Array »nach«. Wenn sich Ihre Datensätze vorher auch erst im 
letzten Datensatzfeld unterschieden haben, dann sind sie 
hinterher genau alphabetisch sortiert. 

Jetzt zu dem Erstellen von Teillisten (Sortieren von Teil- 
Arrays). Sie könnten ja, um bei der Adreßdatei zu bleiben, Ihre 
Datei folgendermaßen aufgebaut haben: 

Datensatznummern 1 bis 399: Adressen der Bekannten 
und Verwandten 

Datensatznummern 400 bis 600: Adressen der Geschäfts¬ 
partner 

Sie können nun folgende Druckausgabe realisieren: 

1. SYS 52000 # 1, NA$(1), NA$(399), RC%(1), RC%(399): 
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nur die Adressen der Bekannten/Verwandten sortieren 

2. SYS 52000 #1, NA$(400), NA$(600), RC%(400), 
RC%(600):nurdie Adressen der Geschäftspartner sortieren 

3. SYS 52000, NA$, RC%: alle Adressen sortieren. 

Spätestens in Fall drei wird Ihnen noch etwas angenehm 

auffallen: Flash-Sort sortiert alle Leerstrings an das Ende 
eines (Teil-)Arrays. 

Zwei Bemerkungen zum Sortieren von numerischen 
Arrays: 

1. In einem speziellen Fall sortiert Flash-Sort etwas »eigen¬ 
willig« und zwar bei einem Integer-Array, wenn darin sowohl 
positive als auch negative Zahlen Vorkommen. Hier werden 
die positiven Werte an den Anfang sortiert, gefolgt von den 
negativen Werten. 

2. Allgemein kann es bei numerischen Zahlenfeldern sinn¬ 
voll sein, die Sortierreihenfolge umzudrehen, das heißt nicht 
das kleinste, sondern das größte Element an den Array- 
Anfang zu sortieren. Das ist mit Flash-Sort möglich. Die Sor¬ 
tierreihenfolge hängt von dem Wert einer einzigen Speicher¬ 
stelle ab und zwar $CFFE (53246). Sie können den vorein¬ 
gestellten Wert mittels POKE ändern: 

WERT = 1: kleinstes Element an den Anfang (voreinge¬ 
stellt) 

WERT = 255: größtes Element an den Anfang 

Im Gegensatz zum Diskettenlaufwerk ist bei der Datasette 
eine relative Datenspeicherung nicht möglich. Wenn Sie eine 
sequentielle Datei benutzen, müssen Sie diese zur Bearbei¬ 
tung komplett in den Speicher des C64 einiesen. Auch 
hierzu wieder das Beispiel Adreßverwaltung. 

Sie haben Ihre Datensätze jetzt (zwangsläufig) etwas 
anders organisiert: 

Name 1: A$(1,0) Vornamel: 

A$(1,1) Anschriftl: 

A$(1,2) Bemerkung - !: S4GR Of 

A$(1,3) Name2: 

A$(2,0) Vorname2: 

A$(2,1) Anschrift2: 

A$(2,2) Bemerkung2: 

A$(2,3) Name3: 

A$(3,0)... 

Auch dieses Array kann Flash-Sort sortieren, allerdings in 
einer festgelegten Reihenfolge: In obigem Fall wird zuerst 
nach Namen sortiert; sind diese gleich, dann wird nach Vor¬ 
namen sortiert. Sind diese auch gleich, dann nach der 
Anschrift, danach nach der Bemerkung. Diese Tiefensortie¬ 
rung geht also bis hin zum letzten Element der zweiten 
Dimension. 

Sortieren zweidimensionaler 
String-leider 


Für das Sortieren ganzer zweidimensionaler String-Arrays 
hat sich am Aufruf nichts geändert (SYS 52000, Variablen¬ 
name). Wenn Sie jedoch einen Teilbereich sortieren wollen, 
müssen Sie Flash-Sort folgendermaßen aufrufen: 

SYS 52000 #2, A$(von,0), A$(bis,0) 

Beachten Sie dabei bitte folgende zwei Punkte: 

- für die Anzahl der Elemente der zweiten Dimension müssen 
Sie immer jeweils die Zahl 0 eingeben, sonst erhalten Sie die 
Meldung »FORMULA TOO COMPLEX ERROR«. 

- nach dem » # «-Zeichen steht eine 2; im Prinzip kann hier ein 
Wert zwischen 0 und 255 stehen, mit Ausnahme der 1. Soll¬ 
ten Sie hier doch eine 1 eingeben, so werden nur die Namen 
sortiert. Dadurch geraten Ihre Datensätze durcheinander und 
könnten etwa so aussehen: 

Name 1: A$(5,0) Vornamel: 

A$(1,1) Anschriftl: 

A$(1,2) Bemerkung - !: 


A$(1,3) Name2: 

A$(7,0) Vorname2: 

A$(2,1) Anschrift2: 

A$(2,2) Bemerkung2: 

A$(2,3) ... 

Auch beim Sortieren zweidimensionaler String-Arrays kann 
ein beliebiges eindimensionales Array mitsortiert werden. 
Wenn Sie eine andere Sortierreihenfolge wünschen, zum 
Beispiel erst nach Vornamem dann nach Namen sortieren 
wollen, müssen Sie vorher (zum Beispiel mit einer SWAP- 
Routine) alle Namen mit den Vornamen vertauschen. Solche 
Routinen sind im 64'er ja bereits des öfteren vorgestellt wor¬ 
den, so daß wir nicht näher darauf eingehen wollen. 

Für alle Interessierten ist in Listing 2 der Quellcode von 
Flash-Sort abgedruckt. Diesen können Sie nach Belieben 
verändern, wenn Sie eigene Erweiterungen einbauen wollen. 
Zum Schluß dieser Anleitung ist eigentlich nur noch eine 
Frage offen: Warum heißt dieses Sortierprogramm Flash- 
Sort? Nun ja, es blinkt mit dem Bildschirmrahmen während 
des Sortiervorgangs. 

Quicksort legt los 


Bei unserem zweiten Sortierprogramm, das wir Ihnen hier 
vorstellen wollen, handelt es sich um einen Quicksort- 
Algorithmus. Über dieses Sortierverfahren wurde bereits so 
oft berichtet, daß wir an dieser Stelle nicht näher auf die Funk¬ 
tionsweise eingehen wollen. Wer sich dennoch dafür interes¬ 
siert, der sei auf die Ausgabe 8/1985 des 64’er-Magazins 
verwiesen. Ab Seite 138 finden Sie alles Wissenswerte über 
Quicksort, das das schnellste derzeit bekannte Verfahren für 
das Sortieren von zufallsbesetzten Feldern ist. 

Di» ‘ jlgende Assembler-Routine (Listing 3) unterscheidet 
sich von herkömmlichen Quicksort-Routinen nicht nur durch 
ihre Geschwindigkeit, sondern vor allem durch die erheblich 
höhere Flexibilität, mit der sich auch spezielle Sortierpro¬ 
bleme lösen lassen. 

Die Routine befindet sich im Bereich $C000 bis $C316, 
benötigt während des Sortierlaufs jedoch zusätzlich die 
Bereiche $C400 bis $C700 zum Aufbau von Software- 
Stacks, die bei Quicksort wegen dessen rekursiver Arbeits¬ 
weise dringend notwendig sind, um den Hardware-Stack des 
Prozessors nicht zu überlasten. 

Der Aufruf von Quicksort ist aufgrund der Flexibilität etwas 
umfangreich und lautet: 

SYS 49152, ZEICHEN, FELD, SORT(X), SORT(Y), MIT- 
SORT(X), MITSORT(Y) wobei »MITSORT(X)« und »MIT- 
SORT(Y)« optionale Parameter sind, die nicht unbedingt 
angegeben werden müssen (nähere Erläuterung folgt). 

Oftmals stellt sich bei der Arbeit mit einer Dateiverwaltung 
folgendes Problem: Die komplette (kleine) Datei befindet sich 
im Speicher des Computers in einem String-Array. Jeder 
String entspricht einem Datensatz, zum Beispiel einer 
Adresse: 

A$(1)= "Maier/Hans/Willistr.3/6800 Mannheim" 

A$(2)= "Bauer/Stefan/Friedrichstr.5/6700 Ludwigshafen" 

A$(3)= "Mueller/Gerhard/Aalweg 22/4000 Duesseldorf" 

Herkömmliche Sortierroutinen versagen, wenn dieses 
Array nach einem Teil, zum Beispiel nach dem Namen, sortiert 
werden soll. Unser Quicksort gestattet Ihnen die Sortierung 
eines String-Arrays nach einem beliebigen Teil innerhalb 
eines Strings. 

Die Vorgehensweise: Die einzelnen Teil-Strings (Name, 
Vorname etc.) müssen mit einem beliebig wählbaren Sonder¬ 
zeichen voneinander getrennt werden, zum Beispiel mit dem 
hier verwendeten Schrägstrich »/«. Beim Aufruf der Routine 
müssen Sie als Parameter »ZEICHEN« den ASCII-Code des 
verwendeten Trennzeichens angeben (ASCII-Code von »/«: 
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47) und als Parameter »FELD« die Nummer jenes String-Teils, 
der als Sortierkriterium verwendet werden soll. Um die im Bei¬ 
spiel verwendeten Adressen nach dem Feld »NAME« zu sor¬ 
tieren, wird daher als Parameter »FELD« die Zahl 1 angege¬ 
ben (»NAME« ist der erste Teil im String), zur Sortierung nach 
dem Vornamen wird eine 2 angegeben. 

Ein Aufruf lautet also zum Beispiel: 

SYS 49152,47,2,A$(1),A$(3) 

wobei die drei Strings wie folgt sortiert werden: 

A$(1)= * Mueller/Gerhard/Aalweg 22/4000 Duesseldorf" 

A$(2)= "Maier/Hans/Willistr.3/6800 Mannheim" 

A$(3)=" Bauer/Stefan/Friedrichstr.5/6700 Ludwigshafen" 

Wichtig: Wenn Sie diese Option der Sortierung nach einem 
String-Teil nicht benötigen, geben Sie bitte für die beiden 
Parameter »ZEICHEN« und »FELD« jeweils eine Null ein (SYS 
49152,0,0,A$(1),A$(3)). 

Im vorhergehenden Beispiel wurden beim Aufruf die Sor¬ 
tiergrenzen angegeben, also die Parameter »SORT(X)« und 
»SORT(Y)«. Diese Sortiergrenzen haben den gleichen Effekt 
wie schon bei Flash-Sort. Sie gestatten das Sortieren von 
Teillisten in einem Feld, wenn nicht die Sortierung des 
Gesamtfeldes gewünscht wird. Wenn Sie ein mit A$(99) 
dimensioniertes Feld komplett sortieren wollen, geben Sie 
ein: 

SYS 49152,0,0,A$(0),A$(99) 

Die Parameterübergabe 


Mit den Parametern »MITSORT(X)« und »MITSORT(Y)« 
können Sie ein beliebiges Feld angeben, das, analog zu 
Flash-Sort, mitsortiert wird. Die angegebenen Grenzen »X« 


und »Y« müssen dabei exakt jenen Grenzen entsprechen, die 
beim eigentlich zu sortierenden Feld angegeben wurden. 

Auf unser Feld A$ angewendet, lautet der Aufruf der Rou¬ 
tine also zum Beispiel: 

SYS 49152,0,0,A$(1),A$(30),R%(1),R%(30) 

Die Angabe des mitzusortierenden Arrays ist optional, das 
heißt sie kann (wie in den ersten Beispielen) völlig entfallen, 
wenn sie nicht benötigt wird (im Gegensatz zu den Angaben 
»ZEICHEN« und »FELD«, bei denen zumindest der »Schein¬ 
parameter« Null anzugeben ist). 

Alle bisher beschriebenen Möglichkeiten können beliebig 
miteinander kombiniert und auf beliebige Array-Typen ange¬ 
wendet werden, also auf String-Arrays, Integer-Arrays und 
Fließkomma-Arrays. 

Ein leistungsstarkes Sortierprogramm also, das wir Ihnen 
mit Quicksort vorgestellt haben. Das Source-Listing von 
Quicksort zeigt Listing 4. Wie Sie sehen, bieten sowohl 
Flash-Sort als auch Quicksort ähnliche Ausstattungsmerk¬ 
male an. Quicksort ist natürlich ein wenig schneller als Flash- 
Sort, dafür benötigt Flash-Sort weniger Speicherplatz und ist 
vom Programm her leichter zu verstehen. 

In Sachen Geschwindigkeit können sich beide Sortierpro¬ 
gramme die »Hände reichen«. Haben Sie ein Basic- 
Programm, das mit Dateiverwaltung arbeitet, so ist es im Prin¬ 
zip egal, welchen der beiden Algorithmen Sie einsetzen. Das 
ist Ihrem Geschmack und dem jeweiligen Anwendungsfall 
überlassen. 

Die Sortierzeiten für 1000 Elemente liegen bei Quicksort 
unter zwei (!) Sekunden und Flash-Sort folgt in dichtem 
Abstand nach. Das sind Zeiten, die niemandem mehr weh tun 
und die wir sicher an dieser Stelle als das Nonplusultra auf 
dem C 64 bezeichnen können. 

(W. Strunz/S. Baloui/ks) 
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cf 28 aS 
cf30 : 38 
cf 38 : e5 
cf40 : ea 
cf48 : 84 
cf50 s c5 
cf58 s b0 
cf60 : 5e 
cf68 : 4b 


fe e5 fc 
e5 57 85 
58 85 23 
a5 71 a4 
5c 65 69 
fe 90 06 
e2 a8 85 
B6 5d aS 
85 47 65 


85 6a a5 59 
22 aa a5 5a 
60 ea ea ea 
72 18 85 5b 
aa 98 65 6a 
d0 e6 e4 fd 
72 86 71 85 
14 f0 14 a5 
6b 85 4b 85 


5a 
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ee 
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a5 4c 85 
SS 4a 8a 
a2 bb a5 
bc aa f0 
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ee ce a5 
d0 04 cS 


48 65 
24 6e 
5b a4 
b4 cd 
88 bl 
8a 91 
f0 05 
5b a4 
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6c 85 
70 60 

5c 20 

fe cf 
5b aa 
5d 88 
e6 2a 
5c c4 
8a 85 


bc 

a3 
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7d 

7d 
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cfb8 : 5d 
cfc0 : 6a 
cfc8 : f0 
cfd0 s 6b 
cfdB : 6c 
cfe0 s ae 
cf eB s 5d 

cff0 : d0 

cff8 : 8a 


84 5e eS 
aB 86 5b 

11 a5 47 

85 47 a5 
85 48 8a 
fe cf a0 
90 0d d0 
f3 f0 9c 
30 97 4c 


69 aa 98 e5 
84 5c a5 14 
3B 85 49 e5 
48 85 4a e5 
24 6e 50 a7 
00 bl 5b dl 
07 c8 c0 02 
8a 49 ff aa 
41 cf 01 00 


c6 

75 
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b0 
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a8 

d2 

a0 


Listing 1. Das MSE-Listing für Flash-Sort. Bitte beachten Sie die Eingabehinweise auf Seite 92. 


101 « 

102 : 


CB20 

CB20 


.OPT P4,00 
*- *CB20 


;SYS 52000 


QUELLTEXT FLASHSORT 


108« 

CB20 

TERM 

- 

•AD9E 

109: 

CB20 

STEST 

■ 

*A3FB 

110: 

CB20 

KOMMA 

■ 

•AEFD 

111« 

CB20 

CHRBOT 

m 

*0079 

112« 

CB20 

TYPE 

m 

*6D 

113: 

CB20 

RUND 

m 

*6E 

114: 

CB20 

NUMFL 

- 

•6F 


SPEICHERSTELLEN ZEROPAGE - 
NUR EINDIMENSIONAL/STRIN6 


HAUPTARRAY 


I 

5~ 
f~ 

8 

8 

(*FB/*FC = HAUPTARRAY ANFANG 
;*FD/*FE - HAUPTARRAY ENDE+1 
i *22/*23 = A-ELEMENT HAUPTARRAY 
(*71/*72 = B-ELEMENT 
;*24/425 = B-ELEMENT(EINSORTIEREN) 
8*26/*27 « TEILFELD ANFANG 
;*55/*56 - ENDE+1 DES TEILFELDES 
;*5B-*5D = DESKRIPTOR A-ELEMENT 


;*5E-*60 
;*69/*6A 
5 *6D 

; *6E 


; *6F 


= DESKRIPTOR B-ELEMENT 
= SCHRITTWEITE 
= PLATZBEDARF(2,3 ODER 5) 

= RUNDUNGSBYTE BEIM 

HALBIEREN DER SCHRITT¬ 
WEITE; INTEGER BENOETIGT 
SONDERBEHANDLUNG 226s C 

= FLAG NUM./STRINGARRAY 227: 

NUM.=0 STRING=*FF 


192« 

193: 

194: 

195« 

196: 

197« 

198: 

199: 

200 : 

201 « 

202 : 

203: 

205: 

206: 

207: 

208: 

209: 

210 : 

211 : 

212 « 

213: 

214: 

215: 

216: 

217: 

218: 

219: 

220 : 

221 : 

222 : 

223: 

224: 

225: 


8A 



TXA 



65 

58 


ADC 

*58 


28 



PLP 


;NUR TEILARRAY 

F0 

0D 


BEQ 

SETARA 

(NEIN 

CS 

FE 


CMP 

*FE 

(TEST,OB ANGABE 

90 

06 


BCC 

FEHLF 

! 1 ■ ELEMENT DER 

D0 

0B 


BNE 

SETAR0 

(2.DIMENS. -0! 

04 

FD 


CPY 

•FD 

;WENN NEIN,FEHLER 

B0 

07 


BCS 

SETAR0 


4C 

1A CE 

FEHLF 

JMP 

FEHLER 


85 

FE 

SETARA 

STA 

*FE 

(GANZES ARRAY 

84 

FD 

:-- 

STY 

*FD 

; ENDE NEU SETZEN 


NEBENARRAY 


;*57/*58 = ANFANG 

;*59/*5A = ENDE+1 

;*61/*62 = A-ELEMENT 

;*4B/*4C = B-ELEMENT 

;*63/*64 = B-ELEMENT(EINSORTIEREN) 

;*28/*29 = TEILFELDBEGINN 
; (TEILFELDENDE UNNOETIG) 

;*6B/S6C = SCHRITTWEITE 
8 *14 = PLATZBEDARF(2,3 ODER 5) 

; *15 = RUNDUNGSBYTE 

5 WIE *6D/*6E HAUPTARRAY 

;- START- 


154: 

CB20 

A9 

03 



LDA 

•3 

155: 

CB22 

20 

FB 

A3 


JSR 

STEST 

156: 

CB25 

20 

B3 

CD 


JSR 

ARRAY 

157« 

CB28 

8A 




TXA 


158: 

CB29 

48 




PHA 


159: 

CB2A A2 

03 



LDX 

#3 

160: 

CB2C 

B5 

57 


SET AR 

LDA 

*57,X 

161« 

CB2E 

95 

FB 



STA 

*FB, X 

162: 

CB30 

CA 




DEX 


163« 

CB31 

10 

F9 



BPL 

SETAR 

164: 

CB33 

E8 




INX 


165: 

CB34 

AD 

3E 

CF 


LDA 

FLAG1 

166« 

CB37 

F0 

51 



BEQ 

SETAR1 

167: 

CB39 

AD 

3D 

CF 


LDA 

FLAG 

168: 

CB3C 

08 




PHP 


169: 

CB3D 

F0 

06 



BEQ 

NORMAL 

170: 

CB3F 

□E 

3E 

CF 


STX 

FLAG1 

171« 

CB42 

20 

D7 

CD 


JSR 

ARR3 

172« 

CB45 

20 

2E 

CF 

NORMAL 

JSR 

PLATZ 

173« 

CB48 

85 

62 



STA 

*62 

174: 

CB4A 

86 

63 



STX 

*63 

175: 

CB4C 

A2 

90 



LDX 

#*90 

176« 

CB4E 

38 




SEC 


177: 

CB4F 

20 

49 

BC 


JSR 

*BC49 

178« 

CB52 

20 

0C 

BC 


JSR 

*BC0C 

179: 

CB55 

AC 

3E 

CF 


LDY 

FLAG1 

180: 

CB58 

F0 

27 



BEQ 

FEHLF 

181: 

CB5A 

20 

A2 

B3 


JSR 

•B3A2 

182: 

CB5D 

A5 

61 



LDA 

*61 

183: 

CB5F 

20 

12 

BB 


JSR 

*BB12 

184: 

CB62 

20 

F7 

B7 


JSR 

•B7F7 

185: 

CB65 

BC 

3F 

CF 


STY 

OL 

186: 

CB68 

8D 

40 

CF 


STA 

OH 

187« 

CB6B 

AA 




TAX 


188: 

CB6C 

98 




TYA 


189: 

CB6D 

18 




CLC 


190: 

CB6E 

65 

57 



ADC 

*57 

191: 

CB70 

AB 




TAY 



;STACK AUF 
;6 BYTE TESTEN 
;1.ARRAY HOLEN 

S TYP MERKEN 

;ARRAYGRENZEN 
;HAUPTARRAY 


{ 2 DIM.ARRAY 
; NEIN 

;JA,TEST AUF TEIL- 
;BEREICH;WENN JA 
(ENDE UND ANZAHL 
(ELEMENTE 2.DIM. 
(HOLEN 

(GES.PLATZ DIVID. 
(DURCH ANZAHL 
(ELEMENTE 2.DIM. 

; - OFFSET AUF 
(DAS 1.ELEMENT 
(DER 2.DIMENSION 


(OFFSET LOW 
(OFFSET HIGH 


A2 

M 


SETAR0 

LDX 

«0 

(DEFAULT FUER 

86 

14 


SETAR1 

STX 

*14 

(KEIN 2.ARRAY 

20 

79 

00 


JSR 

CHRGOT 


F0 

22 



BEQ 

DEL 


20 

CC 

CD 


JSR 

ARR1 

(2.ARRAY HOLEN 

RA 




TXA 


(PLATZBEDARF NACH 

85 

14 



STA 

*14 

(♦14 UND 

4A 




LSR 


(RUNDUNGSBYTE 

B0 

02 



BCS 

SETR 

(BERECHNEN 

A9 

FF 



LDA 

#*FF 

(—INTEGER— 

85 

15 


SETR 

STA 

*15 

(NEBENARRAY 

8A 




TXA 


(STARTSCHRITTWEITE 

0A 




ASL 


(AUF 511 ELEMENTE 

AA 




TAX 


;HIGH=PLATZ*2—1 

CA 




DEX 



86 

6C 



STX 

*6C 


A9 

00 



LDA 

#0 

;L0W=256—PLATZ 

38 




SEC 



E5 

14 



SBC 

*14 


85 

6B 



STA 

*6B 


20 

21 

CF 


JSR 

GPLATZ 


68 




PLA 


(TEST AUF GLEICHE 

48 




PHA 


(ANZAHL VON 

20 

B0 

CE 


JSR 

TEST 

;ELEMENTEN 


230: 

CBB3 

A0 

00 

DEL 

LDY 

#0 

;DEFAULTWERT 

231: 

CBB5 

84 

2A 


STY 

*2A 

(NUMER.ARRAY 

232: 

CBB7 

68 



PLA 


;FUER MITSORTIEREN 

233: 

CBBB 

85 

6D 


STA 

TYPE 


234: 

CBBA 

C9 

03 


CMP 

#3 

(NUMER.ARRAY 

235: 

CBBC 

F0 

07 


BEQ 

DEL0 

(NEIN 

236: 

CBBE 

AE 

3E CF 


LDX 

FLAG1 

(JA,TEST AUF 

237: 

CBC1 

D0 

BE 


BNE 

FEHLF 

(EINDIMENSIONAL 

238: 

CBC3 

F0 

2F 


BEQ 

ST ART 0 


240: 

CBC5 

A5 

FD 

DEL0 

LDA 

*FD 

!LEERSTRINGS 

241: 

CBC7 

A6 

FE 


LDX 

*FE 

(AM ENDE DES 

242: 

CBC9 

38 


DEL1 

SEC 


; ARRAYS ENTFERNEN 

243: 

CBCA 

E9 

03 


SBC 

#3 

(NUR WENN HAUPT- 

244: 

CBCC 

B0 

01 


BCS 

DEL2 

(ARRAY STRING 

245: 

CBCE 

CA 



DEX 



246: 

CBCF 

85 

55 

DEL2 

STA 

*55 


247: 

CBD1 

86 

56 


STX 

*56 


248: 

CBD3 

Bl 

55 


LDA 

(*55),Y 


249: 

CBD5 

D0 

1A 


BNE 

START 

JKEIN LEERSTRINS 

250: 

CBD7 

A5 

59 


LDA 

*59 

(NEBENARRAY 

251« 

CBD9 

JU 



SEC 


(VERKLEINERN 

252: 

CBDA 

E5 

14 


SBC 

*14 


253: 

CBDC 

85 

59 


STA 

*59 


254: 

CBDE 

B0 

02 


BCS 

DEL3 


255: 

CBE0 

C6 

5A 


DEC 

*5A 


256: 

CBE2 

86 

FE 

DEL 3 

STX 

♦FE 

(HAUPTARRAY 

257« 

CBE4 

A5 

55 


LDA 

*55 

(VERKLEINERN 

258: 

CBE6 

85 

FD 


STA 

*FD 


259: 

CBE8 

C5 

FB 


CMP 

*FB 

(TEST OB ARRAY- 

260: 

CBEA 

D0 

DD 


BNE 

DEL1 

(ANFANG SCHON 

261: 

CBEC 

E4 

FC 


CPX 

*FC 

(ERREICHT IST 

262: 

CBEE 

D0 

D9 


BNE 

DELl 

I NEIN,WEITERMACHEN 


268: 

CBF1 

A5 

6D 

START 

LDA 

TYPE 

269: 

CBF3 

88 



DEY 


270: 

CBF4 

84 

6F 

START0 

STY 

NUMFL 

271: 

CBF6 

4A 



LSR 


272: 

CBF7 

B0 

02 


BCS 

START1 

273« 

CBF9 

A9 

FF 


LDA 

•*FF 

274: 

CBFB 

85 

6E 

START1 

STA 

RUND 

275: 

CBFD 

A5 

6D 


LDA 

TYPE 

276: 

CBFF 

0A 



ASL 


277: 

CC00 

AA 



TAX 


278: 

CC01 

CA 



DEX 



;•••••• ENDE ****** 

•NUR LEERSTRINGS * 
SORTIERBEGINN - 


;STRIN6“*FF 
(NUM.-0 
(RUNDUNGSBYTE 
(BERECHNEN 
(—INTEGER 


(STARTSCHRITT— 
(WEITE AUF 511 
(ELEMENTE SETZEN 


Listing 2. Der Source-Code zu Shellsort in Assembler 




SONDERHEFT 12 


137 





































TIPS & TRICKS 


C64 


279s 

CC02 

A9 

00 


LDA 

N0 

;(WIE OBEN) 

388: 

CCC5 

85 

64 



STA 

*64 


280: 

CC04 

38 



SEC 



389: 

CCC7 

85 

4C 



STA 

*4C 


281: 

CC05 

E5 

6D 


SBC 

TYPE 







; - 




282 s 

CC07 

85 

69 


STA 

»69 


391: 

CCC9 

A0 

00 



LDY 

#0 


283: 

CC09 

86 

6A 


STX 

»6A 


392: 

CCCB 

Bl 

24 


VERGL 

LDA 

(*24),Y 

;DESKRIPTOR 

284: 

CC0B 

AD 

20 D0 


LDA 

53280 

j RAHhENFARBE 

393: 

CCCD 

F0 

CI 


B0 

BEQ 

WORK 

;B-ELEMENT NACH 

285c 

CC0E 

48 



PHA 


(MERKEN 

394: 

CCCF 

85 

5E 



STA 

*5E 

{*5E—*60;WENN 





; - 




395: 

CCD1 

CB 




INY 


;LAENGE=0,DANN 

287: 

CC0F 

46 

6A 

BIG 

LSR 

»6A 

SSCHRITTWEITE 

396« 

CCD2 

Bl 

24 



LDA 

<*24>,Y 

;NAECHSTES ELEMENT 

288: 

ccn 

A5 

69 


LDA 

*69 

;HALBIEREN 

397: 

CCD4 

85 

5F 



STA 

*5F 


289: 

CC13 

6A 



ROR 


SSTART MIT 255 ELEM. 

398: 

CCD6 

C8 




INY 



290: 

CCM 

24 

6E 


BIT 

RUND 

;TEST AUF INTEGER 

399: 

CCD7 

Bl 

24 



LDA 

(*24),Y 


291: 

CC16 

50 

03 


BVC 

BIGA 

5 NEIN 

400: 

CCD9 

85 

60 



STA 

*60 


292s 

CC1B 

29 

FE 


AND 

»*FE 

5JA,BIT 0 LOESCHEN 






s- 

EINSPRUNG EINSORTIEREN (LDY *2) - 

293: 

CC1A 

18 



CLC 


S UND KEIN UEBERTRAG 

402: 

CCDB 

Bl 

22 


VERS 

LDA 

(*22>,Y 

( DESKRIPTOR 

294: 

CC1B 

90 

02 

BIGA 

BCC 

BIGB 


403: 

CCDD 

85 

5D 



STA 

*5D 

;A-ELEMENT NACH 

295: 

CC1D 

ES 

6E 


SBC 

RUND 


404: 

CCDF 

88 




DEY 


| *5B—*5D( WENN 

296: 

CC1F 

AA 


BIGB 

TAX 



405: 

CCE0 

Bl 

22 



LDA 

(*22>,Y 

;LAENGE»0,DANN 

297: 

CC20 

D0 

05 


BNE 

BIG1 


406: 

CCE2 

85 

5C 



STA 

*5C 

;TAUSCHEN 

298: 

CC22 

68 



PLA 



407: 

CCE4 

88 




DEY 


;Y-REG. - 0 

299: 

CC23 

8D 

20 D0 


STA 

53280 


408: 

CCE5 

Bl 

22 



LDA 

(*22>,Y 


300: 

CC26 

60 



RTS 


s ****** ENDE ****** 

409: 

CCE7 

85 

5B 



STA 

*5B 


301: 

CC27 

85 

69 

BIG1 

STA 

*69 


410: 

CCE9 

F0 

66 



BEQ 

SWAP 


302: 

CC29 

EE 

20 D0 


INC 

53280 

SBLINKEN 

411: 

CCEB 

C5 

5E 



CMP 

*5E 

; VERGLEICHBLAENGE 

303: 

CC2C 

18 



CLC 



412: 

CCED 

F0 

04 



BEQ 

VER1 

(NACH X-REG. 

304: 

CC2D 

A5 

FB 


LDA 

*FB 

STEILFELDSTART 

413: 

CCEF 

90 

02 



BCC 

VER1 

-.HOLEN 

305: 

CC2F 

AA 



TAX 


;=ARRAYANFANG 

414: 

CCF1 

A5 

5E 



LDA 

*5E 


306: 

CC30 

65 

69 


ADC 

*69 

SLOW IN X-REG 

415: 

CCF3 

AA 



VER1 

TAX 



307: 

CC32 

85 

55 


STA 

*55 

SHIGH IN Y-REG 






, - 




308: 

CC34 

A5 

FC 


LDA 

•FC 

5+SCHRITTW. 

417: 

CCF4 

Bl 

5C 


LOOP 

LDA 

(*5C),Y 

;STRINGVERGLEICH 

309: 

CC36 

A8 



TAY 


5“TEILFELDENDE 

418: 

CCF6 

Dl 

5F 



CMP 

<*5F>,Y 

;FUER 1.DIMENSION 

310: 

CC37 

65 

6A 


ADC 

*6A 


419: 

CCF8 

90 

97 


Bl 

BCC 

WORK+1 


311: 

CC39 

85 

56 


STA 

»56 


420: 

CCFA 

D0 

55 



BNE 

SWAP 


312: 

CC3B 

A5 

14 


LDA 

»14 


421: 

CCFC 

C8 




INY 



313: 

CC3D 

F0 

42 


BEQ 

SET3 


422« 

CCFD 

CA 




DEX 



314: 

CC3F 

46 

6C 


LSR 

*6C 

SSCHRITTWEITE 

423: 

CCFE 

D0 

F4 



BNE 

LOOP 


315: 

CC41 

A5 

6B 


LDA 

*6B 

? NEBENARRAY 

424« 

CD00 

A4 

5B 



LDY 

*5B 


316: 

CC43 

6A 



ROR 


SHALBIEREN 

425: 

CD02 

C4 

5E 



CPY 

*5E 


317: 

CC44 

24 

15 


BIT 

*15 

;TEST AUF INTEGER 

426: 

CD04 

90 

8B 



BCC 

WORK+1 

;WENN GLEICH,DANN 

318: 

CC46 

50 

03 


BVC 

BIG2 

5 NEIN 

427: 

CD06 

D0 

49 



BNE 

SM AP 


319: 

CC48 

29 

FE 


AND 

#*FE 

;JA,BIT 0 LOESCHEN 

428: 

CD08 

AE 

3E 

CF 


LDX 

FLAG1 

;TEST AUF 2.DIM. 

320: 

CC4A 

18 



CLC 


;UND KEIN UEBERTRAG 

429: 

CD0B 

F0 

C0 



BEQ 

B0 

;NEIN,NACH "WORK" 

321: 

CC4B 

90 

02 

BIG2 

BCC 

BIG3 







■- 




322: 

CC4D 

E5 

15 


SBC 

*15 


431: 

CD0D 

86 

2A 



STX 

*2A 

;DESKRIPTOREN DER 

323: 

CC4F 

85 

6B 

BIG3 

STA 

*6B 


432: 

CD0F 

20 

15 

CF 


JSR 

D2SET 

{2.DIMENSION 

324: 

CC51 

A5 

57 


LDA 

*57 


433: 

CD 12 

C6 

2A 


ZL 

DEC 

*2A 

;SETZEN UND 

325: 

CC53 

85 

4B 


STA 

*4B 


434: 

CD14 

F0 

B7 


B2 

BEQ 

B0 

(VERGLEICH NACH 

326: 

CC55 

85 

28 


STA 

*28 


435: 

CD16 

20 

F6 

CE 


JSR 

DSET 

;DEN ELEMENTEN 

327: 

CC57 

A5 

58 


LDA 

*58 


436: 

CD19 

A0 

02 



LDY 

#2 

;ROUTINE IST 

328: 

CC59 

D0 

22 


BNE 

SET2A 

; UNBEDINGTER SPRUNG 

437: 

CD1B 

Bl 

47 


ZI 

LDA 

(*47),Y 

(SELBSTMODI- 





;- 




438: 

CD1D 

99 

3B 

CD 


STA 

VI,Y 

;FIZIEREND 

330: 
331: 

CC5B 

rrsn 

A5 

A4 

26 

27 

SET 

LDA 
i nv 

*26 

; NAECHSTES TEILFELD 

439: 

OM: 

CD20 

Bl 

99 

49 

3F 

TD 


LDA 

STA 

(*49),Y 
V2,Y 


332: 

CC5F 

18 



CLC 


Ofen 

441: C^T 

88 




DEY 



333: 

CC60 

65 

6D 


ADC 

TYPE 


442: 

CD26 

D0 

F3 



BNE 

ZI 


334: 

CC62 

AA 



TAX 



443: 

CD28 

Bl 

49 



LDA 

(*49),Y 


335: 

CC63 

90 

01 


BCC 

SETI 


444: 

CD2A 

F0 

Al 


B4 

BEQ 

B0 


336: 

CC65 

C8 



INY 



445: 

CD2C 

85 

46 



STA 

*46 


337: 

CC 66 

C5 

55 

SETI 

CMP 

*55 

;WENN ALLE TEIL- 

446: 

CD2E 

Bl 

47 



LDA 

(*47),Y 


338: 

CC68 

D0 

04 


BNE 

SET2 

;FELDER SORTIERT, 

447: 

CD30 

F0 

1F 



BEQ 

SWAP 


339: 

CC6A 

C4 

56 


CPY 

*56 

;DANN SCHRITTWEITE 

448: 

CD32 

85 

45 



STA 

*45 


340: 

CC6C 

F0 

Al 


BEQ 

BIG 

SHALBIEREN 

449: 

CD34 

C5 

46 



CMP 

*46 


341: 

CC6E 

A5 

14 

SET2 

LDA 

*14 


450: 

CD36 

90 

02 



BCC 

V0 


342: 

CC70 

F0 

0F 


BEQ 

SET3 


451: 

CD38 

A5 

46 



LDA 

*46 


343: 

CC72 

18 



CLC 



452: 

CD3A 

AA 



V0 

TAX 



344: 

CC73 

65 

28 


ADC 

*28 


453: 

CD3B 

B9 

11 

47 

VI 

LDA 

*4711,Y 

;DUMMY-WERT 

345: 

CC75 

85 

28 


STA 

*28 


454: 

CD3E 

D9 

15 

08 

V2 

CMP 

*0815,Y 

J 

346: 

CC77 

85 

4B 


STA 

*4B 


455: 

CD41 

90 

B5 



BCC 

Bl 


347: 

CC79 

A5 

29 


LDA 

*29 


456: 

CD43 

D0 

0C 



BNE 

SWAP 


348: 

CC7B 

69 

00 


ADC 

»0 


457: 

CD4S 

CB 




INY 



349: 

CC7D 

85 

29 

SET2A 

STA 

*29 


458: 

CD46 

CA 




DEX 



350: 

CC7F 

85 

4C 


STA 

*4C 


459: 

CD47 

D0 

F2 



BNE 

VI 


351: 

CC81 

8A 


SET3 

TXA 



460: 

CD49 

A4 

48 



LDY 

*45 


352: 

CC82 

85 

26 


STA 

*26 


461: 

CD4B 

C4 

46 



CPY 

*46 


353: 

CC84 

84 

27 


STY 

*27 


462: 

CD4D 

90 

A9 



BCC 

Bl 


354: 

CC86 

18 



CLC 



463: 

CD4F 

F0 

CI 



BEQ 

ZL 


355: 

CC87 

24 

6F 


BIT 

NUMFL 

;NUMER.ARRAY 










356: 

CC89 

70 

0A 


BVS 

W1 

S NEIN 

465: 

CD51 

AC 

3E 

CF 

SWAP 

LDY 

FLAG1 

(TEST 2—DIMENSIONAL 

357« 

CC8B 

20 

46 CF 


JSR 

ZAHL 

1JA 

466: 

CD54 

F0 

03 



BEQ 

SWAP1 

(NEIN 

358a 

CC8E 

M 

CB 


BCS 

SET 


467: 

CD56 

20 

D9 

CE 


JSR 

SWAPD2 

(JA,TAUSCHEN 





; -— 




468: 

CD59 

A4 

14 


SWAP1 

LDY 

*14 

(TEST NEBENARRAY 

360: 

CC90 

18 


WORK 

CLC 


iSORTIEREN BIS ZUM 

469: 

CD5B 

F0 

20 



BEQ 

SWAP3 

(NEIN 

361: 

CC91 

A5 

71 


LDA 

*71 

SERSTEN TAUSCH 

470: 

CD5D 

88 




DEY 


5JA,TAUSCHEN 

362: 

CC93 

A4 

72 


LDY 

*72 

S B-ELEMENT < *71/*72) 

471« 

CD5E 

Bl 

61 


SWAP2 

LDA 

(*61>,Y 


363: 

CC95 

85 

22 

W1 

STA 

*22 

SWIRD ZU A-ELEMENT 

472: 

CD60 

AA 




TAX 



364: 

CC97 

65 

69 


ADC 

*69 

8♦SCHRITTWEITE 

473: 

CD61 

Bl 

63 



LDA 

(»63),Y 


365: 

CC99 

AA 



TAX 


8- B-ELEMENT 

474: 

CD63 

91 

61 



STA 

(*61) , Y 


366: 

CC9A 

9B 



TYA 



475: 

CD65 

8A 




TXA 



3671 

CC9B 

65 

6A 


ADC 

*6A 


476« 

CD66 

91 

63 



STA 

(•63),Y 


368: 

CC9D 

C5 

FE 


CMP 

•FE 

STEST,OB B-ELEMENT 

477: 

CD68 

88 




DEY 



369: 

CC9F 

90 

06 


BCC 

NEXT 

;>ARRAYENDE, 

478: 

CD69 

10 

F3 



BPL 

SWAP2 


370: 

CCA1 

D0 

B8 


BNE 

SET 

5WENN JA,DANN 

479: 

CD6B 

C8 




INY 


(Y-REG.*0 

371: 

CCA3 

E4 

FD 


CPX 

♦FD 


480: 

CD6C 

30 




SEC 



372: 

CCA5 

B0 

B4 


BCS 

SET 

SNAECHSTES TEILFELD 

481: 

CD6D 

A5 

61 



LDA 

*61 

;NEBENARRAY 

373: 

CCA7 

85 

25 

NEXT 

STA 

•25 


482: 

CD6F 

85 

63 



STA 

*63 

(ZUR EINSOR- 

374: 

CCA9 

84 

23 


STY 

•23 


483: 

CD71 

E5 

6B 



SBC 

*6B 

(TIERUNG 

375: 

CCAB 

86 

24 


STX 

•24 


484: 

CD73 

85 

61 



STA 

*61 

(VORBEREITEN 

376: 

CCAD 

85 

72 


STA 

*72 


485: 

CD75 

A5 

62 



LDA 

•62 

(SIEHE PRG.— 

377: 

CCAF 

86 

71 


STX 

*71 


486: 

CD77 

85 

64 



STA 

*64 

(TEIL BORT 

378: 

CCB1 

A4 

14 


LDY 

*14 


487: 

CD79 

E5 

6C 



SBC 

*6C 


379: 

CCB3 

F0 

16 


BEQ 

VERGL 


488: 

CD7B 

85 

62 



STA 

*62 


380: 

CCB5 

A5 

4B 


LDA 

*4B 


489: 

CD7D 

A5 

5B 


SWAP3 

LDA 

*5B 

;HAUPTARRAY 

381: 

CCB7 

85 

61 


STA 

*61 


490: 

CD7F 

91 

24 



STA 

(*24),Y 

(DESKRIPTOREN 

382: 

CCB9 

65 

6B 


ADC 

*6B 


491: 

CD81 

A5 

5E 



LDA 

*5E 

(TAUSCHEN 

383« 

CCBB 

85 

63 


STA 

*63 


492: 

CD83 

71 

22 



STA 

(*22>,Y 

{ 

384: 

CCBD 

85 

4B 


STA 

*4B 


493: 

CD85 

C8 




INY 



385: 

CCBF 

A5 

4C 


LDA 

*4C 


494: 

CD86 

A5 

5C 



LDA 

*5C 


386: 

CCC1 

85 

62 


STA 

*62 


495: 

CD88 

91 

24 



STA 

(*24),Y 


387: 

CCC3 

65 

6C 


ADC 

*6C 


496: 

CD8A 

A5 

5F 



LDA 

*5F 



aas? 
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C64 


TIPS & TRICKS 


497: 

CD8C 

91 

22 



STA 

(*22),Y 


607: 

CE4F 

20 

FD 

AE 


JSR 

KOMMA 

{ENDE HOLEN 

498: 

CD8E 

C8 




INY 


;Y—REG.=2 

60B: 

CE52 

20 

9E 

AD 


JSR 

TERM 


499: 

CD BF 

A5 

5D 



LDA 

*5D 


609: 

CE55 

20 

38 

CE 


JSR 

NAME 

{ANGEGEBENES 

500: 

CD91 

91 

24 



STA 

(»24), Y 


610: 

CE58 

8A 




TXA 


{ELEMENT AUCH NOCH 

501: 

CD93 

A5 

60 



LDA 

»60 


611: 

CE59 

18 




CLC 


{MITSORTIEREN 

502: 

CD95 

91 

22 



STA 

(»22),Y 


612: 

613: 

CE5A 

CE5C 

65 

BS 

47 

59 



ADC 

STA 

*47 

*59 







* 







504: 

CD97 

A5 

22 


SORT 

LDA 

»22 

;NACH LINKS EINSOR- 

614: 

CE5E 

A4 

48 



LDY 

*48 


505: 

CD99 

A6 

23 



LDX 

*23 

{TIEREN,BIS KEIN 

615: 

CE60 

90 

01 



BCC 

TEIL3 


506: 

CD9B 

E4 

27 



CPX 

*27 

{TAUSCH ERFOLGT BZW 

616: 

CE62 

C8 




INY 



507: 

CD9D 

D0 

04 



BNE 

SOI 

;DIE LINKE TEILFELD 

617: 

CE63 

84 

5A 


TEIL3 

STY 

*5A 


508: 

CD9F 

CS 

26 



CMP 

*26 

{GRENZE ERREICHT 

618: 

CE65 

68 




PLA 


{TEST AUF 

509: 

CDA1 

F0 

87 



BEQ 

B4 

{IST.DESKRIPTOR DES 

619: 

CE66 

C5 

45 



CMP 

*45 

{GLEICHEN NAMEN 

510: 

CDA3 

85 

24 


SOI 

STA 

*24 

{EINZUSORTIERENDEN 

620: 

CE 68 

D0 

B0 



BNE 

FEHLER 

511: 

CDA5 

86 

25 



STX 

»25 

{ELEMENTS BLEIBT IN 

621: 

CE6A 

68 




PLA 



512: 

CDA7 

ES 

69 



SBC 

*69 

;*5E—*60.B-ELEMENT 

622: 

CE6B 

CS 

46 



CMP 

*46 


513: 

CDA9 

85 

22 



STA 

»22 

{WIRD DURCH ZEIGER 

623: 

CE6D 

D0 

AB 


FEHLA 

BNE 

FEHLER 


514: 

CDAB 

BA 




TXA 


{*24/*25 BESETZT. 

624: 

CE6F 

68 




PLA 


{LOW-BYTE ANFANG 

515: 

CDAC 

E5 

6A 



SBC 

*6A 

{ZEIGER *71/*72 

625: 

CE70 

A8 




TAY 



516: 

CDAE 

85 

23 



STA 

*23 

{WIRD NICHT 

626: 

CE71 

68 




PLA 


{HIGH-BYTE ANFANG 

517: 

CDB0 

4C 

DB 

CC 


JMP 

VERS 

;GEAENDERT ! 

627: 

CE72 

C5 

30 



CMP 

*30 

{TEST,OB IM 






i 




628: 

629: 

CE74 

CE76 

90 

D0 

A4 



BCC 

BNE 

FEHLER 

TEIL4 

{BEREICH DER 
{ARRAYS 






i 




04 








? 




630: 

CE70 

C4 

2F 



CPY 

*2F 


521: 

CDB3 

A9 

00 


ARRAY 

LDA 

«0 

;DEFAULTWERT FUER 

631: 

CE7A 

90 9E 



BCC 

FEHLER 


522: 

CDB5 

8D 

3D 

CF 


STA 

FLAG 

{GANZES ARRAY 

632: 

CE7C 

85 

58 


TEIL4 

STA 

*58 


523: 

CDBB 

BD 

3E 

CF 


STA 

FLAG1 

{DEFAULT l.DIH. 

633: 

CE7E 

84 

57 



STY 

*57 


524: 

CDBB 

20 

79 

00 


JSR 

CHRGOT 

{LETZTES ZEICHEN 

634: 

CEB0 

C5 

5A 



CMP 

*5A 

{TEST,OB 

525: 

CDBE 

C9 

23 



CMP 


{NUR TEILARRAY 

635: 

CE 82 

90 

CI 



BCC 

NAME2 

{ANFANG < ENDE 

526: 

CDC0 

Df 

0A 



BNE 

ARR1 

{NEIN 

636: 

CE84 

D0 

94 



BNE 

FEHLER 

527: 

CDC2 

20 

9B 

B7 


JSR 

»B79B 

{1 ODER 2 DIM. 

637: 

CE86 

C4 

59 



CPY 

*59 


528: 

CDC5 

CA 




DEX 



638: 

CE88 

B0 

90 


FEHLB 

BCS 

FEHLER 


529: 

CDC6 

8E 

3E 

CF 


STX 

FLAG1 

{FLAGGE 1/2 DIM. 
{FLAGGE TEILSORT.- 

639: 

CEBA 

60 




RTS 



530: 

CDC9 

CE 

3D 

CF 



FLAG 










531: 

CDCC 

20 

FD 

AE 

ARR1 

JSR 

KOMMA 


641: 

CE8B 

4A 



LTEST 

LSR 


{GES.PLATZ 

532: 

CDCF 

20 

9E 

AD 

ARR2 

JSR 

TERM 

{NICHT *B08B !!!! 

642: 

CEBC 

29 

02 



AND 

#2 

{HAUPTARRAY 

533: 

CDD2 

AC 

3D 

CF 


LDY 

FLAG 


643: 

CE8E 

08 




PHP 


{*SPEZ.PLATZ 

534: 

CDD5 

D0 

6F 



BNE 

TEIL1 


644: 

CE8F 

A5 

22 



LDA 

*22 

{NEBENARRAY 






; 

HnhHT bUrtlltHtlN 









; 

536: 

CDD7 

A5 

2F 


ARR3 

LDA 

*2F 

{AB ANFANG DER 

646: 

CE92 

AA 




TAX 


{GES.PLATZ 

537: 

CDD9 

A6 

30 



LDX 

*30 

{ARRAYS MIT DER 

647: 

CE93 

A5 

23 



LDA 

»23 

{NEBENARRAY 

538: 

CDDB 

85 

57 


GANZ 

STA 

*57 

{SUCHE BEGINNEN 

648: 

CE95 

2A 




ROL 


{*SPEZ.PLATZ 

539: 

CDDD 

86 

58 



STX 

*58 


649: 

CE96 

B0 

F0 



BCS 

FEHLB 

{HAUPTARRAY 

540: 

CDDF 

C5 

31 



CMP 

*31 

{WENN ENDE DER 

650: 

CE98 

A8 




TAY 


{SONST FEHLER ! 

541: 

CDE1 

D0 

04 



BNE 

GANZ0 

{ARRAYS ERREICHT, 

651: 

CE99 

28 




PLP 


; - 

542: 

CDE3 

E4 

32 



CPX 

*32 

{DANN NICHT 

652: 

CE9A 

90 

13 



BCC 

LT2 

{INTEGER 

543: 

CDE5 

F0 

33 



BEQ 

FEHLER 

{GEFUNDEN,FEHLER ! 

653: 

CE9C 

F0 

08 



BEQ 

LT1 

{STRING 

544: 

CDE7 

A0 

00 


GANZ0 

LDY 

#0 


654: 

CE9E 

8A 




TXA 


{REAL 

545: 

CDE9 

Bl 

57 



LDA 

(*57),Y 


655: 

CE9F 

0A 




ASL 



546: 

CDEB 

C8 




INY 



656: 

CEA0 

AA 




TAX 



547: 

CDEC 

C5 

45 



CMP 

*45 

{VARIABLENNAME 

657: 

CEA1 

98 




TYA 



548: 

CDEE 

D0 

04 



BNE 

GANZ 1 

658: 

CEA2 

2A 




ROL 



549: 

CDF0 

Bl 

57 



LDA 

(*57),Y 

G4€A on 

659: 

CEA3 

AB 




TAY 



550: 

CDF2 

C5 

46 



CMP 

*46 

660: . EA4 

B0 

E2 


FEHLC 

BCS 

FEHLB 


551: 

CDF4 

08 



GANZ 1 

PHP 


{WENN GEFUNDEN,DANN 

661: 

CEA6 

18 



LT1 

CLC 



552: 

CDF5 

C8 




INY 


{ZEROFLAG GESETZT 

662: 

CEA7 

BA 




TXA 



553: 

CDF6 

Bl 

57 



LDA 

(*57),Y 

{ENDE NACH *59/*5A 

663: 

CEAB 

65 

22 



ADC 

*22 


554: 

CDF8 

18 




CLC 



664: 

CEAA 

AA 




TAX 



555: 

CDF9 

65 

57 



ADC 

*57 


665: 

CEAB 

98 




TYA 



556: 

CDFB 

85 

59 



STA 

*59 


666: 

CEAC 

65 

23 



ADC 

*23 


557: 

CDFD 

C8 




INY 



667: 

CEAE 

AB 




TAY 



558: 

CDFE 

Bl 

57 



LDA 

(*57),Y 


668: 

CEAF 

60 



LT2 

RTS 



559: 

CE00 

65 

58 



ADC 

*58 







; 




560: 

coaz'ss 

5A 



STA 

*5A 


670: 

CEB0 

20 

8B 

CE 

TEST 

JSR 

LTEST 

{EINSPRUNG 

561: 

CE04 

AA 




TAX 



671: 

CEB3 

G6 

24 



STX 

*24 

{TEST AUF GLEICHE 

562: 

CE05 

A5 

59 



LDA 

*59 


672: 

CEB5 

84 

25 



STY 

*25 

{ELEMENTZAHL 

563: 

CE07 

28 




PLP 


{TEST,OB GEFUNDEN 

673: 

CEB7 

A5 

69 



LDA 

*69 

{S.-LTEST“ 

564: 

CE08 

D0 

Dl 



BNE 

GANZ 

{NAECHSTES ARRAY 

674: 

CEB9 

85 

22 



STA 

*22 


565: 

CE0A 

C8 




INY 


{—ARRAY GEFUNDEN 

67ä: 

CEBB 

A5 

6A 



LDA 

*6A 


566: 

CE0B 

Bl 

57 



LDA 

(*57),Y 

{TEST,OB ARRAY 

676: 

CEBD 

BS 

23 



STA 

*23 


567: 

CE0D 

C9 

01 



CMP 

• 1 

{EINDIMENSIONAL 

677: 

CE BF 

A5 

14 



LDA 

*14 


568: 

CE0F 

F0 

IC 



BEQ 

GANZ4 

{JA,DANN OK 

678: 

CEC1 

20 

8B 

CE 


JSR 

LTEST 


569: 

CE11 

C9 

02 



CMP 

«2 

679: 

CEC4 

C4 

25 



CPY 

*25 


570: 

CE 13 

D0 

05 



BNE 

FEHLER 


680: 

CEC6 

D0 

A5 



BNE 

FEHLA 


571: 

CE15 

AD 

3E 

CF 


LDA 

FLAG1 


681: 

CEC8 

E4 

24 



CPX 

*24 


572: 

CE 18 

F0 

05 



BEQ 

GANZ3 


682: 

CECA 

D0 

Al 


FEHLD 

BNE 

FEHLA 


573: 

CE1A 

A2 

19 


FEHLER 

LDX 

•*19 

{FORMULA TOO 

683: 

CECC 

A5 

FB 



LDA 

*FB 

{TEST OB BEIDE 

574: 

CE1C 

6C 

00 

03 


JMP 

(*300) 

{KOMPLEX AUSGEBEN 

684: 

CECE 

C5 

57 



CMP 

*57 

{ARRAYS GLEICH SIND 

575: 

CE1F 

C8 



GANZ3 

INY 



685: 

CED0 

D0 

06 



BNE 

OKI 

{“SYS52000,A*,A* 

576: 

CE20 

Bl 

57 



LDA 

(*57), Y 


686: 

CED2 

A5 

FC 



LDA 

*FC 

{WENN JA,FEHLER 

577: 

CE22 

D0 

F6 



BNE 

FEHLER 


687: 

CED4 

C5 

58 



CMP 

*58 


578: 

CE24 

ca 




INY 



688: 

CED6 

f 0 

Bf 



BEQ 

FEHLB 


579: 

CE25 

Bl 

57 

CF 


LDA 

<*57> ,Y 


689: 

CED8 

60 



OKI 

RTS 



580: 

CE27 

8D 

3E 


STA 

FLAG1 







1 




581: 

CE2A 

A9 

09 



LDA 

•9 

{9 

691: 

CED9 

88 



SWAPD2 

DEY 


{ALLE ELEMENTE 

582: 

CE2C 

2C 




.BYTE*2C 

{BZW 

692: 

CEDA 

84 

2A 



STY 

*2A 

{DER 2.DIM. 

583: 

CE2D 

A9 

07 


GANZ 4 

LDA 

•7 

{7 BYTE ZU 

693: 

CEDC 

2 0 

15 

CF 


JSR 

D2SET 

{TAUSCHEN 

584: 

CE2F 

18 




CLC 


{ANFANG ADDIEREN 

694: 

CEDF 

20 

F6 

CE 

Dl 

JSR 

DSET 


585: 

CE30 

65 

57 



ADC 

*57 

{UM AUF l.DESKR. 

695: 

CFF? 

A0 

02 



LDY 

•2 


5B6: 

CE32 

85 

57 



STA 

*57 

{ZU ZEI6EN 

696: 

CEE4 

Bl 

47 


D2 

LDA 

(*47),Y 


587: 

CE34 

90 

02 



BCC 

NAME 

697: 

CEE6 

AA 




TAX 



58B: 

CE36 

E6 

58 



INC 

*58 


698: 

CEE7 

Bl 

49 



LDA 

(*49),Y 







( 




699: 

CEE9 

91 

47 



STA 

(*47),Y 


590: 

CE30 

A2 

05 


NAME 

LDX 

•5 

{SPEZ.PLATZBEDARF 

700: 

CEEB 

8A 




TXA 



591: 

CE3A 

A5 

46 



LDA 

*46 

{AUS VARIABLENNAME 

701: 

CEEC 

91 

49 



STA 

<*»9>,Y 


592: 

CE3C 

10 

02 



BPL 

NAME1 

{BERECHNEN UND INS 

702: 

CEEE 

88 



D4 

DEY 


{EINSPRUNG NUM. 

593: 

CE3E 

CA 




DEX 


{X-REGISTER 

703: 

CEEF 

10 

F3 



BPL 

D2 

;NEBENARRAY 

594: 

CE3F 

CA 




DEX 


{INTEGER - 2 

704: 

CEF1 

C6 

2A 



DEC 

*2A 

{TAUSCHEN 

595: 

CE40 

A5 

45 


NAME1 

LDA 

*45 

{STRING = 3 

705: 

CEF3 

D0 

EA 



BNE 

Dl 


596: 

CE42 

10 

01 



BPL 

NAME2 

{REAL - 5 

706: 

CEF5 

60 




RTS 



597: 

CE44 

CA 




DEX 








i 




598: 

CE45 

60 



NAME2 

RTS 



708: 

CEF6 

A5 

47 


DSET 

LDA 

*47 

{DESKRIPTOREN 










709: 

CEF8 

IQ 




CLC 


{FUER ELEMENTE 
{DER 2.DIM. 






5— BEREICH 

FUER TEILSORTIERUNG HOLEN — 

710: 

CEF9 

6D 

3F 

CF 


ADC 

OL 




03 


TEIL1 

LDY 

#3 


711: 

CEFC 

85 

47 



STA 

*47 

{BERECHNEN 

602: 

CE46 

A0 











603: 

CE 48 

B9 

45 

00 

TEIL2 

LDA 

*45, Y 











604: 

605: 

CE4B 

CE4C 

48 

88 




PHA 

DEY 


{NAME UND ANFANG 
{AUF STACK 

Listing 2. Der Source-Code zu Shellsort in Assembler 

606: 

CE4D 

10 

F9 



BPL 

TEIL2 


(Fortsetzung) 
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TIPS & TRICKS 


C 64 


712; 

CEFE 

A5 

48 



LDA 

*48 


713; 

CF00 

6D 

40 

CF 


ADC 

OH 


714; 

CF03 

85 

40 



STA 

*48 


715; 

CF05 

18 




CLC 



716; 

CF06 

A5 

49 



LDA 

*49 


717: 

CF00 

6D 

3F 

CF 


ADC 

OL 


718: 

CF0B 

85 

49 



STA 

*49 


719: 

CF0D 

A5 

4A 



LDA 

*4A 


720: 

CF0F 

6D 

40 

CF 


ADC 

OH 


721: 

CF 12 

05 

4A 



STA 

*4A 


722: 

CF 14 

60 




RTS 



724: 

CF 15 

A0 

03 


D2SET 

LDY 

#3 

fVORBEREITUNG 

725: 

CF 17 

B9 

22 

00 

D3 

LDA 

*22, Y 

;AUF 1.ELEMENT 

726: 

CF1A 

99 

47 

00 


STA 

*47,Y 

;DER 2.DIMENSION 

727: 

CF1D 

00 




DEY 



728: 

CF1E 

10 

F7 



BPL 

D3 


729: 

CF20 

60 




RTS 



731: 

CF21 

A5 

FD 


BPLATZ 

LDA 

♦FD 

;GESAMTPLATZ- 

732: 

CF23 

38 




SEC 


;BEDARF FUER 

733: 

CF24 

E5 

FB 



SBC 

»FB 

;HAUPTARRAY 

734s 

CF26 

85 

69 



STA 

*69 

;BERECHNEN 

735: 

CF28 

A5 

FE 



LDA 

•FE 


736: 

CF2A 

ES 

FC 



SBC 

•FC 


737: 

CF2C 

85 

6A 



STA 

*6A 


738: 

CF2E 

A3 

59 


PLATZ 

LDA 

*59 

;WIE OBEN FUER 

739: 

CF30 

38 




SEC 


s NEBENARRAY 

740: 

CF31 

ES 

57 



SBC 

*57 


741! 

CF33 

85 

22 



STA 

*22 


742: 

CF35 

AA 




TAX 



743: 

CF 36 

A5 

5A 



LDA 

*5A 


744: 

CF38 

E5 

58 



SBC 

*58 


745: 

CF3A 

85 

23 



STA 

*23 


746: 

CF3C 

60 



BLE 

RTS 



748: 

CF3D 

EA 



* 

FLAG 

NOP 


;FLAGGE TEILARRAY 

749: 

CF3E 

EA 



FLAG1 

NOP 


;FLAGGE 2 DIM. 

750: 

CF3F 

EA 



OL 

NOP 


;OFFSET AUF 1. 

751: 

CF40 

EA 



OH 

NOP 


;ELEMENT 2.DIM. 






5 

r ... n.i 













755: 

CF41 

A5 

71 


! 

BL 

LDA 

*71 

;VERGL ROUTINEN 

756: 

CF43 

A4 

72 



LDY 

*72 

j-WORK" BIS "SORT" 

757: 

CF45 

18 




CLC 



758: 

CF46 

85 

5B 


ZAHL 

STA 

*5B 

;A—ELEMENT 

759: 

CF48 

84 

5C 



STY 

*5C 


760: 

CF4A 

65 

69 



ADC 

*69 


761: 

CF4C 

AA 




TAX 



762: 

CF4D 

98 




TYA 



763: 

CF4E 

65 

6A 



ADC 

*6A 


764: 

CF50 

CS 

FE 



.CMP 

*FE 


765: 

CF52 

90 

06 



BCC 

BL1 

6*6H 

766: 

CF54 

D0 

E6 



BNE 

BLE 


767: 

CF56 

E4 

FD 



CPX 

*FD 


768: 

CF58 

B0 

E2 



BCS 

BLE 


769: 

CF5A 

A8 



BL1 

TAY 



770: 

CF5B 

85 

72 



STA 

*72 

;B-ELEMENT 

771: 

CF5D 

86 

71 



STX 

*71 

;GROSSE SCHLEIFE 

772: 

CF5F 

85 

5E 



STA 

*5E 

;B-ELEMENT 

773: 

CF61 

86 

5D 



STX 

*5D 

;EINSORTIEREN 

774: 

CF 63 

A5 

14 



LDA 

*14 


775: 

CF65 

F0 

14 



BEQ 

ZVER 


776: 

CF67 

A5 

4B 



LDA 

*4B 


777: 

CF 69 

85 

47 



STA 

*47 


778: 

CF6B 

65 

6B 



ADC 

*6B 


779: 

CF6D 

85 

4B 



STA 

*4B 


700: 

CF6F 

85 

49 



STA 

*49 


781: 

CF71 

A5 

4C 



LDA 

*4C 


782: 

CF73 

85 

48 



STA 

*48 


783: 

CF75 

65 

6C 



ADC 

*6C 


784: 

CF77 

85 

4C 



STA 

*4C 


785: 

CF 79 

85 

4A 



STA 

*4A 


787: 

CF7B 

0A 



ZVER 

TXA 



7B8: 

CF7C 

24 

6E 



BIT 

RUND 

;WENN RUND=*FF 

789: 

CF7E 

70 

60 



BVS 

INT 

i DANN INTEGER • 


790: 

CF80 

20 

A2 

BB 


791: 

CF83 

A5 

5B 



792: 

CF85 

A4 

5C 



793: 

CF87 

20 

SB 

BC 

ZV1 

794: 

CF8A 

AA 




795: 

CF8B 

F0 

B4 



796: 

CFBD 

CD 

FE 

CF 


797: 

CF90 

F0 

AF 


ZVB1 

798: 

CF 9 2 

A4 

6D 


ZTAU 

799: 

CF94 

88 




800: 

CF 95 

Bl 

5B 


SZ1 

801: 

CF97 

AA 




802: 

CF9B 

Bl 

5D 



003: 

CF9A 

91 

SB 



004: 

CF9C 

8A 




805: 

CF9D 

91 

5D 



806: 

CF9F 

88 




807: 

CFA0 

10 

F3 



808: 

CFA2 

A4 

14 



809: 

CFA4 

F0 

05 



810: 

CFA6 

E6 

2A 



811: 

CFA8 

20 

EE 

CE 

s — 
ZV2 

813: 

CFAB 

A5 

SB 


814: 

CF AD 

A4 

5C 



B15: 

CFAF 

C4 

27 



816: 

CFBl 

D0 

04 



817: 

CFB3 

CS 

26 



818: 

CFB5 

F0 

8A 



819: 

CFB7 

85 

3D 


ZV3 

820: 

CFB9 

84 

5E 



821: 

CFBB 

E5 

69 



822: 

CFBD 

AA 




823: 

CFBE 

98 




824: 

CFBF 

E5 

6A 



B25: 

CFC1 

A8 




826: 

CFC2 

86 

5B 


ZV3A 

827: 

CFC4 

84 

5C 



828: 

CFC6 

A5 

14 



829: 

CFC8 

F0 

11 



830: 

CFCA 

A5 

47 



831: 

CFCC 

38 




832: 

CFCD 

85 

49 



833: 

CFCF 

E5 

6B 



834: 

CFD1 

85 

47 



835: 

CFD3 

A5 

48 



836: 

CFD5 

85 

4A 



837: 

CFD7 

E5 

6C 



838: 

CFD9 

85 

48 



839: 

CFDB 

BA 



ZV4 

840: 

CFDC 

24 

6E 



841: 

CFDE 

50 

A7 



843=11 

rvcF- 

AE 

FE 

CF 

! 

INT 

844: 

CFE3 

A0 

00 



845: 

CFE5 

Bl 

5B 


11 

846: 

CFE7 

Dl 

5D 



847: 

CFE9 

90 

0D 



848: 

CFEB 

D0 

07 



849: 

CFED 

C8 




850: 

CFEE 

C0 

02 



851: 

CFF0 

D0 

F3 



852: 

CFF2 

F0 

9C 



853: 

CFF4 

8A 



GR 

854: 

CFF5 

49 

FF 



855: 

CFF7 

AA 




856: 

CFF8 

BA 



KL 

857: 

CFF9 

30 

97 



858: 

CFFB 

4C 

41 

CF 

s 

FLAG2 

860: 

CFFE 

01 




s 

5 

5 


JSR 

*BBA2 

;B-ELEM.IN FAC 

LDA 

*58 

;VERGL.MIT 

LDY 

*5C 

;A-ELEMENT 

JSR 

»BC5B 


TAX 



BEQ 

BL 


CMP 

FLAG2 


BEQ 

BL 


LDY 

TYPE 


DEY 



LDA 

<*5B>,Y 


TAX 



LDA 

(*5D),Y 


STA 

<*5B),Y 


TXA 



STA 

<*SD>,Y 


DEY 



BPL 

SZ1 


LDY 

*14 


BEQ 

ZV2 


INC 

*2A 


JSR 

D4 


LDA 

*5B 

lENTSPR. “SORT'' 

LDY 

*5C 

;B-ELEMENT BLEIBT 

CPY 

*27 

;IM FAC 

BNE 

ZV3 


CMP 

*26 


BEQ 

BL 


STA 

*5D 


STY 

*5E 


SBC 

*69 


TAX 



TYA 



SBC 

*6A 


TAY 



STX 

*5B 


STY 

*5C 


LDA 

*14 


BEQ 

ZV4 


LDA 

*47 


SEC 



STA 

*49 


SBC 

*6B 


STA 

*47 


LDA 

*48 


STA 

*4A 


SBC 

*6C 


STA 

*48 


TXA 



BIT 

RUND 


BVC 

ZV1 


LDX 

FLAG2 


LDY 

#0 


LDA 

<*5B),Y 

;VERGLEICH 

CMP 

(*5D),Y 

;INTEGER 

BCC 

KL 

;KLEINER 

BNE 

GR 

;GROESSER 

INY 



CPY 

#2 


BNE 

11 


BEQ 

ZVB1 


TXA 


;ERGEBNIS 

EOR 

•*FF 

;HERUMDREHEN 

TAX 


;WIEDER NACH X-REG. 

TXA 



BMI 

ZTAU 


JMP 

BL 



-BYTE1 j 1 «»KLEINSTES 

255-GRQESSTES 
ELEMENT AN 
ARRAYANFANG 


Listing 2. Der Source-Code zu Shellsort in Assembler 
(Schluß) 


Name 

s 

quicksort 



C000 c317 

C098 

8 

85 

ba 

aS 

bl 

18 

65 

af 

85 

90 

cl40 

3 

03 

c4 

a5 

bf 

f0 

16 

a5 

b9 

d0 












c0a0 

8 

aa 

•5 

b0 

65 

b2 

4a 

85 

ab 

e0 

cl48 

3 

9d 

02 

c7 

a5 

ba 

9d 

03 

c7 

cl 

C000 

s 

20 

fd 

ae 

20 

9e 

b7 

86 

aS 

db 

C0a8 

8 

66 

aa 

b0 

0d 

aS 

b3 

c9 

7f 

4f 

c 150 

: 

bd 

00 

c6 

9d 

02 

c6 

bd 

01 

c 2 

C00B 

8 

20 

fd 

ae 

20 

Vo 

b7 

86 

a6 

e5 

c0b0 

8 

d0 

12 

a5 

aa 

45 

af 

4a 

90 

64 

Cl58 

: 

c6 

9d 

03 

c6 

20 

53 

C0 

a6 

73 

C010 

8 

20 

a6 

c 2 

a 2 

02 

b5 

bb 

95 

70 

c0b8 

3 

0b 

a5 

aa 

38 

c5 

b6 

85 

aa 

c7 

c 160 

: 

be 

a5 

af 

9d 

02 

c4 

aS 

b0 

cf 

C018 

3 

b3 

ca 

10 

f 9 

a5 

b4 

a6 

b3 

76 

c0c0 

: 

b0 

02 

c6 

ab 

a4 

b4 

bl 

aa 

a4 

C168 

: 

9d 

03 

c4 

bd 

00 

cS 

9d 

02 

18 

C020 

: 

e 0 

7f 

*0 

01 

4a 

85 

b6 

ad 

23 

c0c8 

: 

99 

61 

00 

88 

10 

f 8 

a5 

b3 

ea 

cl70 


c5 

bd 

01 

c5 

9d 

03 

cS 

a5 

61 

C028 

: 

00 

c6 

ae 

01 

c6 

Bd 

00 

c4 

b9 

c 0 d 0 

3 

30 

10 

d0 

le 

20 

d9 

c2 

a6 

29 

Cl78 

3 

bf 

10 

16 

a5 

b7 

9d 

02 

c6 

e8 

C030 

s 

Be 

01 

c4 

ad 

00 

c7 

ae 

01 

21 

C0d8 

8 

b4 

b5 

61 

95 

69 

ca 

10 

f 9 

93 

Cl80 

: 

aS 

b8 

9d 

03 

c6 

bd 

00 

c7 

33 

C03S 

: 

c7 

8d 

00 

c5 

8e 

01 

c5 

a9 

da 

c0e0 

3 

30 

10 

a9 

61 

a 0 

00 

20 

Bc 

52 

C18B 

3 

9d 

02 

c7 

bd 

01 

c7 

9d 

03 

9b 

C040 

8 

00 

85 

bf 

20 

79 

00 

c9 

2c 

0e 

c0e8 

3 

ba 

a6 

b4 

b5 

69 

95 

61 

ca 

37 

cl90 

3 

c7 

20 

53 

C0 

c6 

bc 

c6 

be 

4f 

C048 

8 

d0 

05 

20 

a6 

c 2 

e6 

bf 

a9 

2d 

C0f0 

3 

10 

f 9 

20 

cf 

cl 

b0 

33 

20 

ad 

c 198 

3 

60 

a5 

af 

18 

65 

b5 

85 

af 

33 

C050 

8 

fe 

85 

be 

e 6 

be 

e6 

be 

a6 

09 

C0f 8 

3 

03 

c 2 

20 

cf 

cl 

b0 

2b 

a4 

f 6 

cla0 

8 

90 

02 

e6 

b0 

a5 

bf 

f0 

0b 

33 

C058 

8 

be 

bd 

01 

c4 

dd 

01 

c5 

90 

ec 

C100 

3 

b4 

bl 

af 

aa 

bl 

bl 

91 

af 

lc 

cla8 

: 

a5 

b7 

18 

65 

bd 

85 

b7 

90 

e4 

C060 

: 

0d 

d0 

08 

bd 

00 

c4 

dd 

00 

2d 

c 108 

3 

8a 

91 

bl 

88 

10 

f 3 

a5 

bf 

Bf 

clb 0 

3 

02 

e6 

bB 

60 

a5 

bl 

38 

e5 

f 4 

C068 

3 

C5 

90 

06 

4c 

94 

cl 

bd 

00 

cf 

Cll0 

8 

f0 

0f 

a4 

bc 

bl 

b7 

aa 

bl 

2f 

clb8 


b5 

85 

bl 

b0 

02 

c6 

b2 

a5 

lf 

C070 

3 

c4 

85 

af 

bd 

01 

c4 

85 

b0 

48 

cl 18 

3 

b9 

91 

b7 

Ba 

91 

b9 

88 

10 

02 

ClC0 

8 

bf 

f0 

0b 

a5 

b9 

38 

e5 

bd 

df 

C078 

3 

bd 

00 

c5 

85 

bl 

bd 

01 

c5 

f0 

cl20 

8 

f 3 

20 

99 

cl 

20 

b4 

Cl 

4c 

09 

clc8 

s 

83 

b9 

b0 

02 

c6 

ba 

60 

a5 

a5 

C080 

3 

85 

b2 

a5 

bf 

f0 

14 

bd 

00 

66 

c 128 

8 

f 2 

C0 

a6 

be 

a5 

bl 

9d 

02 

5e 

cld 0 

3 

b0 

c5 

b2 

90 

0 a 

d0 

08 

a5 

b4 

c088 

3 

c6 

85 

b7 

bd 

01 

c6 

B5 

ba 

84 

C130 

8 

c5 

aS 

b2 

9d 

03 

c5 

bd 

00 

7d 

cld8 

- 

af 

c5 

bl 

90 

02 

f0 

ei 

60 

55 

C090 

3 

bd 

00 

c7 

85 

b9 

bd 

01 

c7 

0d 

Cl38 

3 

c4 

9d 

02 

c4 

bd 

0i 

c4 

9d 

16 














140 


SONDERHEFT 12 





















C 64 


TIPS & TRICKS 


y! 


cle0 

: 

18 

60 

a 5 

af 

a4 

ö0 

20 

5b 

8f 

C248 

8 

60 

c9 

80 

90 

06 

bß 

f7 

a9 

d8 

c2b0 

: 

01 

c6 

20 

fd 

ae 

20 

8b 

b0 

58 

cleB 

z 

bc 

10 

08 

30 

06 

20 

99 

cl 

70 

C2S0 

3 

01 

18 

60 

38 

60 

a5 

af 

a6 

bc 

c2bB 

: 

Bd 

00 

c7 

Bc 

01 

c7 

a2 

00 

a2 

cife 

s 

4c 

b2 

cl 

a5 

bl 

a4 

b2 

20 

le 

c258 

: 

b0 

85 

ac 

86 

ad 

20 

7o 

c2 

22 

c2c0 

8 

a0 

02 

aS 

öd 

dß 

0b 

a2 

80 

5d 

cire 

s 

5b 

bc 

10 

06 

20 

b4 

cl 

4c 

bd 

c260 

a 

b0 

06 

20 

99 

cl 

4c 

55 

c2 

a8 

c2cB 

3 

a0 

04 

aS 

0e 

f0 

03 

ca 

a0 

29 

C200 

c 

*3 

cl 

60 

a5 

b3 

f0 

4e 

30 

fd 

C268 

3 

a5 

bl 

a6 

b2 

85 

ac 

86 

ad 

19 

c2d0 

a 

01 

86 

bb 

84 

bc 

cB 

B4 

bd 

33 

C20B 

a 

d9 

a0 

00 

bl 

af 

20 

3c 

c2 

da 

C270 

3 

20 

7e 

c2 

90 

08 

f0 

06 

20 

f 2 

c2d8 

3 

60 

a5 

a6 

f0 

34 

a6 

a6 

a0 

27 

c210 

■ 

90 

09 

d0 

0d 

cB 

bl 

af 

c5 

5f 

c278 

C 

b4 

cl 

4c 

68 

c2 

60 

a0 

02 

e3 

C2e0 

3 

ff 

ca 

f0 

0d 

c8 

c4 

61 

b0 

bc 

c21Q 

3 

62 

b0 

06 

20 

99 

cl 

4c 

09 

43 

c280 

3 

bl 

ac 

99 

61 

00 

88 

10 

fB 

90 

c2e8 

8 

29 

bl 

62 

c5 

a5 

d0 

fS 

f0 

d6 

c220 

c 

c2 

a0 

00 

bl 

bl 

20 

3c 

c2 

fb 

c288 

8 

20 

d9 

c2 

a0 

■ff 

a6 

61 

e4 

de 

c2f 0 

8 

f0 

84 

a7 

e6 

a7 

cB 

c4 

61 

80 

c228 

: 

90 

11 

d0 

09 

c8 

bl 

bl 

c5 

02 

c290 

3 

69 

90 

02 

,16 

69 

e8 

ca 

d0 

41 

c2f B 

8 

b0 

06 

bl 

62 

c5 

a5 

d0 

fS 

ld 

c230 

i 

62 

90 

08 

re 

06 

20 

b4 

cl 

b2 

c298 

: 

05 

ab 

61 

cS 

69 

60 

c8 

bl 

al 

c300 

8 

98 

38 

e5 

a7 

85 

61 

a5 

a7 

6c 

c238 

a 

4c 

21 

c2 

60 

a6 

61 

e0 

80 

cb 

c2a0 

8 

62 

dl 

6a 

f0 

fl 

60 

20 

fd 

42 

c308 

3 

18 

65 

62 

85 

62 

90 

02 

e6 

9d 

c240 

i 

b0 

07 

c9 

80 

b0 

09 

c5 

61 

23 

c2aB 

8 

ae 

20 

8b 

b0 

8d 

00 

c6 

8c 

6c 

C310 

8 

63 

60 

a9 

00 

85 

61 

60 

Bd 

0e 


Listing 3. Quicksort in Maschinensprache. Zum Eintippen verwenden Sie bitte den MSE (Hinweise auf Seite 92). 


0100 

I**• QUICKSORT 811 



1080YKOPIE 

.DE XK0PIE*2 


0110 

I* * 



1090TYP2 

.DE YKOPIE+2 


0120 

|* 1985 BY 8 



1100ZAHL2 

.DE TYP2*1 


0130 

|* SAID BALOUI « 



11100FFSET2 

.DE ZAHL2*1 


0140 

I* « 



1120 

I 


0130 




1130Z 

.DE 0FFBET2*1 

»EBENENZAEHLER 

0160 

1 



U40M1TFLAG 

.DE Z*1 

»FLAG FUER MITZUSORTIERENDES FELD 

0170 

1 



1150 

* 


0180 

|SORTIERUNG BELIEBIGER ARRAYTYPEN 



1160LG 

.DE *C400 

»•STACK' FUER LINKE GRENZEN 

0190 

»MITSDRTIERUNG EINES BELIEBIGEN 



1170RG 

.DE *C50O 

»•STACK’ FUER RECHTE GRENZEN 

0200 

»ARRAYS 



11B0LG2 

.DE *C600 

»•STACK* FUER LINKE GRENZE VON MITSORTARRAY 

0210 

|SORTIERUNG KANN AUF EINEN BEL. 



1190RG2 

.DE *C700 

»‘STACK’ FUER RECHTE GRENZE VON MITSORTARRA 

0220 

1 TEIL DES ARRAYS BESCHRAENKT 



V 



0230 

|WERDEN 



1200 

1 


0240 

»STRINGARRAYS KOENNEN NACH EINEM 



1210 

1 


0250 

«BEL. STRINGTEIL SORTIERT WERDEN) 



1220 

.BA *C000 


0260 

•DIE TEILE MUESSEN HIERZU MIT 



1230 

.OS 


0270 

»EINEM BEL. ZEICHEN VONEINANDER 



1240 

; 


0280 

»GETRENNT WERDEN 



1250 

» 


0290 

3 



1260 



0300 




1270 

»»11«««»«INITIALISIERUNG*»«**•»« 

0310 

|AUFRUF! 



12B0 


0320 




1290 

f 


0330 

»SYS X.ASCII-CODE TRENNZEICHEN, 



1300 

» 


0340 

» FELDNUMMER, • 



1310 

;888INIT FUER 

SORTARRAY*** 

0350 

» SORT ARRAY(X), 



1320 

JSR CHKKOM 

»TRENNZEICHEN 

0360 

I SORTARRAY(Y), 



1330 

JSR GETBYT 

»U.NR.DES TEIL- 

0370 

f (MITSORTARRAY (X)> • 



1340 

STX TRENN 

»FELDES (SORT. 

0380 

I (MITSORTARRAY(Y>> 



1350 

JSR CHKKOM 

»VON STRINGS) 

0390 

1 



1360 

JSR GETBYT 

»HOLEN 

0400 

»SYS X, 94,2,AS (0) , A* (52) , PjC (0) , 



1370 

STX FELD 


0410 

* P7.<52> 



1380 

l 


0420 

1 



1390 

JSR HOLVAR 


0430 

« 



1400 

LDX 42 


0440 

0450 

»TRENNZEICHEN: TRENNUNG MEHRERER 

1 FELDER IN EINEM 

S46R 

om 


LDA TYP2,X 

STA TYP,X 


0460 

1 STRING MIT BEL.ZEI 



1430 

DEX 


0470 

1 



1440 

BPL HOL1 


0480 

;FELDNUMMER: SORTIEREN AB ANGEG. 



1450 

« 


0490 

» STRINGTEILFELD 



1460 

LDA ZAHL 

«KORR- 

0500 

» O-GANZEN STR.SORT. 



1470 

LDX TYP 

»STRING: 1 

0510 




14B0 

CPX NI27 

• |INTEGER: 1 

0520 

»SORT ARRAY(X): ZU SORTIERENDES 



1490 

BEO NOLSR 

»REAL: 2 

0530 

» ARRAY (SORTIERUNG 



1500 

LSR A 


0540 

1 AB ELEMENT X)j 



1510N0LSR 

STA KORR 


0550 

» BELIEBIGER ARRAY- 



1520 

1 


0560 

I TYP KANN SORTIERT 



1530 

LDA LG2 


0570 

1 WERDEN 



1540 

LDX LG2*1 


0580 

; 



1550 

STA LG 

»GRENZEN 

0590 

ISORTARRAY(Y > i ZU SORTIERENDES 



1560 

STX L6*l 

|INITIALISIEREN 

0600 

» ARRAY (SORTIERUNG 



1570 

LDA RG2 

0610 

5 BIS ELEMENT Y> 



1580 

LDX RG2*1 


0620 

1 



1590 

STA RG 


0630 

;MITSORTARRAY(X>i BELIEBIGES 



1600 

STX RG*1 


0640 

• MITZUSORTIER. 



1610 

1 


0650 

1 ARRAY 



1620 

1 


0660 

» 



1630 

|»M1NIT FUER 

M1TZUS.ARRAY888 

0670 

» MITSORTARRAY(Y): BELIEBIGES 



1640 

LDA NO 

«FLAG FUER MITZU- 

0680 

J MITZUSORTIER. 



1650 

STA MITFLAG 

»SORT.ARRAY IN1T. 

0690 

1 ARRAY 



1660 

JSR CHRGOT 

»WENN KOMMA FOLGT: 

0700 

1 



1670 

CMP N’ , * 

»PARAMETER DES 

0710 

| 



1680 

BNE IN1TEND 

1MIT ZUSORTIERENDEN 

0720 

»IM •MITSORTARRAY' MUESSEN 



1690 

JSR HOLVAR 

»ARRAYS HOLEN UND 

0730 

»IDENTISCHE X/Y-WERTE ANGEGEBEN 



1700 

INC MITFLAG 

»MITFLAG-l SETZEN 

0740 

»WERDEN WIE IM SORTARRAY' 



1710 

1 

0750 

1 



1720 

1 


0760 

1 



1730 

| 8 8 8EBENZAEHLER INITI ALISIEREN888 

0770 

1 



1740INITEND 

LDA N254 

»EBENENZAEHLER 

07BOCHRGOT 

.DE *79 



1750 

STA Z 

»INITIALISIEREN 

0790CHKK0M 

.DE *AEFD 



1760 

{iiiiiimiiiiimiiiiiiiumii 

OBOOGETBYT 

.DE »B79E 



1770 

■ iiiMMiniMiimiiiimimii 

OBlOGETPOS 

.DE 4B08B 



1780 



0820K0N1NARG 

.DE *BABC »KONSTANTE->ARG 



1790 

1 


0830F ACKQN5T 

.DE *BC5B »VERGL.iFAC/KO. 



1000 

1 


0840 

» 



1810 

»«(>■>it*i8et 

0B50STRTYP 

.DE *0D 



1820 

»*88188*QUICKSORT-RQUTINE8»888*1 

0B60NUMTYP 

.DE »OE 



1830 



0870FAC 

.DE »61 



1840 ‘ 



0B80ARG 

.DE *69 »FLIESSKOMMAAKKU f»2 



1850 

| 


0B90DESCR1 

.DE FAC IDESCRIPTOREN VON STR1 



1860 

t8$*LG(Z>>-RG(Z)?88l 

0900DESCR2 

.DE ARG »DESCRIF'TOREN VON STR2 



1B70EINGANG 

INC Z 

»EINE EBENE TIEFER 

0910 

l 



1880 

INC Z 


0920 




1890 

1 


0930TRENN 

.DE »A5 »TRENNZEICHEN 



1900 

LDX Z 


0940FELD 

.DE TRENN*1 » SORTBTRINGTEIL 



1910 

LDA LG*1,X 

|LG(Z > MIT RG(Z) 

0950HELP 

.DE FELD*1 



1920 

CMP RG*I,X 

»VERGLEICHEN 

0960 

I 



1930 

BCC EINGl 


0970ARRAY 

.DE HELP*1 »ZEIGER AUF ANZAHL DER 

ARRAVELEMENTE 


1940 

BNE RET 


Ö980VG 

.DE ARRAY*2 «POINTER AUF VERGLEICHSSTRING (-2.VERGLEICH 

1950 

LDA LG,X 

»DURCHGANG BEENDET, 

BfcLEM 




1960 

CMP RG,X 

»WENN LG(Z)>-RG(Z> 

0990S7R 

.DE VG*2 «POINTER AUF 1.VERGLEICHSSTRING 


1970 

BCC EING 

»DANN -RETURN' 

1000X 

.DE STR*3 



19B0RET 

JMP RETURN 


1010Y 

.DE X*2 



1990 

»aii(***a(sta*iit*** 

1020TYF' 

.DE Y*2 »0-5TRING/127-INT/12B-REAL 


2000 

1 


1030ZAHL 

.DE TYP*1 »SCHLEIFENZAEHLER FUER 

VERSCH.ARRAYTYPE^ 


2010 

1 


10400FFSET 

.DE ZAHL*1 »OFFSET FUER VERSCH.ARRAYTYPEN FUER POINTER 




SETZ 







1050KGRR 

.DE OFFSET*! |KORREKTURFAKTOR FUER VERSCH.ARRAYTYPEN 

FUE 




R VG- 
1060 

1070XK0PIE 

Listing 4. So sieht der Quicksort-Algorithmus als 

» 

.DE K0RR*1 
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C 64 


|***X-LG(Z)lY-RG(Z)*»* 


2030EING1 

LDA 

LG, X 

2O40EING 

STA 

X 

2050 

LDA 

LG * 1,X 

2060 

STA 

X-M 

2070 

LDA 

RG.X 

2080 

STA 

Y 

2090 

LDA 

RG+1, X 

2100 

STA 

V+l 

2110 

1 


2120 

LDA 

MITFLAG 

2130 

BEQ 

EINGEND 

2140 

1 


2150 

LDA 

LG2.X 

2160 

STA 

XKOPIE 

2170 

LDA 

LG2+1, X 

2180 

STA 

XKQPIE+1 

2190 

LDA 

RG2.X 

2200 

STA 

YKOPlfc 

2210 

LDA 

RG2+1,X 

2220 

STA 

YKOPIE+1 


|ZEIGER X UND Y 
»GLEICH DER LINKEN 
»BZW.RECHTEN GRENZE 
»AUF DER MOMENTANEN 
»EBENE INI TIALIS. 


»WENN MITFLAG, AUCH 
»FUER MITSORTARRAY 
»GRENZEN INIT. 


2230 
2240 
2230 
2260 
2270 
2280 
2290 
2300 
2310 
2320 

2330EINGEND 

2340 

2330 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2430 

2460 

2470 

2480 

2490 

2300 

2510 

2320 

2530 

2340SR 

2530 

2360 

2570 

2580 

2590 

2600 

2610 

2620 

2630VARH0L 

2640H0LSTR 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780HSTR 

2790 

2800 

2810 

2820 

2830 

*2840 

2850 

2860REALTVF 

2870 

2880 

2890 

2900 

2910ARGINFAC 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000NEXT 

3010 

3020 

3030 

3040 

3030 


I 

I 

»»«»ZEIGER AUF VG-ELEM.RICHTEN*«« 
I 

» * *VERGLEICHSELEMENT ERMITTELN« « 
»(ENTSPRICHT IN BASIC»> 

» (VG-INT((X+Y)/2)) 

» 


LDA 

V 


CLC 


»DIE ZEIGER X UND Y 

ADC 

X 

»ADDIEREN. ERGEBNIS 

STA 

VG 

|VG(LO) UND 

LDA 

X+l 

|AKKU<HI) 

ADC 

Y+l 

LSR 

A 

»AKKU-HI/2 

STA 

VG+l 

»VG+l-HI/2 

ROR 

VG 

|VG-LO/2 

BCS 

SR 

»REST (NUR BEI REAL 

LDA 

TYP 

I/STRING»? JA.-> 

CMP 

• 127 

»SORTARRAYTYP INT. 

BNE 

» 

VARHOL 

»NEIN -> 

LDA 

VG 

»ZEIGER AUF VERGL.- 

EOR 

X 

}ELEM.EBENSO GERADE 

LSR 

A 

»ODER UNGERADE WIE 

BCC 

VARHOL 

»DIE LINKE GRENZE? 

1 


»JA -> 

LDA 

VG 


SEC 


»ZEIGER AUF VERGL.- 

SBC 

KORR 

»ELEMENT KORRIG. 

STA 

VG 


BCS 

VARHOL 


DEC 

VG+l 



»«ssi**s«*»i>tas«a»»s«s«ssi»s«ss 

» 

» « *INTVAR./STR.DESCR.HOLEN » * 

LDY ZAHL 

LDA <VG),Y »VGX BZW.DESCR. 

STA DESCR1,Y »VON VG* NACH 

DEY » DESCR1(+2) 

BPL HOLSTR 

»imimmiiititinisimi 

LDA TYP 
BMI REALTYP 
BNE NEXT 
» 

» »»STRINGDESCR.AUF STRINGTEIL** 

JSR STRTEIL »DESCR.FUER STRTEIL 


S48R 


LDX ZAHL 
LDA DESCR1,X 
fiTA DESCR2.X 
DEX 

BPL HSTR 
BMI NEXT 

iimimsin 


»ENDGUELTIGE 
»STRINGDESCR. 
»NACH DESCR2 
»DESCR2+2 

»ABS. 


I MREAL->ARG/KONST->FAC/FAC->ARG* 
-DA »L,DESCR1 »KONSTANTE 


LDY 4H,DESCR1 
JSR KONINARG 

LDX ZAHL 
LDA ARG.X 
STA FAC.X 
DEX 

BPL ARGINFAC 

» ************ 


»NACH ARG 


»ARG NACH FAC 
I KOPIEREN 


|*«*X>Y? JA->EINE EBENE TIEFER*** 
JSR XYVERGL »X MIT Y VERGL. 

BCS TEILFELD ,X>Y7 JA-> 


3060 

» MBVAR (X/Y> MIT 

VAR(VG) VERGL»*« 

3070 

JSR CGMPARE 


3080 



3090 

1 


3100 

1 


3110 



3X20 

1 *S*X>Y? JA->EINE EBENE TIEFER*** 

3130 

JSR XYVERGL 

|X>Y ? 

3140 

BCS TEILFELD 

»JA -> 

3150 



3160 

I 


3170 

1 


3180 



3190 

» * * * SWAP VAR(X > 

UND VAR(Y)**( 

3200 

LDY ZAHL 

»DIE DESCRIPTOREN 

3210SWAP 

LDA (X >,Y 

»VON A*(X) UND 

3220 

TAX 

»UND A»(Y MIT- 

3230 

LDA (Y),Y 

»EINANDER VERTÄU- 

3240 

STA (X >,Y 

»SCHEN 

3250 

TXA 


3260 

STA <Y),Y 

;S*°AI(X»iA*(X) — 

3270 

DEY 

;A*(Y)iA*(Y»-S* 

32B0 

BPL SWAP 



onLinw»' 

3V-. 


3290 

3300 

3310 

3320 

3330 

3340SWAP2 

3330 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3430 

3460 

3470BWAPEND 

3480 

3490 

3500 

3310 

3320 

3530 

3340 

3530 

3560 

3570 

3580 

3390TEILFELD 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3730 

3760 

3770 

3780 

3790 

3B00L1END 

3810 

3820 

3830 

3840 

3830 

3860 

3870 

3880 

3890 

3900 


3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4030 

4060REEND 

4070 

4080 

4090 

4100 

4110 

4120RETURN 

4130 

4140 

4130 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4230 

4260 


I 

LDA MITFLAG 
BEQ SWAPEND 
1 

LDY ZAHL2 

LDA (XKOPIE),Y 

TAX 

LDA (YKOPIE),Y 
STA (XKOPIE»,Y 
TXA 

STA (YKOPIE),Y 
DEY 

BPL SWAP2 


»WENN MITFLAG, 
»AUCH DIE DESCR. 
»VON MITSORTARRAY 
»VERTAUSCHEN 


I 


|«**X AUF NEXT,Y AUF LAST ELEM*** 
JSR XNEXT »ZEIGER X AUF 

1 NEXT ELEMENT 

JSR YLAST »ZEIGER Y AUF 

I LAST ELEMENT 


»NAECHSTE RUNDE' 


JMP NEXT 

!••*•*••• 

I 

» 

I**«LINKES TEILFELD ERMITTELN*«« 


LDX 

z 


LDA 

Y 

|NAECHSTE RECHTE 

STA 

RG+2,X 

»GRENZE-MOMENT. 

LDA 

Y+l 

|RECHTER ZEIGER 

8TA 

RG+3.X 


LDA 

LG, X 

»NAECHSTE LINKE 

STA 

LG+2,X 

»GRENZE-MOMENT. 

LDA 

LG+l.X 

»LINKE GRENZE 

STA 

LG+3,X 


LDA 

MITFLAG 


BEO 

LI END 


LDA 

YKOPIE 

»WENN MITFLAG, 

STA 

RG2+2,X 

»AUCH NEUE 

LDA 

YKOPIE+1 

»GRENZEN FUER 

STA 

RG2+3,X 

»MITSORTARRAY 

LDA 

LG2.X 

|FESTLEGEN 

STA 

LG2+2.X 


LDA 

LG2+1,X 


STA 

LG2+3,X 


JSR 

EINGANG 



»********«***<•*■*«**txxitisisa« 


»»««RECHTES TEILFELD 

ERMITTELN«** 

LDX 

Z 


LDA 

X 

»NAECHSTE LINKE 

STA 

LG+2, X 

1 GRENZE-MOMENT. 

LDA 

X-M 

»LINKER ZEIGER 

STA 

LG+3,X 


LDA 

RG.X 

»NAECHSTE RECHTE 

STA 

RG+2.X 

»GRENZE-MOMENT.* 

LDA 

RG+l.X 

»RECHTE GRENZE 

STA 

RG+3.X 


1 

LDA 

MITFLAG 


BEQ 

t 

REEND 


1 

LDA 

XKOPIE 

»WENN MITFLAG, 

STA 

LG2+2.X 

»GLEICHES FUER 

LDA 

XKOPIE+l 

»MITSORTARRAY 

STA 

LG2+3.X 


LDA 

RG2.X 


STA 

RG2+2,X 


LDA 

RG2+1.X 


STA 

RG2+3.X 


JSR 

EINGANG 



I 

* 

l 

»«MEINE EBENE HOEHER*** 
DEC Z 
DEC Z 
RTS 

|IM«S*B*«t**C*B**B**fM 

iiiiMiimiimiiiiuii 

i 

I 


i 


» * * «UNTERROUTINEN*** 
»*********»•**•**1*1 
I 


4270XNEXT 

LDA 

X 

42B0 

CLC 


4290 

ADC 

OFFSET 

4300 

BTA 

X 

4310 

BCC 

XNEX 

4320 

INC 

X+l 

4330 

» 


4340XNEX 

LDA 

MITFLAG 

4330 

BEO 

XNEXTEND 

4360 

1 


4370 

LDA 

XKOPIE 

4380 

CLC 


4390 

ADC 

0FFSET2 

4400 

STA 

XKOPIE 

4410 

BCC 

XNEXTEND 

4420 

INC 

XKOPIE+1 

4430XNEXTEND 

RTS 



»ZEIGER AUF 
»NAECHSTES ELEMENT 


4440 

4450 

4460 

4470 

4480YLAST 

4490 

4500 

4510 

4520 

4330 

4540 

4550YNEX 
4560 


1 


»**«Y AUF LAST ELEMENT*** 

LDA Y 
SEC 

SBC OFFSET »ZEIGER AUF 

STA Y »VORIGES ELEMENT 

BCS YNEX 
DEC Y+l 
I 

LDA MITFLAG 
BEO YNEXTEND 
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4570 



5850VERGLEICH 

LDV *2 

«DESCRIPTOREN 


45B0 

LDA YK0P1E 


5B60UEBERN 

LDA (STR),Y 

«VON STR* NACH 


4590 

SEC 


5870 

STA DESCR1.V 

1DESCR1 BIS 


4600 

SBC 0FFSET2 


5880 

DEY 

IDESCR2*2 HOLEN 


4610 

STA YKOPXE 


5890 

BPL UEBERN 


4620 

BCS YNEXTEND 


5900 

« «DESCR 

AUF GEWUENSCH- 


4630 

DEC YK0PIE*1 


5910 

JSR STRTEIL 

«TES STRINGTEILFELD 


4640YNEXTEND 

RTS 


5920 

LDY *255 

«INITIALISIEREN 


4650 



5930 

1 



4660 

1 


5940 

LDX DESCR1 

«KLEINER.STRING- 


4670 

I 


5950 

CPX DESCR2 

ILAENGE INS 


4680 

1 


5960 

BCC VERG 

«X-REG. UND 


4690 

l*l«X UND Y VERGLEICHEN»*« 

5970 

LDX DESCR2 

«DIESES ALS 

i 

4700XYVERGL 

LDA X*t 


5980VERG 

INX 

«SCHLEIFENZ.VERW 


4710 

CMP Y*1 


3990 

1 


4720 

BCC XYRTS 


6O00VERGL 

DEX 

«VERGLEICH 


4730 

BNE XYRTS 

«AUSGANG: 

6010 

BNE VERGL1 

j DURCHFUEHREN 


4740 

LDA X 

«CARRY SET. WENN 

6020 

LDA DESCR1 



4750 

CMP Y 

|X ECHT < J) > Y 

6030 

CMP DESCR2 



4760 

BCC XYRTS 

6040 

RTS 



4770 

BEO XYCLC 


6050VER6L1 

INY 



4780XYRTS 

RTS 


6060 

LDA (DESCR1*1),Y 

«CARRY CLAER- 


4790XYCLC 

CLC 


6070 

CMP (DESCR2*1),Y 

«STRXSTR2 


4800 

RTS 


6000 

BEQ VERGL 

«CARRY SET- 


4810 



6090 

RTS 

«STR1>STR2 


4820 

1 


6100 




4830 

1 


6110 

| 



4840 

1 


6120 

1 



4850 

I*»»REAL2AHLEN 

VERGLEICHEN»«« 

6130 

« 



4860REALVERGL 

LDA X 

«ZEIGER AUF 

6140 

:«•«VARIABLEN HOLEN»*« 


4870 

LDY X*1 

«KONSTANTE A<X> 

615OH0LVAR 

JSR CHKKOM 

«ERSTES ARRAY- 


4800 

JSR FACKONST 

1A(X > MIT FAC 

6160 

JSR GETPOS 

«ELEMENT HOLEN 


4890 

BEO REALY 

«l-A<VG>> VERGL. 

6170 

STA LG2 



4900 

BMI REALY 


6180 

STY LG2*1 



4910REAX 

JSR XNEXT 

|X-X*1, WENN 

6190 

1 



4920 

JMP REALVERGL 

«FACvA(X) 

6200 

J9R CHKKOM 

«LETZTES ARRAY- 


4930 

I 


6210 

JSR GETPOS 

«ELEMENT HOLEN 


4940REALY 

LDA Y 

JZEIGER AUF 

6220 

STA RG2 



4950 

LDY Y*1 

«KONSTANTE A<Y) 

6230 

STY RG2*1 



4960 

JSR FACKONST 

JA(Y) MIT FAC 

6240 

1 



4970 

BPL REALRTS 

»(-A(VG>> VERGL. 

6250 

1 



490OREAY 

JSR YLAST 


6260 

; «»«TYPFLAG/OFFSEI 

ERZEUGEN»«* 


4990 

JMP REALY 

«Y-Y-l, WENN 

6270 

LDX *0 

«TYP-TYPFLAG 


5000REALRTS 

RTS 

«FACpAIY) 

6280 

LDY *2 

« 0-STRIN6 


5010 

1 


6290 

LDA STRTYP 

«127-INTEGER 


5020 

1 


6300 

BNE TY 

«128-REAL 


5030 

1»»«VERGLEICH 

NITIALIS1EREN« *• 

6310 

LDX *128 



5040C0MPARE 

LDA TYP 


6320 

LDY *4 

» ZAHL-SCHL.ZAEHLER 


5050 

BEQ STRVERGL 


6330 

LDA NUMTYP 

1 2—STRING 


5060 

BMI REALVERGL 


6340 

BEQ TY 

« 1-INTEGER 


5070 

I 


6350 

DEX 

« 4-REAL 


5080 

s 


6360 

LDY »1 



5090 

j * *«1NTEGERVERGLEICH»»» 

6370TY 

STX TYP2 



5100INTX 

LDY »0 


6380 

STY ZAHL2 



5110 

LDA < X),Y 

«HI (XX) 

6390 

INY 

«OFFSET-SCHLEIFEN- 


5120 

JSR BIT7 


6400 

STY 0FFSET2 

«ZAEHLER*1 


5130 

BCC INT1 

«HI (XXXHI (V6X) = > 

6410 

RTS 



5140 

BNE INTY 

«GLEICH? NEIN -> 

6420 




5150 

» 


6430 




5160 

INY 


6440 

| 



5170 

LDA (X),Y 

«LO (XX) 

6450 




5180 

CMP DESCR1+1 

;L0 (VGX) 

6460 

«««ZEIGER AUF STRINGTEIL HOLEN** 


5190 

52001NT1 

BCS INTY 

JSR XNEXT 

|L0<XXl>.L0IV5X)-> 

i x=x+i S4®B OT!L 

64B0 

«(AENDERT DESCR - DESCR+2« 

;DESCR-LAENGE BIS NEXTFELD 


5210 

JMP INTX 


6490 

;DESCR+1,DESCR*2-ZEIGER AUF 


5220 

; 


6300 

«POS.DES STRINGTEILFELDES) 


52301NTY 

LDY HO 


6510 

l 



5240 

LDA (Y), Y 

«HI (YX> 

6520STRTEIL 

LDA FELD 

« NORM-VERGLEICH?, 


5250 

JSR BIT7 


6530 

BEQ TEILRTS 

»JA »> 


5260 

BCC VINTEND 

«HI (YXXHI (VGX) = > 

6540 

| 


5270 

BNE INT2 

«GLEICH? NEIN »> 

6550 

1 



5280 

t 


6560 

»«ZU GEWUENSCHTEM 

FELD VORTASTEN» 


5290 

INY 


6570 

LDX FELD 



5300 

LDA (Y),Y 

«LO (YX> 

6580 

LDY *255 



5310 

CMP DESCRl+1 

«LO <VG7.) 

6590 

j 



5320 

BCC VINTEND 

;LO < YX) <L0(VGX) -> 

6600T2 

DEX 

«GEWUENSCHTES FELD 


5330 

BEQ VINTEND 

«GLEICH? JA -> 

6610 

BEQ TEILOK 

«GEFUNDEN? JA -> 


5340INT2 

JSR YLAST 

«Y-Y-l 

6620 

| 



5350 

JMP INTY 


6630T1 

INY 

|STRINGENDE 


5360VINTEND 

RTS 


6640 

CPY DESCR1 

1 ERREICHT? 


5370 

; 


6650 

BCS LNULL 

«JA -> 


5380 

1 


6660 

LDA (DESCR1*1 ) ,Y 



5390 

|»«HIGH-BYTES 

VERGLEICHEN*« 

6670 

CMP TRENN 

«TRENNZEICHEN? 


5400BIT7 

LDX DESCR1 


6680 

BNE TI 

«NEIN -> 


5410 

CPX *128 

1VGX NEGATIV? 

6690 

BEQ T2 

«JA -> 


5420 

BCS VGMINUS 

«JA -> 

6700 

I 


5430 

CMP *128 

«XX/YX NEGAT.? 

6710TEIL0K 

STY HELP 

«HELP-POS. l.ZEICH 


5440 

BCS NURXYMIN 

«JA -> 

6720 

INC HELP 

«V.GEWUENSCHT.FELD 


5450XYMITVG 

CMP DESCR1 

»XX/YX MIT VGX 

6730 



5460 

RTS 

«VERGLEICHEN 

6740 

1 



5470 

« 


6750 

««ZU FELDENDE VORTASTEN« 


5480VGM1NUS 

CMP »12B 

«AUCH XX/YX 

67600K1 

INY 

«TRENN-LETZTES 


5490 

BCC NURVGMIN 

«NEGATIV? NO—> 

6770 

CPY DESCR1 

«9TRINGZEICHEN? 


5500 

BCS XYMITVG 

1 JA -> 

6780 

BCS NEXTOK 

1 JA -> 


5510 

; 


6790 

LDA (DESCR1*1 ) ,Y 



5520NURXYMIN 

LDA *1 

«LOESCH.ZEROF. 

6800 

CMP TRENN 

«TRENNEICHEN? 


5530 

CLC 

«XX/YX ECHT ( }) 

6810 

BNE OKI 

«NEIN -> 


5540 

RTS 

t< ALS VGX 

6020 

1 



5550 

1 


6830 

1 



5560NUFCVGMIN 

SEC 

1XX/YX ECHT (f > 

6840 

«• DESCRIPTOREN AUF GEW.FELD* 


5570 

RTS 

|> ALS VGX 

605ONEXTOK 

TYA 

1FELDLAENGE- 


55 BO 



6860 

SEC 

«ANFANG NEXTFELD- 


5590 

1 


6870 

SBC HELP 

«ANFANG AKT.FELD 


5600 

i 


6880 

STA DESCR1 


5610 

I 


6890 

1 



5620 

t »««STR1NGVERGL.INITIALISIEREN*«» 

6900 

LDA HELP 

jFELDPOSITION- 


5630STRVERGL 

LDA X 

I A4 IX) MIT A*(VG> 

6910 

CLC 

«STRINGPOSIT ION* 


5640VL1NKS 

LDX X*1 

«VERGLEICHEN: 

6920 

ADC DESCR1*1 

1 POS.DES FELDES 


5650 

STA STR 

«ZEIGER AUF A»(X> 

6930 

STA DESCR1*1 

|IM STRING 


5660 

STX STR*1 

«NACH STR,STR*1 

6940 

BCC TEILRTS 


5670 

JSR VERGLEICH 

«VERGLEICHEN -> 

6950 

INC DESCR1*2 



5680 

BCS VRE 

«SEC - STRH>-VG* 

6960TE1LRTS 

RTS 



5690 

JSR XNEXT 

6970 




5700 

JMP STRVERGL 

«WENN STR*<VG« 

6980LNULL 

LDA HO 

«FELDLAENGE O.WENN 


5710 

« 


6990 

STA DESCR1 

«TRENNZEICHEN - 


5720VRE 

LDA Y 

«STR*(YXVG»? 

7000 

RTS 

«LAST STRINGZEICH. 


5730VRECHT9 

LDX Y*1 


7010 

| BZW. GEW.FELD 


5740 

STA STR 

«ZEIGER AUF A«(Y> 

7020 

I NICHT VORHANDEN 


5750 

STX STR*1 

«NACH STR,STR*1 

7030 




5760 

JSR VERGLEICH 

«VERGLEICHEN: 

7040 

.EN 



5770 

BCC VLI 

«SEC - STR*>-VG* 





5780 

BEQ VLI 






5790 

JSR YLAST 

1 WENN A*<YXVG* 





5800 

5810VL1 

5820 

JMP VRE 

RTS 

«DANN Y AUF LAST 

Listing 4. Der Source-Code von Quicksort wurde mit dem 

MAE erstellt, kann aber auf jedes beliebige andere Format 

5030 

5840 

;«•«STRINGVERGLEICH * «> 

angepaßt werden 
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TIPS & TRICKS 


C64 


Hinter den Kulissen 


Routinen in Hypra-Basic einzubinden ist kein Pro¬ 
blem, wenn diese an Hypra-Basic angepaßt sind. 
Mit ein paar Tricks können auch andere Pro¬ 
gramme eingebunden werden. Dazu stellen wir 
Ihnen nützliche Routinen aus Hypra-Basic aus¬ 
führlich vor. 

E infache und kurze Routinen sind das Lebenselixier von 
Hypra-Basic. Damit das Programm eingebunden werden 
kann, sind nur einige wenige Punkte zu beachten. 
Sollen keine Parameter übergeben werden (Listing 1 und 
Listing 5 als MSE-Lader), ist eigentlich nicht viel falsch zu 
machen. Listing 1 ersetzt nur ein Paar POKEs, die den Bild¬ 
schirm an- und abschalten und einen CI28 in den 2-MHz- 
Modus versetzen. 

Nun die Syntax der Parameterübergabe. In Listing 2 (eine 
einfache Routine zum Setzen der Farben, Listing 6 ist der 
MSE-Lader dazu) sehen Sie den einfachsten Fall. Der erste 
Parameter wird ohne vorangehende Komma-Abfrage geholt, 
da beim Aufruf durch einen Befehlsnamen ein Komma hinter 
dem Namen unnötig wäre (etwa: FARBE.1). Richtig ist FARBE 
1. Alle weiteren Parameter können durch Komma getrennt 
werden. Also FARBE 0,14,6. Bei Listing 2 wird als Routine 


HYPRA-ASS ASSEMBLERLISTING: 

; ******************************** 
;****** ****** 

;*** FAST / SLOW *** 

;****** ****** 

j ********************«********4t4tx 

I 

! FUER DEN C—128 IM 64'ER-MODUS. 

5 3/86 BY F.GRAEF, PLANKSTADT 
> 

1090 -.BA *C000 
; -FAST- 


I 


C000 

AD11D0 

: 1130 

-FAST 

LDA 

53265 

gSCR AUS 

C003 

29EF 

: 1140 

- 

AND 

#239 

C005 

I 

C008 

8D11D0 

: 1150 

- 

STA 

53265 


A901 

: 1170 

- 

LDA 

#1 

g 2 MHZ 

C00A 

1 

C00D 

8D30D0 

: 1180 

- 

STA 

53296 

60 

: 1200 

- 

RTS 



t 

1 

i 

C00E 

- SLOW - 

A900 :1240 





-SLOW 

LDA 

#0 

gl MHZ 

C010 

I 

C013 

8D30D0 

: 1250 

“ 

STA 

53296 

AD11D0 

: 1270 

_ 

LDA 

53265 

gSCRN AN 

C016 

0910 

: 1280 

- 

ORA 

#16 

C018 

g 

C01B 

BD11D0 

: 1290 

— 

STA 

53265 


60 

: 1310 

_ 

RTS 




Listing 1. Ohne Parameter-Übergabe 


JSR *B79E 
STX 646 

g GETBYTE 
gSCHRIFT 


JSR *AEFD 
JSR *B79E 
STX 53281 

g CHKCQM 
gGETBYTE 
gHINTERGRUND 


JSR »AEFD 
JSR *B79E 
STX 53280 
RTS 

gCHKCOM 
g GETBYTE 
g RAHMEN 

Listing 2. 

Einfache Parameter 


zum Holen der Parameter $B79E genommen. Der Parameter 
muß zwischen 0 und 255 liegen und wird im X-Register über¬ 
geben. 

Zwei weitere Tricks sind im Listing 3 (Eine MERGE-Routine, 
Listing 7 ist der MSE-Lader dazu) verborgen. Durch die 
geschickte Ausnutzung einer Betriebssystemroutine (ab 
Adresse $C075) spart man sich das Schreiben eines eige¬ 
nen Programmteils. Zum zweiten wird ein variabler Ein¬ 
sprungspunkt erzeugt. Dazu wird am Programmende der 
nicht verwendete Sprung »JMP EMA« eingesetzt. Beim Ver¬ 
schieben des Programmes durch Hypra-Basic wird die 
Adresse EMA umgerechnet (ausgelöst durch den JMP). Das 
erlaubt, die Adresse hinter EMA direkt zu Laden ($C02F), um 
sie als Zeiger auf einen mitverschobenen Programmab¬ 
schnitt zu verwenden. Mit dieser Technik sind auch Pro¬ 
gramme in den Interrupt einzubauen, wie zum Beispiel die 
Joysticksteuerung aus Ausgabe 7/86. 

Das Problem einer formatierten Ein- und Ausgabe wird 
durch den Basic-V2-Interpreter leider nicht gelöst. Das 
Window-Modul im Hypra-Basic befriedigt nahezu alle 
Ansprüche. Die Ein- und Ausgabe kann in Windows definiert 
werden. Es beinhaltet eine umfangreiche Einlese-Routine, 
berücksichtigt bei der Eingabe die Cursor-Steuerung und die 
Funktionstasten. Ausgaben formatiert das Programm in frei 
definierbare Windows. Sollten Sie das Programm optimieren 
wollen, können Sie dies anhand des Source-Code (Listing 4 
und Listing 8) leicht tun. 

(J. Stellig/F. Gräf/og) 









C000 





*= 

*C000 


C000 




BANFL 

- 

*2B 

;ZEIGER AUF BASIC- 

C000 




BANFH 

=» 

*2C 

;PROGRAMM-START 

C000 




BVARL 

= 

*2D 

;ZEIGER AUF START 

C000 




BVARH 

= 

*2E 

iDER VARIABLEN 

C000 




POL 

= 

*F7 

;ZEIGER IN EINZU- 

C000 




ROH 

■ 

*F8 

;FUEGENDES PROGRAMM 

C000 




STAT 


*90 

;STATUSWORT ST 

C000 




CPUP 

= 

*01 

;PROZESSORPORT 

C000 




ZNR 

- 

*12 

;BASIC-ZEILENNUMMER 

C000 




SA 


*B9 

;SEKUNDAERADRESSE 

C000 




FPMOD 

“ 

*3A 

;FLAG F. PRG-MODUS 

C000 




ILLDI 

- 

*B3AB 

i ILLEGAL DIR. ERROR 

C000 




LPARA 

- 

*E 1D4 

;LOAD-PARAM. HOLEN 

C000 




BLOAD 

■ 

*FFD5 

;LOAD-ROUTINE D. BS 

C000 




FAUSW 

■ 

*E1D1 

;FEHLERAUSWERTUNG 

C000 




LOERR 

- 

*E19C 

;LOAD - ERROR 

C000 




EINF 

- 

*A4A2 

;BASIC-Z. EINFUEGEN 

C000 




VEKS 

« 

*E455 

: BASIC-VEKTOREN BETZEN 

C000 




SETBP 

■ 

*E1A7 

;BASIC-PAR. NEU SETZEN 

C000 




EWSL 

■ 

*0302 

;ZEIGER AUF 

C000 




EWSH 

« 

*0303 

;EINGABE-WARTESCHLEIFE 

C000 




BEP 

" 

*01 FC 

:BASIC-EINGABE-PUFFER 





1 

1 

MERGE 

A - ANHAENGEN 

C000 

20 

75 

C0 

AMERBE 

JSR 

READPAR 

;PARAMETER LESEN 

C003 

A 5 

2B 



LDA 

BANFL 


C005 

48 




PHA 


I ZEIGER AUF BASIC- 

C006 

A5 

2C 



LDA 

BANFH 


C008 

48 




PHA 


; PRG-START RETTEN 

C009 

AS 

2D 



LDA 

BVARL 

1 ZEIGER AUF BASIC-PRG- 

C00B 

A4 

2E 



LDY 

BVARH 

ISTART HINTER BASIC-PRG 

C00D 

38 




BEC 


;BETZEN (NEUER PRG-START - 

C00E 

E9 

02 



SBC 

♦*02 

;VARIABLENSTART - 2) 

C010 

B0 

01 



BCS 

AMA 


C012 

B8 




DEY 



C013 

BS 

2B 


AMA 

STA 

BANFL 

|NEUE ZEIGER 

C015 

B4 

2C 



STY 

BANFH 

;SPEICHERN 

C017 

20 

7D 

C0 


JSR 

LOAD 

5BASIC-PRG LADEN 

C01A 

68 




PLA 



C01B 

85 

2C 



STA 

BANFH 

;ALTE ZEIGER AUF 

C01D 

68 




PLA 


;BASIC-PRG-START WIEDER- 

C0.1E 

85 

2B 



STA 

BANFL 

;HERSTELLEN 

C020 

4C 

A7 

El 


JMP 

SETBP 

;BASIC-PARAMETER SETZEN 





J 

1 

MERGE 

E - EINFUEGEN 

C023 

20 

75 

C0 

EMER6E 

JSR 

READPAR 

;PARAMETER LESEN 

C026 

A0 

A0 



LDY 

***A0 

;ANFANGSADRESSE FUER LOAD 

C028 

85 

F7 



STA 

POL 

ZEIGER IN EINZUF. PRG 
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C02A 

84 

F 8 



STY 

PQH 

;AUF *A000 SETZEN 

C072 

4C 

A2 

A4 


JMP 

EINF 

;ZEILE EINFUEGEN 

C02C 

20 

7D 

C0 


JSR 

LOAD 

;BASIC-PRG. LADEN 





5 




C02F 

AD 

9A 

C0 


LDA 

POINTER+1 





{ UNTERROUTINEN 


C032 

AC 

9B 

C0 


LDY 

PQINTER+2 





; 




C035 

SD 

02 

03 


STA 

EWSL 

;ZEIGER AUF EINGABE-WARTE- 





: 

EINGABE-PARAMETER HOLEN 

C038 

8 C 

03 

03 


STY 

EWSH 

[SCHLEIFE NEU SETZEN 





i 




C03B 

A0 

FF 


EMA 

LDY 

#255 

?ZEIGER IN BASIC—ZEILE 

C075 

20 

D4 

El 

READPAR 

JSR 

LPARA 

;LOAD-PARAMETER 

C03D 

A5 

01 


EMB 

LDA 

CPUP 

C07B 

AV 

00 



LDA 

#00 

[SEKUNDAERADRESSE = 0 

C03F 

29 

FE 



AND 

#7.11111110 

C07A 

85 

B9 



STA 

SA 

;<LADEN AN FESTE ADRESSE) 

C041 

85 

01 



STA 

CPUP 

;BASIC-ROM AUSSCHALTEN 

C07C 

60 



RET 

RTS 



C043 

C 8 




INY 


I ZEIGER IN ZEILE ♦ 1 





; 




C 044 

Bl 

F7 



LDA 

(POL),Y 

;ZEICHEN AUS PRG HOLEN 





* 

BASIC-PROGRAMM LADEN 

C046 

E 6 

01 



INC 

CPUP ' 

(BASIC-ROM EINSCHALTEN 





* 




C048 

C0 

01 



CPY 

#01 

[ZEIGER IN N. BASIC-Z. 7 

C07D 

AA 



LOAD 

TAX 


5 LOW-BYTE DER ADRESSE 

C04A 

90 

Fl 



BCC- 

EMB 

[LOW-BYTE - NICHT BEACHTEN 

C07E 

A5 

01 



LDA 

CPUP 


C04C 

D 0 

0B 



BNE 

EMC 

[KEIN TEIL DES ZEIGERS 

C0Q0 

29 

FE 



AND 

#7.11111110 

C04E 

AA 



TAX 


J00 FUER PROGRAMMENDE 7 

C0B2 

85 

01 



STA 

CPUP 

I BASIC-ROM AUSSCHALTEN 

C04F 

DB 

EC 



BNE 

EMB 

I<>00 - NICHT BEACHTEN 

C084 

A9 

00 



LDA 

#00 

;FLAG FUER LOAD 

C051 

A2 

03 



LDX 

#03 

;PROGRAMMENDE - ZEIGER AUF 

C086 

20 

D5 

FF 


JSR 

BLOAD 

;LADEN 

C053 

20 

55 

E4 


JSR 

VEKS 

jE-WS WIEDERHERSTELLEN 

C089 

E 6 

01 



INC 

CPUP 

IBASIC-ROM EINSCHALTEN 

C056 

4C 

AB 

El 


JMP 

SETBP+4 

; BAS IC-PARAM. SETZEN 

C08B 

90 

03 



BCC 

LOA 

{KEIN FEHLER 



C08D 

4C 

Dl 

El 


JMP 

FAUSW 

j FEHLERAUSWERTUNG 

C059 

C 0 

04 


EMC 

CPY 

#04 

|ZEILENNUMMER ? 

C090 

A5 

90 


LOA 

LDA 

STAT 

[STATUS UEBERPRUEFEN 

C05B 

B0 

05 



BCS 

EMD 

(KEIN TEIL D. ZEILENNUMMER 

C092 

29 

BF 



AND 

#*BF 

C05D 

99 

12 

00 


STA 

ZNR, Y 

jSPEICHERN 

C094 

F0 

E 6 



BEQ 

RET 

{KEIN FEHLER 

C060 

90 

DB 



BCC 

EMB 

[UNBEDINGTER SPRUNG 

C096 

4C 

9C 

El 


JMP 

LOERR 


C062 

99 

FC 

01 

EMD 

STA 

BEP, Y 

* ZEICHEN IN PUFFER 





» 



HYPRA-BASIC 

C065 

AA 




TAX 







; 

POINTER FUER 

C066 

D0 

D5 



BNE 

EMB 

j<>0 -KEIN ZEILENENDE 





* 




C06Q 

98 



TYA 


C099 

4C 

3B 

C0 

POINTER 

JMP 

EMA 


C069 

65 

F7 



ADC 

POL 

[ZEIGER IN EINZUF. PRG 









C06B 

85 

F7 



STA 

POL 

;AUF ANFANG DER NAECHSTEN 









C06D 

90 

02 



BCC 

EME 

;PROGRAMMZEILE SETZEN 









C06F 

C071 

£6 

C 8 

F 8 


EME 

INC 

INY 

POH 

;LAENGE DER ZElLE * 1 

Listing 

3. 

Die MERGE-Routine nutzt das Betriebssystem 







*C000 


C011 D0 02 


BNE 

PEB 

{ALTE EINSTELLUNG 

C000 



XLO 


*F7 

{KOORDINATEN DER LINKEN 

C013 91 AA 


STA 

<POL) , 

{TAB MIT 0 ABSCHLIESSEN 

C000 



YLO 

• 

*FB 

{OBEREN ECKE DES WINDOWS 

C015 20 79 00 

PEB 

JSR 

CGOT 


C000 



XRU 

a 

*F9 

{KOORDINATEN DER RECHTEN 

C018 C9 2C 


CMP 

#"," 


C000 



YRU 

a 

*FA 

{UNTEREN ECKE DES WINDOWS 

C01A D0 0C 


BNE 

PEA 


C000 



ZSP 

= 

*AA 

{ZWISCHENSPEICHER 

C01C 20 9B B7 


JSR 

CRBYTE 

{ANZAHL D. FTASTEN HOLEN 

C000 



FKEY 

a 

*FB 

{SPEICHER F. FTASTEN 

C01F E0 09 


CPX 

#09 

{VGL. <= 8 

C000 



CNT 

a 

*57 

{ZAEHLER 

C021 B0 05 


BCS 

PEA 

{NEIN - NICHT BEACHTEN 

C000 



CUX 

a 

*A8 

{RELATIVE CURSORPOSITION 

C023 BA 


TXA 



C000 

C000 



CUY 

POL 

: 

*A9 

*AA 

{INNERHALB DES WINDOWS 
{ZWEI-BYTE ZAEHLER' 

% n 


ADC 

STA 

#133 

FKEY 

{IN ASCII UMRECHNEN 
{UND SPEICHERN 

C000 



POH 

a 

JAB 

;FUER DIVERSE ZWECKE 

C028 A9 3B 

PEA 

LDA 

*"[■• 


C000 



POS 

a 

*FC 

{POSITION IM TEXTSPEICHER 

C02A 20 FF AE 


JSR 

PCHAR 

;AUF SEMIKOLON PRUEFEN 

C000 



ZBR 

a 

*FD 

{BREITE DES WINDOWS 


: 




C000 



ZAN 

a 

*FE 

{HOEHE DES WINDOWS 


; 

- EINGABE VORBEREITEN 

C000 



MPOS 

m 

*FF 

{LAENGE DES TEXTSPEICHERS 


* 




C000 



STZ 

m 

*22 

{STRINGZEIGER 

C02D A0 00 

HOM 

LDY 

#00 


C000 



STAT 

m 

*90 

{STATUS - BYTE 

C02F 84 A8 


STY 

CUX 

{CURSOR IN 

C000 



CFLG 

a 

*CC 

;FLAG FUER CURSOR 

C031 84 A9 


STY 

CUY 

{LINKE OBERE ECKE 

C000 



CREP 

a 

*CD 

{ZAEHLER F. CURSORBLINKEN 

C033 84 CC 


STY 

CFLG 

{CURSOR EIN 

C000 



IFLG 

a 

*11 

{FLAG F. INPUT,GET,READ 

C035 84 FC 


STY 

POS 

;AN TEXTANFANG 

C000 



TFLG 

a 

*0D 

{TYPFLAG (NUMER./STRING) 


t 




C000 



CGL 

a 

*7A 



S 

- fclNÜRBfc 


C000 



CGH 

a 

*7B 

{ZEIGER D. CHRGET—ROUTINE 


{ 




C000 



ZCGL 

m 

*4B 

{ZWISCHENSPEICHER FUER 

C037 20 7B Cl 

EIN 

JSR 

CUSWRT 

{TEXT SCHREIBEN 

C000 



ZCGH 

a 

*4C 

{CHRGET-ZEIGER 

C03A 20 E4 FF 

EIA 

JSR 

GET 

{ZEICHEN VON TASTATUR 

C000 



ZVL 

. 

*49 

{ZEIGER AUF 

C03D F0 FB 


BEQ 

EIA 

;HOLEN 

C000 



ZVH 

a 

*4A 

{VARIABLENWERT 

C03F A2 02 


LDX 

#02 


C000 



COLL 


*14 

C041 86 CD 


STX 

CREP 

{REPEATFUNKTION 

C000 



COLH 


*15 

{ZEIGER IN FARBRAM 


* 




C000 



VRAM 


*288 

;HIGH-BYTE VIDEO-RAM 


S 

- PRUEFUNG AUF 

SONDERZEICHEN 

C000 



CCOL 


*2B6 

{FARBE DES CURSORS 


i 




C000 



ERLZT 


*33C 

{TAB. F. ERLAUBTE ZEICHEN 

C043 C9 85 


CMP 

#"<F1> 


C000 



RBYTE 


*B79E 

(1-BYTE-WERT LESEN 

C045 90 08 


BCC 

E4 

{AUF FTASTE PRUEFEN 

C000 



PKQM 


*AEFD 

{AUF KOMMA PRUEFEN 

C047 C5 FB 


CMP 

FKEY 

S PR. ERLAUBTE FTASTE 

C000 



PCHAR 


*AEFF 

{AUF ZEICHEN PRUEFEN 

C049 90 08 


BCC 

E5 

{JA - WIE RETURN 

C000 



FRMEVL 


*AD9E 

{AUSDRUCK AUWERTEN 

C04B C9 0D 


CMP 

#"<F0) 

"+1 {PR. NICHT DEF. FTASTE 

C000 



FRESTR 


*B6A3 

{STRINGVERWAL TUNG 

C04D 90 EB 


BCC 

EIA 

{JA - NICHT BEACHTEN 

C000 



CGOT 


*0079 

[LETZTES Z. HOLEN 

C04F C9 0D 

E4 

CMP 

#13 

{PR. RETURN 

C000 



CGET 


*0073 

{NAECHSTES Z. HOLEN 

C051 D0 03 


BNE 

E3 

{NICHT RETURN 

C000 



GET 


*FFE4 

{GET 

C053 4C 31 Cl 

E5 

JMP 

RET 

»RETURN 

C000 



ZANFL 


*ECF0 

{TAB. D. BILDSCHIRM- 

C056 A6 AB 

E3 

LDX 

CUX 

{CURSORPOSITION IN 

C000 



ZANFH 


*D9 

{ZEILENANFAENGE 

C05B A4 A9 


LDY 

CUY 

{X/Y - REGISTER 

C000 



CSET 


*FFF0 

{CURSOR SETZEN 

C05A C9 13 


CMP 

# 19 

{HOME 

C000 



PLET 


*B113 

{PRUEF. AUF BUCHST. 

C05C F0 CF 


BEQ 

HOM 

C000 



SVAR 


*B0BB 

{VARIABLE SUCHEN 

C05E C9 8D 


CMP 

#141 


C000 



CGSET 


*AB76 

{CHRGETZEIGER SETZEN 

C060 F0 52 


BEQ 

SRET 

f SHIFT-RETURN 

C000 



BTHOL 


*B487 

{STRING HOLEN 

C062 C9 ID 


CMP 

# 29 


C000 



PRSET 


*B7E2 

[PRSZEIBER SETZEN 

C064 F0 4B 


BEQ 

CUSR 

{CURSOR RIGHT 

C000 



STRVAR 


*A9DA 

{STRING AN VAR ZUW. 

C066 C9 11 


CMP 

# 17 


C000 



PRBYTE 


*B7F 1 

|S.O. NACH KOMMA 

C06B F0 51 


BEQ 

CUSD 

{CURSOR DOWN 

C000 



CRBYTE 


*B79B 

{S.O. MIT CHRGET 

C06A C9 91 


CMP 

#145 








C06C F0 5D 


BEQ 

CUSU 

{CURSOR UP 




: AUSGABE IN 

WINDOW 


C06E C9 9D 


CMP 

#157 









C070 F0 7D 


BEQ 

CUSL 

{CURSOR LEFT 

C000 

20 

F0 

CI PRINT 

JSR 

POSREAD 

{TEXT HOLEN 

C072 C9 14 


CMP 

# 20 

;DELETE 

C003 

4C 

B9 

CI 

JMP 

WTEXT 

{UND IN WINDOW SCHREIBEN 

C074 F0 65 


BEQ 

DEL 





C076 C9 94 


CMP 

• 148 





s EINGABE IN WINDOW 


C07B F0 78 


BEQ 

INST 

{INSERT 








C07A C9 93 


CMP 

#147 





5 

PARAMETER EINLESEN 

C07C F0 57 


BEQ 

CLR 

»CLEAR 

C006 

20 

F0 

; 

Cl INPUT 

JSR 

POSREAD 

{KOORD. & TEXT 


; 

- PRUEFUNG AUF 

ERLAUBTE ZEICHEN 

C009 

A9 

3C 


LDA 

#<ERLZT 







C00B 

A2 

03 


LDX 

#>ERLZT 







C00D 

C010 

20 

BA 

2A 

C2 

JSR 

TXA 

RSTRING 

{ERLAUBTE ZEICHEN LESEN 

Listing 4. So wird die Ein- und Ausgabe formatiert 


145 


Q3Ö? 


SONDERHEFT 12 














TIPS & TRICKS 


C64 


C07E 

A0 

FF 



LDY 

#255 

C0G0 

C8 



EIB 

INY 


C081 

BE 

3C 

03 


LDX 

ERLZT.Y 

C004 

F0 

B4 



BEO 

EIA 

C086 

D9 

3C 

03 


CMP 

ERLZT, Y 

C089 

F0 

21 



BEQ 

EIE 

C08B 

E0 

85 



CPX 

#”(Fl>" 

C08D 

D0 

08 



BNE 

EIC 

C08F 

C9 

30 



CMP 

# ”0" 

C091 

90 

ED 



BCC 

EIB 

C093 

C9 

3A 



CMP 

•"9"*1 

C095 

90 

15 



BCC 

EIE 

C097 

E0 

06 


EIC 

CPX 

#" <F3) *' 

C099 

D0 

05 



BNE 

EID 

C09B 

20 

13 

Bl 


JSR 

PLET 

C09E 

B0 

0C 



BCS 

EIE 

C0A0 

E0 

87 


EID 

CPX 

#"<F5 >" 

C0A2 

D0 

DC 



BNE 

EIB 

C0A4 

C9 

CI 



CMP 

#••♦- 

C0A6 

90 

Da 



BCC 

EIB 

C0A8 

C9 

DB 



CMP 

#“♦"♦1 

C0AA 

B0 

D4 



BCS 

EIB 

C0AC 

A4 

FC 


EIE 

LDY 

POS 

C0AE 

99 

4C 

C2 

PTEXT 

STA 

TEXTT, Y 





! - 

SONDERZEICHEN-B 

C0B1 

4C 

06 

CI 

CUSR 

JMP 

INCU 

C0B4 

A2 

00 


SRET 

LDX 

#00 

C0B6 

A5 

FC 



LDA 

POS 

C0B8 

E5 

A8 



SBC 

cux 

C0BA 

2C 




.BYTE*2C 

C0BB 

AS 

FC 


CUSD 

LDA 

POS 

C0BD 

C8 




INY 


C0BE 

C4 

FE 



CPY 

ZAN 

C0C0 

B0 

03 



BCS 

CDB 

C0C2 

65 

FD 



ADC 

ZBR 

C0C4 

24 




.BYTES24 

C0C5 

88 



CDB 

DEY 


C0C6 

B5 

FC 


CDA 

STA 

POS 

C0C8 

4C 

10 

CI 


JMP 

SCURS 

C0CB 

A5 

FC 


CUSU 

LDA 

POS 

C0CD 

C0 

00 



CPY 

#00 

C0CF 

F0 

F5 



BEQ 

CDA 

C0D1 

E5 

FD 



SBC 

ZBR 

C0D3 

B0 

F0 



BCS 

CDB 

C0D5 

20 

1A 

C2 

CLR 

JSR 

CLEAR 

C0DB 

4C 

2D 

C0 


JMP 

HOM 

C0DB 

A4 

FC 


DEL 

LDY 

POS 

C0DD 

F0 

3D 



BEQ 

INCB 

C0DF 

B9 

4C 

C2 

DEB 

LDA 

TEXTT,Y 

C0E2 

99 

4B 

C2 


STA 

TEXTT—1, 

C0E5 

ca 




INY 


C0E6 

D0 

F7 



BNE 

DEB 

C0E8 

A9 

20 



LDA 

#32 

C0EA 

A6 

FF 



LDX 

MPOS 

C0EC 

9D 

4B 

C2 


STA 

TEXTT—l, 

C0EF 

4C 

1F 

CI 

CUSL 

JMP 

DECU 

C0F2 

A4 

FF 


INST 

LDY 

MPOS 

C0F4 

B9 

4B 

C2 

INA 

LDA 

TEXTT-1, 

C0F7 

99 

4C 

c 2 


STA 

TEXTT,Y 

C0FA 

88 




DEY 


C0FB 

C4 

FC 



CPY 

POS 

C0FD 

D0 

F5 



BNE 

INA 

C0FF 

A9 

20 



LDA 

#32 


;Y ALS ZEIGER IN TAB. 

»ZEIGER ERHOEHEN 
;ZEICHEN AUS TAB. HOLEN 
S TABELLENENDE 
SPR- ERLAUBTES ZEICHEN 
»ERLAUBTES ZEICHEN 

«AUF Fl PRUEFEN 

|F1 - AUF ZIFFER PRUEFEN 


|ZIFFER - ERLAUBT 
jAUF F3 PRUEFEN 

|F3 - AUF BUCHST. PRUEFEN 
» BUCHSTABE - ERLAUBT 
»AUF F5 PRUEFEN 


»F5 - AUF GESHIFT. 

;BUCHSTABEN PRUEFEN 
{KEIN BUCHSTABE 
;POSITION IM TEXTSP. 
8 ZEICHEN SPEICHERN 


;CURSOR N. RECHTS 
8 CUS. AN ZEILENANFANG 

8 POS NEU BERECHNEN 
SNAECHSTEN BEF. AUSLASSEN 

8 CURSORZEILE*1 

8 CUY ZU GROSS 
5 POS NEU BERECHNEN 
SNAECHSTEN BEF. AUSLASSEN 
8 CURSORZEILE—l 
8 POS SPEICHERN 
8 CURSOR SETZEN 


SCURS. IN 1. ZEILE 
8 POS NEU BERECHNEN 
;UNBEDINGTER SPRUNG 
8 TEXT LOESCHEN 
8 ZUR HQME-ROUTINE 

8 TEXTANFANG 


8 TEXT VERSCHIEBEN 


X ;SPACE AN TEXTENDE 
;CURSOR LINKS 


8 TEXT VERSCHIEBEN 
8 BIS ZUR AUGENBL. POSITION 


C101 99 4C C2 
CI04 D0 16 


STA TEX'TT , Y ; SPACE EINFUEGEN 
BNE INCB ;UNBEDINGTER SPRUNG 


- CURSORBEWEGUNGEN 


C106 

A6 

A8 

INCU 

LDX 

CUX 

CI 08 

A4 

A9 


LDY 

CUY 

C10A 

ES 



INX 


C10B 

E4 

FD 


CPX 

ZBR 

C10D 

D0 

07 


BNE 

INCC 

C10F 

A2 

00 


LDX 

#00 

ein 

CB 



INY 


CI 12 

C4 

FE 


CPY 

ZAN 

Cl 14 

F0 

06 


BEQ 

INCB 

CI 16 

E6 

FC 

INCC 

INC 

POS 

Cl 18 

86 

AB 

SCURS 

STX 

CUX 

Cl 1A 

84 

A9 


STY 

CUY 

C11C 

4C 

37 C0 

INCB 

JMP 

EIN 

Cl 1F 

A4 

A9 

DECU 

LDY 

CUY 

C121 

A6 

A8 


LDX 

CUX 

C123 

D0 

06 


BNE 

DECB 

C125 

A6 

FD 


LDX 

ZBR 

C127 

98 



TYA 


C128 

F0 

F2 


BEQ 

INCB 

C12A 

88 



. DEY 


C12B 

CA 


DECB 

DEX 


C12C 

C6 

FC 


DEC 

POS 

C12E 

4C 

18 Cl 


JMP 

SCURS 




1 

ENDE DER EIN! 

C131 

86 

CC 

RET 

STX 

CFLG 

C133 

E9 

83 


SBC 

#" <Fl 

C135 

B0 

02 


BCS 

REA 

C137 

A9 

00 


LDA 

«00 

C139 

85 

90 

REA 

STA 

STAT 

C13B 

20 

89 Cl 


JSR 

WTEXT 

C13E 

BD 

4B C2 

REB 

LDA 

TEXTT- 

C141 

C9 

20 


CMP 

#32 

C143 

D0 

03 


BNE 

REC 

C145 

CA 



DEX 


C146 

D0 

F6 


BNE 

REB 

C148 

A9 

00 

REC 

LDA 

#00 

C14A 

9D 

4C C2 


STA 

TEXTT, 

C14D 

85 

11 


STA 

IFLG 

C14F 

20 

8 B B0 


JSR 

SVAR 

C152 

24 

0D 


BIT 

TFLG 


8 CURSOR RIGHT 
8 CPOS LADEN 
8 SPALTE ♦ 1 

8 KEINE NEUE ZEILE 
8 ZEILENANFANG 
8 ZEILE ♦ 1 

8 CURSOR RIGHT UNMOEGLICH 
8 POS. IN TEXT + 1 
8 REL. CURSORPOSITION 
8 SPEICHERN 
8 ZUR EINGABESCHLEIFE 
8 CURSOR LEFT 

8 NICHT AM ZEILENANFANG 
I ZEILENENDE 

8 CURSOR LEFT UNMOEGLICH 
8 ZEILE - 1 
8 SPALTE - 1 
8 POS. IN TEXT - 1 


8 CURSOR AUS 

-2 »FTASTENNR. ERRECHNEN 
8 NICHT RETURN 
;00 FUER RETURN 
8 IN ST SPEICHERN 
8 TEXT AUF BS AUSGEBEN 
• X 

8 TEXT NACH UEBER- 
8 FLUESSIGEN LEERZEICHEN 
8 DURCHSUCHEN 

800 FUER TEXTENDE 
800 FUER INPUT 
8 VARIABLE SUCHEN 


C154 

10 

22 


BPL 

SYNERR 

;NUMERISCHE VARIABLE 

C156 

85 

49 


STA 

ZVL 

;ZEIGER AUF VARIABLE 

C15B 

84 

4A 


STY 

ZVH 

;SPEICHERN 

C15A 

A5 

7A 


LDA 

CGL 

CISC 

A4 

7B 


LDY 

CGH 

»CHRGET-ZEIGER 

C15E 

85 

4B 


STA 

ZCGL 

Cl 60 

84 

4C 


STY 

ZCGH 

»ZWISCHENSPEICHERN 

C162 

AD 

AF 

C0 

LDA 

PTEXT*1 

»ANFANGSADRESSE DES 

C165 

AC 

B0 

C0 

LDY 

PTEXT+2 

»TEXTES UEBERGEBEN 

C160 

20 

87 

B4 

JSR 

STHOL 


C16B 

20 

E2 

B7 

JSR 

PRSET 

»STRING HOLEN 

C16E 

20 

DA 

A9 

JSR 

STRVAR 

»UND DER VAR. ZUWEISE 

C171 

A5 

4B 


LDA 

ZCGL 


C173 

A4 

4C 


LDY 

ZCGH 

;CHRGET-ZEIGER 

C175 

4C 

76 

AB 

JMP 

CGSET 

»WIEDERHERSTELLEN 

C178 

4C 

08 

AF SYNERR 

JMP 

SAF08 

»SYNTAX ERROR 


C17B 10 


- UNTERROUT1NEN 


- CURSOR SETZEN 


CUSWRT CLC 


C17C 

A5 

A9 



LDA 

CUY 

»AUS RELATIVER 

C17E 

65 

F8 



ADC 

YLO 


C180 

AA 




TAX 


»CURSORPOSITION 

C181 

a; 

AB 



LDA 

CUX 

»ABSOLUTE CURSORPOSITION 

C183 

65 

F7 



ADC 

XLO 


C185 

A0 




TAY 


»BERECHNEN 

C1B6 

20 

F0 

FF 

* 

JSR 

CSET 

»CURSOR SETZEN 





* 

1 

- TEXT IN WINDOW SCHREIBEN 

C109 

A2 

00 


WTEXT 

LDX 

«00 

»ZEIGER IN TEXT 

C18B 

A5 

F8 



LDA 

YLO 


C18D 

85 

57 



STA 

CNT 

{ZEILENZAEHLER 

C18F 

A4 

57 


WTA 

LDY 

CNT 

»BS-ZEILE 

C191 

B9 

F0 

EC 


LDA 

ZANFL,Y 

»ZEIGER IN 

C194 

85 

AA 



STA 

POL 

» BILDSCHIRMSPEICHER 

C196 

BS 

14 



STA 

COLL 

»UND FARBRAM SETZEN 

C198 

B9 

D9 

00 


LDA 

ZANFH,Y 


C19B 

29 

03 



AND 

«03 


C19D 

48 




PHA 



C19E 

0D 

88 

02 


ORA 

VRAM 


C1A1 

85 

AB 



STA 

POH 


C1A3 

68 




PLA 



C1A4 

09 

DB 



ORA 

#*DB 


C1A6 

85 

15 



STA 

COLH 


C1A8 

A4 

F7 



LDY 

XLO 

»SPALTEN - ZAEHLER 

C1AA 

BD 

4C 

C2 

WTB 

LDA 

TEXTT,X 

»ZEICHEN HOLEN 

C1AD 

30 

08 


BCWAND 

BMI 

BCA 

»UMWANDLUNG ASCII- 

C1AF 

C9 

60 



CMP 

#96 


C1B1 

90 

04 



BCC 

BCA 

»CODE IN 

C1B3 

29 

DF 



AND 

«11011111 :BILDSCHIRMCODE 

C1B5 

D0 

02 



BNE 

BCB 


C1B7 29 «= 


BCA 

AND 

«7.10111111 

C1B9 

10 

02 


BCB 

BPL 

BCE 


C1BB 

49 

C0 



EOR 

#%11000000 

C1BD 

91 

AA 


BCE 

STA 

(POL),Y 

»ZEICHEN IN BSRAM 

C1BF 

AD 

86 

02 


LDA 

CCOL 

»SCHREIBEN UND 

C1C2 

91 

14 



STA 

(COLL), 

»FARBE SETZEN 

C1C4 

E0 




INX 


»ZEIGER IN TEXT ♦ 1 

C1C5 

CB 




INY 


»SPALTENZAEHLER + 1 

C1C6 

C4 

F9 



CPY 

XRU 


C1CB 

90 

E0 



BCC 

WTB 

»NOCH NICHT LETZTE SPALTE 

C1CA 

E6 

57 



INC 

CNT 

»ZEILENZAEHLER * 1 

C1CC 

E4 

FF 



CPX 

MPOS 

»PR. AUF TEXTENDE 

C1CE 

90 

BF 



BCC 

WTA 

»NOCH NICHT TEXTENDE 

C1D0 

60 




RTS 







I 

3 

- KOORDINATENPAAR UESEN 

Cl Dl 

20 

FD 

AE 

RKDORD 

JSR 

PKOM 

IAUF KOMMA PRUEFEN 

C1D4 

86 

AA 



STX 

ZSP 

;ZAEHLER FUER KOORDINATEN 

C1D6 

20 

9E 

B7 


JSR 

RBYTE 

I BYTE-WERT LESEN 

C1D9 

E0 

28 



CPX 

«40 

fPR- < <0 (X-KOORDINATE) 

Cl DB 

B0 

10 



BCS 

ILLERR 

INEIN - FEHLERMELDUNG 

C1DD 

A4 

AA 



LDY 

ZSP 


C1DF 

96 

F7 



STX 

XLO, Y 

I WERT SPEICHERN 

C1EI 

20 

Fl 

B7 


JSR 

PRBYTE 

I BYTE-WERT LESEN 

C1E4 

E0 

19 



CPX 

#25 

IPR. < 23 CY-K.I 

C1E6 

B0 

05 



BCS 

ILLERR 

I NEIN 

C1EB 

A4 

AA 



LDY 

ZSP 


C1EA 

96 

F8 



STX 

XLO+T,Y 

1 SPEICHERN 

C1EC 

60 




RTS 



C1ED 

4C 

48 

B2 

ILLERR 

JMP 

SB248 

■ILLEGAL 0. ERROR 





1 

- «INDOWPARAMETER i TEXT¬ 





• 

STRING LESEN 

C1F0 

A2 

00 


* 

POSREAD 

LDX 

#00 

»»• KOORDINATENPAAR 

C1F2 

20 

D4 

Cl 


JSR 

RKOGRD+3 ;LESEN 

C1F5 

A2 

02 



LDX 

#02 


C1F7 

20 

Dl 

Cl 


JSR 

RKOORD 

»2. * * 

C1FA 

E6 

F9 



INC 

XRU 

I(BESSER VERARBEITBAR) 

C1FC 

38 




SEC 



C1FD 

A5 

F9 



LDA 

XRU 

»BREITE DES WINDOWS *1 

C1FF 

E5 

F7 



SBC 

XLO 

»BERECHNEN 

C201 

90 

EA 



BCC 

ILLERR 

|<0 - FEHLER 

C203 

85 

FD 



STA 

ZBR 

»UND SPEICHERN 

C205 

GA 




TXA 


»HOEHE DES WINDOWS * l 

C206 

ES 

F8 



SBC 

YLO 

»BERECHNEN 

C208 

90 

E3 



BCC 

ILLERR 


C20A 

69 

00 



ADC 

•00 


C20C 

85 

FE 



STA 

ZAN 


C20E 

AA 




TAX 


»HOEHE (IN X-REG.) MIT 

C20F 

A9 

00 



LDA 

«00 

»BREITE MALNEHMEN - LAENGE 

C211 

65 

FD 


POA 

ADC 

ZBR 

»DES EINGABETEXTES 

C213 

B0 

D8 



BCS 

ILLERR 

»>255 - FEHLER 

C215 

CA 




DEX 



C216 

D0 

F9 



BNE 

POA 
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C64 


TIPS & TRICKS 


C218 

85 

FF 



STA 

MPQS 

;LAENGE SPEICHERN 

C23E 

A0 

00 


LDY 

«00 

C21A 

A0 

00 


CLEAR 

LDY 

«00 

;TEXTSPEICHER 

C240 

AA 



TAX 

»LAENGE D. STRING IN X-REG. 

C21C 

A9 

20 



LDA 

»32 

;LOESCHEN 

C241 

F0 

00 


BEO 

RSTE »LAENGE - 0 

C21E 

99 

4C 

C2 

CLEA 

STA 

TEXTT,Y 


C243 

Bl 

22 

RSTB 

LDA 

<STZ),Y »STRING IN 

C221 

ca 




INY 



C245 

91 

AA 


STA 

(F'OL) ,Y »SPEICHER <POL/H - 

C222 

D0 

FA 



BNE 

CLEA 


C247 

CB 



INY 

»ANFANGSADRESSE) VERSCHIEDEN 





i 




C248 

CA 



DEX 







STRING LESEN fc SPEICHERN 

C249 

D0 

F8 


BNE 

RSTB 





s 




C24B 

60 


RSTE 

RTS 


C224 

AD 

AF 

C0 

RSTRINGT 

LDA 

PTEXT+1 

I ZEIGER AUF 




* 



C227 

AE 

B0 

C0 


LDX 

PTEXT+2 

;TEXTSPEICHER 




; 

TEXTSPEICHER 

C22A 

85 

AA 


RSTR1NG 

STA 

POL 

»ZEIGER FUER 







C22C 

8<b 

AB 



STX 

POH 

»SPEICHERUNG D. STRINGS 

C24C 



TEXTT 

- 

• 

C22E 

20 

79 

00 


JSR 

CGOT 

»LETZTES ZEICHEN HOLEN 







C231 

C9 

2C 



ChP 


»PR. AUF KOMMA 







C233 

D0 

16 



BNE 

RSTE 

»NEIN - KEIN STRING FOLGT 







C235 

20 

73 

00 


JSR 

CGET 








C238 

C23B 

20 

20 

9E 

A3 

AD 

B6 


JSR 

JSR 

FRMEVL 

FRESTR 

»STRING LESEN 

»fc PARAMETER HOLEN 

Listing 4. Formatierte Ein- und Ausgabe (Schluß) 


Name 

: window 




C000 c24c 

c 120 

: 

a9 

a6 

aB 

d0 

06 

a6 

fd 

98 

if 











c 128 

: 

f0 

f 2 

88 

ca 

c6 

fc 

4c 

18 

c2 

C000 

: 20 

f0 

cl 

4c 

89 

Cl 

20 

fe 

9b 

c 130 

: 

Cl 

86 

CC 

e9 

83 

b0 

02 

a9 

be 

c 008 

: cl 

a9 

3c 

a2 

03 

20 

2a 

c2 

61 

C138 

: 

00 

B5 

90 

20 

89 

cl 

bd 

4b 

57 

C010 

: 8a 

d0 

02 

91 

aa 

20 

79 

00 

47 

c 140 

: 

c2 

c9 

20 

d0 

03 

ca 

d0 

f 6 

cl 

C01B 

: c9 

2c 

d0 

0c 

20 

9b 

b7 

e0 

2c 

C148 

: 

a9 

00 

9d 

4c 

c2 

B5 

11 

20 

bf 

C020 

: 09 

b0 

05 

Sa 

69 

85 

85 

fb 

e5 

c 150 

3 

Bb 

b0 

24 

0d 

10 

22 

85 

49 

99 

C02B 

: a9 

3b 

20 

ff 

ae 

a0 

00 

84 

70 

c 158 

: 

84 

4a 

a5 

7a 

a4 

7b 

85 

4b 

8d 

C030 

: aB 

84 

a9 

84 

cc 

84 

fc 

20 

3a 

c 160 

: 

84 

4c 

ad 

af 

C0 

ac 

b0 

c0 

21 

C03B 

: 7b 

cl 

20 

e4 

ff 

f0 

fb 

a2 

f 5 

c 168 

: 

20 

87 

b4 

20 

e2 

b7 

20 

da 

9f 

C040 

: 02 

86 

cd 

c9 

85 

90 

08 

c5 

ba 

c 170 

: 

a9 

a5 

4b 

a4 

4c 

4c 

76 

ab 

ac 

C04B 

: fb 

90 

08 

c9 

8d 

90 

eb 

c9 

67 

c 178 

: 

4c 

08 

af 

18 

a5 

a9 

65 

f 8 

e6 

C050 

0d 

d0 

03 

4c 

31 

cl 

a6 

aB 

ld 

C1B0 


aa 

a5 

aB 

65 

f 7 

a8 

20 

f0 

fb 

C050 

: a4 

a9 

c9 

13 

f0 

cf 

c9 

8d 

75 

c 188 

: 

ff 

a2 

00 

a5 

f8 

85 

57 

a4 

ef 

C060 

: f0 

52 

c9 

ld 

f0 

4b 

c9 

ii 

42 

c 190 

: 

57 

b9 

f0 

ec 

85 

aa 

85 

14 

89 

C06S 

: f 0 

51 

c9 

91 

f0 

5d 

c9 

9d 

02 

c 198 

: 

b9 

d9 

00 

29 

03 

48 

0d 

88 

lb 

C070 

: f 0 

7d 

c9 

14 

f 0 

65 

c9 

94 

9e 

cla0 

: 

02 

85 

ab 

68 

09 

d8 

85 

15 

f 4 

. C078 

: f0 

7B 

c9 

93 

f0 

57 

a0 

ff 

d5 

claB 

: 

a4 

f 7 

bd 

4c 

c2 

30 

08 

c9 

a2 

C080 

: c8 

be 

3c 

03 

f0 

b4 

d9 

3c 

ab 

clb0 


60 

90 

04 

29 

df 

d0 

02 

29 

5d 

C0B8 

: 03 

f0 

21 

e0 

85 

d0 

08 

c9 

fa 

clbB 


bf 

10 

02 

49 

C0 

91 

aa 

ad 

c8 

C090 

: 30 

90 

ed 

c9 

3a 

90 

15 

e0 

fb 

ClC0 

: 

86 

02 

91 

14 

e8 

c8 

c4 

f 9 

0a 

C090 

: 86 

d0 

05 

20 

13 

bl 

b0 

0c 

65 

clc8 


90 

e 0 

e6 

57 

e4 

ff 

90 

bf 

7d 

c0a0 

: e0 

87 

d0 

de 

c9 

cl 

90 

d8 

b2 

cld0 

: 

60 

20 

fd 

ae 

86 

aa 

20 

9e 

11 

C0a8 

: c9 

db 

b0 

d4 

a4 

fc 

99 

4c 

57 

cldB 

: 

b7 

e0 

28 

ba 

10 

a4 

aa 

96 

ld 

c0b0 

: c2 

4c 

06 

cl 

a2 

00 

a5 

fc 

0d 

Cle0 

: 

f 7 

20 

fl 

b7 

e0 

19 

b0 

05 

fe 

c0b8 

: e5 

aB 

2c 

a5 

fc 

c8 

c4 

fe 

dB 

cleB 

- 

a4 

aa 

96 

f 8 

60 

4c 

48 

b2 

95 

C0C0 

t b0 

03 

65 fd 24 88 

85 

fc 

al 

Clf0 

: 

a2 

00 

20 

d4 

cl 

a2 

02 

20 

ae 

c0c8 

: 4c 

18 

Cl 

a5 

fc 

C0 

00 

f0 

fd 

cif 8 

s 

dl 

cl 

e6 

f 9 

38 

a5 

f 9 

e5 

07 

c0d0 

: f 5 

e5 

fd 

b0 

f0 

20 

la 

c2 

4b 

c200 

: 

f 7 

90 

ea 

85 

fd 

8a 

e5 

fB 

68 

c0d8 

s 4c 

2d 

C0 

a4 

fc 

f0 

3d 

b9 

3f 

C208 


90 

€53 

69 

00 

85 

fe 

aa 

a9 

32 

c0e0 

: 4c 

c2 

99 

4b 

c2 

c8 

d0 

f 7 

03 

C210 

: 

00 

65 

fd 

b0 

da 

ca 

d0 

f 9 

73 

c0e8 

: a9 

20 

a6 

ff 

9d 

4b 

c2 

4c 

23 

C218 

: 

B5 

ff 

a 0 

00 

a9 

20 

99 

4c 

60 

C0f0 

: If 

Cl 

a4 

ft 

b9 

4b 

c2 

99 

4d 

C220 

: 

c2 

cS 

d0 

f a 

ad 

af 

C0 

ae 

92 

c0f B 

s 4c 

c2 

88 

c4 

fc 

d0 

f 5 

a9 

el 

C22B 


b0 

C0 

85 

aa 

86 

ab 

20 

79 

28 

C100 

s 20 

99 

4c 

c2 

d0 

16 

a6 

aB 

02 

C230 

: 

00 

c9 

2c 

d0 

16 

20 

73 

00 

6a 

cl08 

: a4 

a9 

e8 

e4 

fd 

d0 

07 

a2 

lf 

c238 


20 

9e 

ad 

20 

a3 

b6 

30 

00 

89 

Cll0 

: 00 

cB 

c4 

fe 

f 0 

06 

e6 

fc 

5a 

c240 

: 

aa 

f0 

08 

bi 

22 

91 

aa 

c8 

86 

cl 18 

: B6 

aB 

84 

a9 

4c 

37 

C0 

a4 

13 

c24B 

: 

ca 

d0 

fa 

60 

00 

00 

00 

c0 

46 

Listing 8 

»WINDOW« 
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Listing 5 bis 8 können Sie mit dem MSE eingeben 










Name s 

fast/slow 



C000 C01C 

C000 : 

ad 

11 

d0 

29 

ef 

Bd 

n 

d0 

e0 

c008 : 

a9 

01 

Bd 

30 

dH 

60 

a9 

80 

52 

C010 : 

8 d 

30 

d0 

ad 

u 

do 

09 

10 

7b 

C018 : 

8d 

11 

d0 

60 

20 

9b 

b7 

e0 

ed 

Listing 5. 

»FAST«, wie in Listing 1 


Name e 

färbe 





C000 c019 

C000 s 

20 

9e 

b7 

8 e 

86 

02 

20 

fd 

24 

c008 : 

ae 

20 

9e 

b7 

8 e 

21 

d0 

20 

da 

c010 : 

fd 

ae 

20 

9e 

b7 

Be 

20 

d0 

52 

c018 s 

60 

11 

d0 

60 

20 

9b 

b7 

e0 

C0 

Listing 6. 

»FARBE« 

mit 





einfachen Parametern 





Name : 

merge 





c000 c09c 

C000 : 

20 

75 

C0 

a5 

2b 

48 

a5 

2c 

a3 

c00Q : 

48 

a5 

2d 

a4 

2e 

38 

e9 

02 

53 

C010 : 

b0 

01 

88 

85 

2b 

84 

2c 

20 

db 

C018 3 

7d 

C0 

68 

85 

2c 

68 

85 

2b 

33 

C020 3 

4c 

a7 

el 

20 

75 

C0 

a 0 

a0 

dd 

C028 : 

85 

f 7 

B4 

f 8 

20 

7d 

C0 

ad 

35 

C030 3 

9a 

C0 

ac 

9b 

C0 

8d 

02 

03 

4f 

C038 s 

8c 

03 

03 

a0 

ff 

a5 

01 

29 

9e 

C040 s 

fe 

85 

01 

cB 

bi 

f 7 

e6 

01 

d3 

C048 s 

C0 

01 

90 

fl 

d0 

0b 

aa 

d0 

9d 

c050 : 

ec 

a 2 

03 

20 

55 

e4 

4c 

ab 

57 

c058 s 

el 

C0 

04 

b0 

05 

99 

12 

00 

16 

c060 s 

90 

db 

99 

fc 

01 

aa 

d0 

d5 

38 

C068 s 

98 

65 

f 7 

85 

f 7 

90 

02 

e6 

3b 

C070 3 

f 8 

c8 

4c 

a2 

a4 

20 

d4 

el 

96 

c078 : 

a9 

00 

85 

b9 

60 

aa 

a5 

01 

ae 

c080 s 

29 

fe 

85 

01 

a9 

00 

20 

d5 

71 

C0B8 : 

ff 

e6 

01 

90 

03 

4c 

dl 

el 

ea 

c090 : 

a5 

90 

29 

bf 

f0 

e6 

4c 

9c 

70 

C098 = 

el 

4c 

3b 

C0 

13 

bl 

b0 

0C 

20 

Listing 7. 

»MERGE« aus 
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C64 


Das Feinste vom leinen 


In einem Sonderheft mit dem Thema »Assem¬ 
bler« darf natürlich eine Programmsammlung mit 
ausgewählten Maschinenroutinen nicht fehlen. 
Wir haben für Sie unter anderem ein Programm, 
das laufend die aktuelle Adresse von Maschinen¬ 
routinen auf dem Bildschirm zeigt, und drei 
geniale Einzeiler ausgesucht. 


B 1 

I 


I itte beachten Sie beim Eintippen unserer Listings unbe¬ 
dingt unsere Eingabehinweise auf Seite 92. Die 
' Maschinensprache-Listings können Sie auch mit einem 
normalen Maschinensprache-Monitor eingeben. Dabei las¬ 
sen Sie in jeder Zeile das letzte Byte (=Prüfsumme) weg. 


OLD-Funktion für Variablen 


Dieses Programm (Listing 1) holt nicht nur ein Basic-Pro- 
gramm nach NEW, CLR oder einem Reset zurück, sondern 
auch sämtliche Variablen, Strings und Felder. 


C000 C073 


c000 : 

C008 : 

c010 : 
c018 : 

C020 : 
C028 : 
C030 : 
C038 : 
C040 : 
C048 : 
C050 : 
C058 : 
c060 : 

C068 : 

C070 : 


a0 01 
18 a5 
23 69 
a0 00 

13 bl 
cB bl 
2-f d0 
a0 07 
88 d0 
30 85 
bl 31 

14 c8 
aa c3 
86 31 
4c ae 


98 91 2b 
22 69 02 
00 85 2e 
bl 2f aa 
90 49 8a 
2-f 10 0b 
lb c8 bl 

e6 2-f d0 
i 7 a5 2i 
32 4c 18 
29 7-f 20 
c8 18 bl 
bl 31 65 
4c 4e c0 
a7 00 b-f 


20 33 
85 2d 
20 60 
29 7i 
0a b0 
a0 05 
2-f d0 
02 e6 
85 31 
c0 a0 
13 bl 

31 65 

32 85 
20 26 
bi le 


a5 45 
a5 f5 
a6 4b 
20 3d 


10 

bl 

16 

30 
a5 
00 
90 

31 

32 
b5 
01 


35 

c4 

ab 

14 

12 

5b 

57 

a2 

63 

75 

72 


Listing 1. »RE-CLR«. Verwenden Sie zur Eingabe 
bitte den MSE (Seite 92). 


IOC 

OOOO 

C 000 

C 002 

oooa 

CO 06 

COOB 

cooa 

COOB 

COOO 

COOf 

C 011 

coia 

cots 


20 33 A 4 

1 B 

A 4 23 
8 B 03 
44 20 

A 4 33 
40 00 


J 5 R 

CIC 

LOA 

AOC 

STA 

LOA 

AOC 


»me •NEW-NuU* ( 0 »cA»n (mH 1 iooracfx*Oon| 
OaecZilan neu omdan 


Proommmonae (- Z«»oor *2 NiMnl ubartesen 


COtO 
COIA 
COtC 
COtO 
C 01 F 
CO 2 2 
COS 4 
C 034 
C 034 
C 02 B 
C 029 
C 03 B 
C 02 D 
C 02 F 
C 031 
C 033 
C 034 
C 034 
C 038 
C 03 A 
C 03 C 
C 03 E 
C 040 
C 041 
CO «3 
C 045 
C 047 
C 049 
C 04 B 


LOA 

TAX 

AND 

JSA 

OCC 

TXA 


*00 

«W 

* 7 P 
Bl 13 
C 04 D 


C 034 

< 2 F)V 

C 034 

*05 

«W 

C 04 E 

(2f)V 

C 04 E 

»07 


C 01 B 


1 t 


M PrOD«e 


»»Hon 
B« 7 löKhen 
BuchMM* 
nom. denn («rag 

war Bll 7 ootuMIY 

* Otnng l*on<J».n lnioo»»vwi>ciD oder runnuonl 
2 Nnmonob,lo 

M» 440 Mo RCAI/VMtM. K*n 3 trm 0 
4 Byl» doo Smnga 

untfeicti Null - > AnayFAUKocI Kein StmQ 
7 Dylo d»M Strlngo 

»noWcb Nul - > Array-Ffftfeap) K.n Smng 


7 B«los übtn»B«n 


An«>-Endo - VtmnBOn-Enöo 


onun* 


C 04 E 

CO 50 
C 0 S 2 
CO 54 
CO 5 7 
C 059 
C 05 A 
COSB 
C 05 C 
C 05 E 
COOO 
COQI 
C 062 
COS 4 
COOO 
'*008 
*** 4A 


AND 

JSR 

BCC 


CLC 

LOA 

AOC 

TAX 


»00 

(31)V 

» 7 F 

0113 

COCD 


1 Byte nech VBntttanordn 
01 7 »Hcr*on 
BucnstaOe-r 

nein, denn lonig Keine Feder man» 


FoidOngo Low-Byle 

ru Arrvy-Ende-Zelger nOOomn und menen 


Ra Id lange Hign-Byle 
zu A/ray-Zeger MOeren 
Foö uCerteaen urd 

ArayZeger euf Feld-Ende poMOnleron 
i*id w*H»nr»5hen 


Gartmoo-Colocnco SlrmgnBgar racKaioMn 

zuröcx zur miorDrelerncnwile 


Bild 1. Der dokumentierte Quelltext von Listing 1 


Das vorliegende Maschinenprogramm steht ab SCOOO im 
Speicher (kann verschoben werden), benötigt 115 Byte 
Speicherplatz und wird einfach mit »SYS 49152« aufgerufen. 

Es können, wie gesagt, alle Werte und sogar definierte 
Funktionen und Felder zurückgeholt werden. Allerdings 
bestehen da noch drei kleine Bedingungen: 

1. Es muß vorher bereits ein Basic-Programm im Speicher 
gestanden haben (mindestens: »10 :«). 

2. Es darf vor Aufrufen der Routine kein Variablen-Programm 
eingegeben oder ein Feld abgefragt worden sein. 

3. Die erste Dimensionierung eines Feldes muß ein Stringfeld 
sein. Beispiele: 

- »DIM DE(20),DE$(20)« muß umgestellt werden zu 
»DIM DE$(20),DE(20)« 

- »DIM E(34)« muß ergänzt werden zu 
»DIM A$(0),E(34)« (A$(0) genügt schon!!) 

Diese Ergänzung braucht der Computer nämlich, um zu 
erkennen, daß in die Array-Behandlung gesprungen werden 
muß, sonst entsteht ein Fehler. 

Funktionsweise 

Der Computer untersucht das erste Byte nach dem Basic- 
Programm-Ende. Wenn dieses ein Buchstabe ist, prüft er es 
auf Stringvariable. Wenn nicht, wird der Zähler einfach um 7 


Byte (zwei Namensbyte und fünf Informationsbyte) erhöht 
und diese übergangen. 

Wenn aber eine Stringvariable gefunden wurde, untersucht 
er Byte 6 und 7. Diese sind bei einem String nämlich immer 
Null, weil sie hier nicht gebraucht werden; bei einem Feldkopf 
hingegen ist die Anzahl der Elemente der Dimensionierung 
des folgenden Feldes darin abgelegt: Wenn der Computer 
also eine numerische als erste Dimensionierung findet, hält 
er sie für eine normale numerische Variable (denn eine 
andere Erkennung ist hier leider nicht möglich!) und nicht für 
den ersten Feldkopf der Arrays, gibt einen falschen und 
unsinnigen Wert für die meist nicht vorhandene einfache 
Variable und findet auch die restlichen Felder nicht mehr! 

Wenn keine Buchstaben mehr gefunden werden, wird 
noch eine Garbage-Collection durchgeführt, um die String¬ 
zeiger wieder nachzustellen. 

Beachten Sie bitte: 

Falls Sie zum Beispiel eingeben 
10 DIM A$(30),B$(10) 

20 CLR 

30 DIM A$(30) 

40 SYS 49152 

wird automatisch A$(30), aber auch B$(10) zurückgeholt!! 

Tip: Das Programm kann auch nach einem »NEW«, »CLR« 
oder »Reset« eingeladen werden. Sie können das Programm 
auch auf anderen Speicherbereichen laufen lassen (zum Bei¬ 
spiel im Kassettenpuffer). Dazu müssen Sie die beiden 
Sprungbefehle 
C04B JMP C018 
C06A JMP C04E 
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jeweils anpassen (und die SYS-Adresse). Mit dem SMON ist 
das Verschieben ja kein Problem. 

Übrigens: Bild 1 zeigt das dokumentierte Assembler- 
Listing von »RE-CLR«. (Andreas Blödow/tr) 

Die Supei^Einzeiler 


Wer nicht will, daß sein Basic-Programm unnötig viel Spei¬ 
cher verbraucht, da er jedes freie Byte für Daten gebrauchen 
kann, oder wer will, daß sein Programm möglichst schnell ist, 
weil ihm jede Sekunde kostbar ist, für den ist es oft von Nut¬ 
zen, mehrere Programmzeilen zu einer zusammenzufassen. 
Jede Zeile, die neu begonnen wird, verbraucht nämlich vier 
Byte mehr Speicherplatz, als wenn diese mit einem Doppel¬ 
punkt an die vorhergehende Zeile angehängt würde. Bei 
einem längeren Programm kann da schon einiges Zusam¬ 
menkommen. Außerdem kann der Interpreter Befehle in einer 
Zeile schneller abarbeiten, als wenn jeder Befehl in einer 
eigenen Zeile steht. Wenn diese sich dann noch in einer 
Schleife befinden, die vielleicht einige hundertmal durchlau¬ 
fen wird, könnte man hier schon durch eine andere Anord¬ 
nung Zeit sparen. Um das Programm allerdings nicht allzu 
unübersichtlich zu machen, sollte man nur solche Zeilen 
zusammenfassen, die auch logisch zusammengehören. 

Wenn man dies nun beherzigen will, wird man allerdings 
durch den Basic-Editor ziemlich eingeschränkt, da dieser nur 
maximal 80 Zeichen in einer Zeile zuläßt. Der Interpreter 
würde aber auch längere Zeilen akzeptieren, nur kann man 
solche eben nicht eingeben. 

Um dieses Manko zu beseitigen, habe ich EX-LINE 
geschrieben (siehe Listing 2). Mit diesem Programm ist es 
nun möglich, Basic-Zeilen mit einer Länge von bis zu 252 Zei¬ 
chen einzugeben. 


pragramm 

: ex-1ine 



c000 c 12 b 


C000 

s 

a0 

00 

a2 

a0 

B4 

f 7 

B6 

fB 

71 


c00B 

: 

a2 

20 

bl 

f 7 

91 

f 7 

cB 

dB 

c3 


C010 

: 

f 9 

e6 

fB 

e6 

fa 

ca 

dB 

f 2 

c6 


C01B 

: 

«9 

c2 

8d 

f 5 

a4 

Bd 

B4 

aS 

58 


C020 

: 

8d 

ba 

aS 

Bd 

a7 

a5 

Bd 

06 

13 


C02B 

s 

«6 

a9 

cl 

Bd 

13 

a5 

Bd 

16 

86 


C030 

: 

a5 

Bd 

24 

a5 

8d 

cd 

a5 

8d 

53 


C038 

i 

d0 

aS 

8d 

fl 

a5 

Bd 

0b 

a6 

bd 


C040 

i 

Bd 

d2 

aa 

Bd 

f d 

cl 

a2 

B7 

la 


C048 

i 

a0 

C0 

8e 

08 

03 

8c 

09 

03 

ac 


C050 

t 

«9 

dB 

a2 

7a 

Bd 

28 

a5 

Be 

27 


C05B 

: 

2b 

aS 

8c 

2c 

aS 

a9 

20 

a2 

6c 


C060 

E 

82 

Bd 

B0 

a4 

Ba 

81 

a4 

Bc 

fa 


C06B 

x 

82 

a4 

a2 

00 

bd 

ld 

cl 

f0 

93 


C070 

s 

06 

20 

d2 

ff 

aB 

dB 

f 5 

6c 

01 


C07B 

: 

02 

a0 

b9 

fc 

cl 

91 

5f 

4c 

97 


c080 

a 

59 

a6 

a9 

37 

85 

01 

60 

20 

a0 


c088 

: 

73 

00 

c9 

21 

fB 

03 

4c 

e7 

ba 


C09B 

s 

a7 

a2 

36 

86 

01 

20 

73 

00 

c6 


C098 

c 

b0 

21 

•2 

mm 

«0 

C0 

8a 

00 

al 


C0a0 

B 

03 

Bc 

01 

03 

4B 

a9 

93 

20 

ea 


C0a8 

3 

d2 

ff 

6B 

4c 

a4 

a6 

20 

ea 

f 3 


C0b0 

3 

>8 

a2 

8b 

a0 

a3 

Ba 

00 

03 

99 


c0bB 

: 

Bc 

01 

03 

a9 

13 

20 

d2 

ff 

38 


C0C0 

3 

20 

cf 

ff 

ad 

00 

04 

48 

a2 

04 


c0cB 

B 

00 

86 

02 

a5 

d4 

48 

a9 

00 

77 


C0d0 

s 

B5 

d4 

a9 

13 

20 

d2 

ff 

a9 

7B 


C0d8 

I 

27 

B5 

dB 

bd 

00 

04 

Bd 

BB 

04 


C0C0 

1 

04 

68 

85 

d4 

20 

cf 

ff 

9d 

d0 


c0*B 

: 

00 

c2 

18 

65 

02 

B5 

02 

b8 

22 


C0f0 

3 

d0 

d9 

Ba 

Bd 

ff 

c2 

a2 

fc 

9c 

Listing 2. 

cOf 8 

C100 

3 

bd 

bB 

00 

50 

c2 

f 5 

c9 

e8 

20 

a9 

d0 

00 

04 

9d 

ca 

00 

cd 

Bc 

Die Basic- 

cl0B 

3 

c 2 

6B 

Bd 

00 

04 

a9 

Bd 

a2 

69 

Erweiterung 

cl 10 

B 

03 

20 

d2 

ff 

ca 

dB 

fa 

20 

37 

»EX-LINE« 

cllB 

s 

cf 

aa 

4c 

86 

a4 

0 d 

45 

58 

99 

c 120 

: 

2 d 

4c 

49 

4a 

45 

20 

42 

59 

al 


cl2B 

3 

20 

48 

43 

45 

0 d 

00 

ff 

ff 

b7 



Nachdem man dieses Programm mit dem MSE eingegeben 
oder mit »LOAD ' 'EX-LINE’ ',8,1« von Diskette geladen hat, 
kann man es mit »SYS 49152« starten. Danach steht das Ausru¬ 

333 ? 


fungszeichen als neuer Befehl zur Verfügung. Wenn man die¬ 
sen Befehl eingibt, erscheint der Cursor in der linken oberen 
Ecke des Bildschirms. Nun kann man eine Programmzeile 
oder Befehle im Direktmodus eingeben. Dabei ist zu beach¬ 
ten, daß nach < RETURN > nur die ersten 6,5 Bildschirmzei¬ 
len übernommen werden, egal wo sich der Cursor dann 
befindet. Wenn man nach dem Ausrufungszeichen noch eine 
Zeilennummer angibt, wird vorher noch der Bildschirm 
gelöscht und die entsprechende Zeile gelistet, so daß man 
auch überlange Zeilen editieren kann. 

Da sich das Programm nicht mit dem Checksummer ver¬ 
trägt, errechnet es noch eine Prüfsumme, die sich mit »PRINT 
PEEK(2)« auslesen läßt. Sie entsteht einfach durch Addition 
der ASC-Werte der eingegebenen Zeichen. In der Speicher¬ 
zelle 2 steht dann das Low-Byte der Summe. 

Wenn man die Befehle in abgekürzter Form eingibt, erhält 
man eine andere Prüfsumme, als wenn man sie ausschreibt. 
Die angegebenen Prüfsummen bei den folgenden Program¬ 
men beziehen sich immer auf die ausgeschriebene Form. 
Programmbeschreibung 

Das Programm ist komplett in Maschinensprache geschrie¬ 
ben und steht im Speicher ab $C000. Nach dem Start mit 
»SYS 49152« wird zuerst das Basic-ROM in den darunter lie¬ 
genden RAM-Bereich kopiert und so verändert, daß der Ein¬ 
gabepuffer nicht mehr bei $0200, sondern bei $C200 liegt. 
Dies ist nötig, da dieser jetzt mehr Platz benötigt, als das 
Betriebssystem für ihn vorsieht. 

Schließlich wird der Vektor für »Basic-Befehl holen« bei 
$0308 auf die neue Routine gelenkt. Diese prüft, ob das 
erste Zeichen ein Ausrufungszeichen ist. Wenn dies der Fall 
ist und noch eine Zeilennummer folgt, wird zunächst der Bild¬ 
schirm gelöscht und die entsprechende Zeile gelistet. (Wenn 
keine Zeile angegeben war, wird dieser Teil übersprungen.) 

Nachdem dann die Eingabe erfolgt ist, wird das RAM bei 
$A00ü aktiviert, der Text im oberen Teil des Bildschirms in 
den Puffer bei $C200 kopiert, in Interpretercode umgewan¬ 
delt und ausgeführt. Das ROM wird bei der nächsten Eingabe 
wieder eingeschaltet, so daß der Eingabepuffer wieder wie 
üblich bei $0200 liegt. 

Um zu zeigen, was man mit diesem Programm alles in einer 
Zeile unterbringen kann, habe ich folgende drei »Einzeiler« 
geschrieben: 


1 OPEN 1,8,15:FOR 1=0 TD 44sREAD A:PRINT#1 
, "M-WCHR* (I) CHR* (5) CHR* < 1) CHR* <A) s NEXTi 
PRINT#1,"UC“s DATA 169,254,170,32,21,5,20 
2,224,1,208,248,32,21,5,232,224,255,208, 
248,240,235,138,72,73,255,168,169,248,14 
1,0,28,202,208,248,169,240,141,,28,136,2 
08,248,104,170,96 

6 64'er 

Listing 3. »Soft Flash« läßt die rote LED der Floppy 
stufenlos an- und ausgehen. Zur Eingabe Listing 2 
verwenden. 


1. SOFT FLASH: 

Dieser Einzeiler (Listing 3) bewirkt, daß die rote LED am 
Diskettenlaufwerk scheinbar stufenlos ein- und ausgeschal¬ 
tet wird. Wenn man das Programm mit Hilfe von »EX-LINE« 
eingegeben hat, kann man mit »PRINT PEEK(2)« die Prüf¬ 
summe abfragen. Diese sollte 180 betragen. 
Programmbeschreibung: 

In der FOR-NEXT-Schleife wird ein Maschinenprogramm 
mittels »Memory-Write« in das RAM der Floppy ab $0500 
geschrieben. Der Floppy-Befehl »UC« bewirkt dann, daß die¬ 
ses gestartet wird. Das Maschinenprogramm schaltet die 
LED so schnell an und aus, daß dies für das Auge nicht sicht¬ 
bar ist. Dabei ändert sich die Länge der Hell- und Dunkel- 
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Phase, so daß es scheint, als ob die Lampe langsam hell und 
dunkel würde. 

Weil das Programm als Endlosschleife geschrieben ist, läßt 
sich das Laufwerk nicht mehr ansprechen. Wenn man die 
Floppy weiter verwenden will, muß man sie vorher aus- und 
anschalten. 

2. STRICH-CURSOR: 

Dieser Einzeiler (Listing 4) verwandelt den Cursor in einen 
Strich, der unter den Zeichen blinkt, so wie man es oft bei grö¬ 
ßeren Computern sieht. Man kann diese Routine verwenden, 
um seinen Programmen ein professionelles Aussehen zu ver¬ 
leihen (Prüfsumme: 186). 

Programmbeschreibung: 

Die ersten drei POKE-Befehle bewirken, daß der Bild¬ 
schirm nach SCCOO verlegt wird und der Zeichensatz aus 
dem RAM ab $D000 gelesen wird. Dies ist notwendig, da 
kein Basic-Speicher verlorengehen soll und der VIC nur 16 
KByte auf einmal adressieren kann. 

Bevor man nun den Originalzeichensatz bei $D000 mit 
»POKE 1 , 3 « lesbar machen kann, muß noch der Interrupt mit 
»POKE 56333, 1« ausgeschaltet werden. Die erste FOR-NEXT- 


1 W=56333s0=53240:Z=4t5:POKE Q+24,52:P0KE 
56576,B:POKE 64B,204sPOKE W,l:POKE 1,3:F 
DR 1=0 TO 999tPÜKE 52224+1,PEEK<Z+I):NEX 
TsFOR 1=0 TO Z:A-Q+I:B=A+2*Z:L=Z*<(I AND 
7)=7):POKE A,PEEK(A)tPOKE B,PEEK(B>:POK 
E A+Z,PEEK < A-L)t POKE B+Z,PEEK(B-L):NEXT: 
POKE 1,7:POKE W,129 

© 64'er 

Listing 4. »Strich-Cursor«. Verleiht Ihrem Cursor ein 
äußerst professionelles Aussehen. 


1 PRINT”{HOME,RVSON,SPACE,RV0FFJä{RVS 0NJ9{ 
RVOFFJ£D{RVSON >Y{RVOFF >,A{RVSON>H{RVOFF > 
P{RVSON JY{RVOFF JTKRVSON>){RVOFF >3{RVSONJ 
E{RVOFF >A{RVSON >){RVOFF > «{RVSON JEV)£ETKS 
PACE,RVOFF > e{RVSON >1V.9#{RVOFF >3*B{RVSON 
>££ßX{RVOFF >1G{RVSON J( X {RVOFF >B{RVSON >QY 
X{RVOFF JIG{RVSON >(Ü£TTDXU1{SHIFT-SPACE J £ 
±> {RVOFF J7 {RVSON JE {RVOFF JAA., ATT {RVSON >) DM 
{RVOFF J X{RVSON J£>{RVOFF J @{RVSON JM{RVOFF J 
@{RVSON J = > {RVOFF J£{RVSONJM{RVOFF JTC{RVSO 
N J){RVOFF JA{RVSON JM{RVOFF JUCX{SHIFT-SPAC 
E,RVSON J){RVOFF J «{RVSONJ* < H={RVOFF J «D{RV 
SON JY7T= {RVOFF J«E{RVSON JY1T» {RVOFFJ1F{RV 
SON JY ?{SHIFT-SPACEJ={RVOFF J @G{RVSON J Y?SH 
?£E{RVOFF JJ.1 {RVSONJff{RVOFF J" s SYS 1024 

© 64'er 

Listing 5. »Upside-Down«. Dreht den Bildschirm um 180 

Grad! Beachten Sie bitte die Eingabehinweise im Text. 


Schleife kopiert den Bildschirm an seine neue Position. Die 
zweite Schleife kopiert den Zeichensatz ins RAM. Dabei wer¬ 
den die reversen Zeichen so verändert, daß nur die unterste 
Reihe revers erscheint. Die folgenden POKEs bewirken 
schließlich, daß der Interrupt eingeschaltet wird und der I/O- 
Bereich bei $D000 wieder ansprechbar ist. 

3. UPSIDE-DOWN: 

Dieses Programm habe ich in zwei Versionen geschrieben, 
da es als Einzeiler (Listing 5) sehr schwer abzutippen ist. Die 
zweite Version (Listing 6) wird mit dem MSE eingegeben (die 
Prüfsumme für den Einzeiler lautet 76). Beide Versionen kön¬ 
nen einfach mit »RUN« gestartet werden. Danach erscheint 
der ganze Bildschirm »auf den Kopf gestellt«. Dies bezieht 
sich auf alle Ein- und Ausgaben. Auch Zeichen, die mit 


Programm 

: upmida-down v2 

0801 0896 

0801 

s 

11 

08 

00 

00 

9a 

32 

30 

37 

cl 


618(09 

8 

32 

20 

ab 

20 

48 

43 

45 

00 

es 
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B 

00 

00 

00 

00 

00 

00 

00 

a0 

53 


0819 

I 

40 

b9 

5b 

0B 

99 

2c 

01 

88 

la 


0821 

8 

10 

17 

78 

a9 

33 

85 

01 

a9 

37 


0829 

8 

00 

85 

♦ 7 

«9 

d0 

85 

1B 

a0 

7d 


0831 

8 

00 

bl 

17 

ae 

b9 

a3 

4a 

26 

0C 


0839 

1 

02 

ca 

d0 

<« 

98 

49 

07 

aB 

75 


0B41 

8 

*5 

02 

91 

17 

98 

49 

07 

aB 

Bc 


0849 

1 

CB 

d0 

e6 

mb 

*8 

»5 

fB 

c9 

44 


0851 

8 

B0 

d0 

de 

»9 

37 

85 

01 

4c 

c2 


0B59 

3 

2c 

01 

78 

«9 

84 

Bd 

18 

dB 

10 


0B61 

8 

«9 

00 

Bd 

00 

dd 

«9 

43 

Bd 

cl 

Listing 6. 

0869 

: 

14 

03 

*9 

01 

Bd 

15 

03 

SB 

cB 

0871 

x 

60 

*9 

00 

aa 

aB 

8B 

bd 

00 

cl 

»Upside-Down V2«. 

0879 

: 

04 

99 

eB 

a 2 

bd 

00 

05 

99 

03 

Listing 5 
als MSE Dump. 

0881 

0889 

8 

1 

>8 

bd 

al 

00 

bd 

07 

00 

99 

06 99 
a8 dt 

BÖ 

88 

B0 

aB- 

5c 

bd 

0891 

8 

d0 

a4 

4c 

31 

•a 

20 

8e 

b4 

60 



»POKE« auf den Bildschirm gebracht werden, erscheinen an 
der entsprechenden anderen Stelle auf dem Kopf. Die mei¬ 
sten Programme vertragen sich damit gut, da nur der IRQ- 
Vektor verändert wird. Nach einem Reset oder RUN/STOP- 
RESTORE kann das Programm mit »SYS 300« wieder aktiviert 
werden. 

Programmbeschreibung: 

Das Maschinenprogramm, das bei dem Einzeiler mittels 
»PRINT« auf den Bildschirm gebracht wird, kopiert zunächst 
eine Interruptroutine in den Stack ab Adresse 300. (Dieser 
Bereich ist besonders geeignet, da er nach einem Reset 
nicht gelöscht wird und ein Programm dort nicht stört.) Dann 
wird der gesamte Zeichensatz auf den Kopf gestellt und in 
das RAM bei $D000 kopiert. Der VIC wird veranlaßt, den Zei¬ 
chensatz aus $D000 und den Bildschirm aus $E000 zu 
lesen, schließlich wird die Interruptroutine aktiviert, die 
60mal in der Sekunde den Bildschirm umgekehrt nach 
$E000 kopiert. (H. C. Edelmann/tr) 

Computer-Logbuch 


Dieses Assemblerprogramm (Listing 7) dient dazu, die 
aktuelle Speicherstelle im Programmlauf in die linke obere 
Ecke des Bildschirms zu schreiben. 

Ursprünglich wurde bei jedem zehnten Interrupt die 
Adresse aus den Speicherstellen 105 und 106 gelesen und 
in die oberste Zeile des Bildschirms geschrieben. 

Durch den schnellen Wechsel der Anzeige war dies jedoch 
mühsam abzulesen. Aus diesem Grund habe ich jede zweite 
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C000 


78 

a9 

0d 

a0 

C0 

Bd 

14 

03 

73 

C008 

: 

8c 

15 

03 

5B 

60 

CB 

96 

C0 

43 

C010 

B 

ad 

96 

C0 

c9 

0f 

iß 

11 

ad 

8a 

C018 

8 

96 

C0 

c9 

0a 

f0 

25 

ad 

96 

de 

C020 

8 

C0 

c9 

01 

f0 

39 

4c 

31 

ea 

b4 

C02B 

3 

a0 

03 

a9 

0e 

99 

00 

dB 

88 

84 

C030 

8 

10 

1 B 

a0 

00 

bd 

06 

01 

20 

35 

C038 

: 

66 

C0 

bd 

05 

01 

20 

66 

C0 

3b 

C040 

3 

4c 

31 

ea 

a0 

03 

a9 

0e 

99 

de 

C04B 

8 

28 

d8 

88 

10 

fB 

a0 

00 

bd 

10 

c050 

3 

06 

e: 

20 

7e 

C0 

bd 

05 

01 

bf 

c058 

8 

20 

7e 

C0 

4c 

31 

ea 

a9 

10 

a2 

C060 

8 

Bd 

96 

C0 

4c 

31 

ea 

48 

4a 

12 

C068 

: 

4a 

4a 

4a 

20 

71 

C0 

68 

29 

71 

C070 

8 

0f 

c9 

0a 

90 

02 

e9 

39 

69 

20 

c078 

8 

30 

99 

00 

04 

CB 

60 

48 

4a 

3b 

C0B0 


4a 

4a 

4a 

20 

89 

C0 

68 

29 

19 

C0BB 

: 

0f 

c9 

0a 

90 

02 

e9 

39 

69 

38 

C090 

8 

30 

99 

28 

04 

c8 

60 

10 

18 

17 


Listing 7. »Outadr« zeigt ständig den Prozessor- 
Programmzähler an 
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Ausgabe in die zweite Zeile umgeleitet. Nun ist die Ablesung 
kein Problem mehr. Es ist schon interessant, bei dieser 
Adressenfolge zuzuschauen. Besonders lehrreich ist es für 
Anfänger und Fortgeschrittene, zu sehen, welche Bereiche 
im Kernel angesprungen werden. 

Denkbar wäre noch, die Ablesung bei jedem Interrupt vor¬ 
zunehmen, oder die Adressen auf den Drucker zu geben. 
Dabei könnten alle Adressen im ROM-Bereich aussortiert 
werden, wenn man sich auf die Struktur eines noch unbe¬ 
kannten Programms konzentrieren möchte. (Ralf Störmer/tr) 

Der Super-Autostart 


Darauf haben Sie schon lange gewartet: Einen Autostart- 
Generator, der viele sinnvolle Eigenschaften aufweist. Dazu 
gehören: Kurzes Listing (sowohl des Generator-Programms 
als auch des Autostarts selber), einfach in der Anwendung, 
RUN/STOP-RESTORE- und Reset-Schutz für das fertige Pro¬ 
gramm und eine eingebaute Codier- und Decodier-Funktion. 

Der Autostart-Generator in Listing 8 hat alle genannten 
Funktionen. Die Anwendung ist äußerst einfach: Abtippen, 
speichern, absolut laden, »NEW« eintippen. Dann das zu 
bearbeitende (Basic-)Programm laden und den Autostart mit 
folgender Zeile aktivieren: 

SYS 49152,Code, "Haupt-Name", "Lader-Name" 

»Code« ist eine beliebige Zahl zwischen 0 und 255. 
»Haupt-Name« und »Lader-Name« sind die zukünftigen 
Namen des codierten Hauptteils beziehungsweise des Lade- 
Programms auf der Diskette. Der Lader ist später mit »,8,1« in 
den C 64 zu lesen. 


Programm : autostart cOOO cl31 
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a6 
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20 
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cO 
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10 
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ff 
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ff 

ff 

ff 
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Läßt man »"Lader-Name”« weg, so wird nur der codierte 
Hauptteil neu gespeichert (wenn man Änderungen am 
Hauptteil vorgenommen hat). Wichtig ist dann nur, daß die 
Code-Zahl des Hauptprogramms mit der des Laders überein- 
stimmt. Im Zweifelsfall sollte man lieber den alten Lader 
löschen und beide Teile neu generieren. 

(Christoph Dautzenberg/tr) 

Fehlersuche für Einsteiger 


Vor allem Anfänger haben Schwierigkeiten, die manchmal nur 
schwer verständlichen englischen Fehlermeldungen des 
C64 richtig zu deuten. Aber gerade während der ersten 


Listing 8. Oer Super-Autostart, den Sie schon immer suchten 

Schriue in Basic ist es wichtig zu wissen, was man denn 
eigentlich falsch gemacht hat. Dieses Programm (Listing 9) 
übersetzt für Sie die Meldungen des Basic-Interpreters und 
bringt die fehlerhafte Programmzeile gleich auf den Bild¬ 
schirm. Nach der Eingabe mit dem MSE speichern Sie das 
Listing erst einmal auf Diskette oder Kassette. Laden Sie es 
dann absolut, also mit LOAD "FEHLER",8,1 für Diskette 
beziehungsweise mit LOAD"FEHLER",1,1 für Datasette. 
Starten Sie dann das Programm mit SYS 49152. Wenn Sie die 
Erweiterung nicht mehr brauchen, geben Sie einfach SYS 
49163 ein. (Florian Gudermann/tr) 
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C 64 


Der Super-Kopierschutz 


Eigentlich verliert ein guter Disketten- 
Kopierschutz seinen Sinn, wenn sein Mechanis¬ 
mus in einer Zeitschrift veröffentlicht wird. Der 
hier vorliegende ist jedoch so außergewöhnlich 
gut, daß wir ihn Ihnen nicht vorenthalten wollten. 
Nebenbei erfahren Sie eine Menge über den 
internen Aufbau und die Funktionsweise des 
1541-Laufwerks. 

I n den meisten Büchern wird der Aufbau einer Diskette 
symmetrisch dargestellt. Diese Annahme ist aber falsch 
(zumindest im Falle einer Diskette, die mit einem 
1541-Laufwerk formatiert wurde). Die tatsächliche Anord¬ 
nung der Sektoren zeigt Bild 1. Die Aufgabe eines guten 
Kopierschutzes könnte also sein, die Verschiebung der 
Blöcke zweier Tracks gegeneinander zu messen. Dies ist 
jedoch weitaus schwieriger, als man auf den ersten Blick ver¬ 
mutet. 

Zunächst: Warum ist diese Methode so effektiv (in bezug 
auf die Kopiersicherheit)? Fast alle erhältlichen Kopierpro¬ 
gramme können nämlich nur eines: Einen Track mit allen heut¬ 
zutage bekannten Gemeinheiten (Geschwindigkeitsände¬ 
rungen zwischen zwei Blöcken oder innerhalb eines Blocks, 
versteckte Daten im Blockheader oder provozierte Fehler¬ 
meldungen mit versteckten Informationen) mehr oder weni¬ 
ger identisch auf eine andere Diskette bringen. Was sie nicht 
können: Die Lageverschiebungen zwischen zwei Tracks mit¬ 
kopieren. Ein Kopierschutz, der auf diese Weise arbeitet, 
müßte mit den zur Zeit bekannten Mitteln unkopierbar sein. 

Ein Kopierschutz entsteht 


Zuerst mußte für diese zeitkritische Aufgabe ein zuverlässi¬ 
ger Zeitgeber gefunden werden. Es wurde der Interrupttimer 
bei Adresse $1C05 des Laufwerks gewählt. Im nächsten 
Schritt wurde versucht, die Zeit zwischen dem Wechsel von 
einer Spur auf eine andere und dem Finden eines bestimm¬ 
ten Sektors zu messen. Nach einigen Versuchen stellte sich 
jedoch heraus, daß diese Methode außer perfekten Zufalls¬ 
zahlen keine vernünftigen Ergebnisse lieferte: Durch das 
automatische Lesen der Sync-Markierung und des Block¬ 
headers beim Spurwechsel durch das Betriebssystem der 
1541 wird die gemessene Zeit zu stark verfälscht. 

Eine neue Möglichkeit mußte her: Der Track wird komplett 
mit lauter $55-Bytes (binär %01010101) beschrieben. 


Danach kommt auf auf eine beliebige Stelle desselben Tracks 
eine $FF-Markierung (binär %11111111). Auf diese Weise 
kann man das Lesen der Sync-Markierung beim Trackwech¬ 
sel, das ja die Zeit verfälscht, ausschalten (es existieren nun 
ja keine Syncs mehr). 

Nächster Probelauf der Entwicklungsphase: Ein bestimm¬ 
ter Block wird eingelesen und der Timer auf Null gestellt. Dar¬ 
auf erfolgt ein Wechsel auf den eben präparierten Track. Nun 
wird auf die $FF-Marke gewartet und die Zeit bis dahin 
gestoppt. Wenn diese Zeit nicht mit einem festen Wert über¬ 
einstimmt, handelt es sich nach Adam Riese um eine Kopie 
der Diskette. 

Entscheidende Nachteile dieser Methode: 

1. Auf der Diskette geht für die Programmspeicherung ein 
kompletter Track (nämlich der präparierte) verloren, und 

2. Da jedes Diskettenlaufwerk leicht unterschiedliche 
Umdrehungszahlen hat, läßt sich das Programm wegen der 
festen Zeitvorgabe nicht übertragen. 

Nächster Schritt: Ein Programm wurde entwickelt, das den 
Trackwechsel selbständig vornimmt. Dadurch konnte das 
automatische Lesen der Sync-Markierung und des Headers 
verhindert werden. Das Programm mißt nun die Zeit vom 
Lesen eines Blocks auf einer Spur bis zum Erreichen einer 
Sync-Markierung auf dem nächsten Track. Leider ergab sich 
dabei wieder ein Problem: Da ein Track mit maximal 40 Syncs 
bestückt sein kann, sind die gemessenen Zeiten einfach zu 
klein, um als Basis für eine Abfrage dienen zu können. 

Was nun? Als nächster Versuch wird ein Track dadurch prä¬ 
pariert, ein beliebiger Block mit $F0-Daten-Bytes gefüllt 
wird (binar %11110000). Auf der Diskette erscheinen diese 
Werte dann aufgrund der GCR-Codierung der 1541 als 
$55-Bytes. Das Programm wartet nun nach dem Trackwech¬ 
sel, bis entweder $55- oder $AA-Bytes ankommen. $AA 
deshalb, weil es Vorkommen kann, daß man beim Lesen 
zuerst ein gesetztes Bit erwischt: $55=%01010101 und 
$AA=%10101010. Die Zeit wird wieder gemessen und mit 
einem Fixwert verglichen. Aber: Die Übertragung auf andere 
Laufwerke mit anderen Umdrehungsgeschwindigkeiten 
klappte immer noch nicht. 

Die Lösung dieses Problems liegt eigentlich auf der Hand 
und führte schließlich zum nun vorliegenden Programm: Auf 
drei nebeneinanderliegenden Tracks wird je ein mit 
$F0-Bytes »behandelter« Block als Markierung gesetzt. Das 
Programm mißt nun einmalig die Zeit von Track 1 zu Track 2 
und von Track 2 zu Track 3. Diese beiden Werte werden auf 
Diskette gespeichert. Soll nun der Kopierschutz abgefragt 
werden, nimmt das Programm wieder eine Messung zwi- 




Bild 1. Die 
Blöcke auf den 
einzelnen Spuren 
einer Diskette sind 
leicht versetzt angeordnet 
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sehen Track 1 und Track 2 und zwischen Track 2 und Track 
3 vor. Die jetzt erhaltenen Werte stimmen aufgrund der unter¬ 
schiedlichen Umdrehungszahlen von zwei verschiedenen 
Laufwerken nicht mehr überein. Überprüft werden jetzt nicht 
die Werte selbst, sondern das Verhältnis dieser Werte zuein¬ 
ander, denn das muß ja gleich sein (sofern es sich um ein Ori¬ 
ginal handelt). Dabei wird eine kleine Toleranz gewährt. Erste 
Testläufe zeigten: Das Prinzip funktioniert hervorragend! 

Am effektivsten ist Schutz bei den Tracks 3, 4, 5 und 6. Die 
meisten Kopierprogramme fordern nämlich an diesen Stellen 
zum Wechseln der Diskette auf, können folglich die Verschie¬ 
bung zwischen den Tracks nicht mitbekommen. 

Vorteile des Schutzverfahrens: 

- Sehr hohe Wirkung 

- Leicht aufzutragen 

- Abfrage des Schutzes ist Schreib-/Lesekopfschonend 

- Der Mechanismus läßt sich nicht so leicht aufdecken 
Nachteile: 

- Eventuelle Kompatibilitätsprobleme mit besonderen Lauf¬ 
werken 

- Speicherverlust von zirka zehn Blöcken auf der Diskette 

- Auf den mit $FO-Marken versehenen Tracks darf sich kein 
anderer Datenblock befinden, der ebenfalls eine 
bestimmte Anzahl von $FO-Bytes enthält. 

Bedienung der Programme 


Listing 1 ist nur ein kleines Ladeprogramm für die eigentliche 
Abfrageroutine »protectl« (siehe Listing 2) und das Steuer¬ 
programm »protect2« (Listing 3). Diese Programme müssen 
Sie mit dem MSE auf Seite 92 eintippen. Achten Sie bitte 
beim Eingeben der Programmnamen in den MSE auf korrekte 


Schreibweise. Das Ladeprogramm findet sonst die beiden 
anderen Programme auf der Diskette nicht. 

Wenn Sie das Ladeprogramm mit LOAD" LADER PROTECT", 
8 geladen und mit RUN gestartet haben, werden Sie als 
erstes aufgefordert, eine Diskette in das Laufwerk zu legen 
und eine beliebige Taste zu drücken. Auf diese Diskette wird 
der Schutz dann angebracht. Sie sollte möglichst noch leer 
(aber bereits formatiert!) sein, da eventuell vorhandene Pro¬ 
gramme gelöscht werden könnten. Nachdem Sie das Einle¬ 
gen durch einen Tastendruck bestätigt haben, wird Ihnen 
noch eine Bedenkzeit von zehn Sekunden überlassen. Falls 
Sie jetzt bemerken, daß Sie aus Versehen doch die falsche 
Diskette eingelegt haben, können Sie den Vorgang noch mit 
< RUN/STOP > abbrechen. Während der Arbeit des Pro¬ 
gramms (rote Leuchtdiode an der Diskettenstation brennt) 
darf die Diskette unter keinen Umständen aus dem Laufwerk 
genommen werden! Die Mechanik könnte sonst Schaden 
nehmen. 

In den nächsten Sekunden geschieht mit Ihrer Diskette fol¬ 
gendes: Die Spuren 1 bis 6 werden neu formatiert und je ein 
Block pro Spur bekommt eine Abfragemarke aus $FO-Bytes. 
Die Blocknummer dieses Blocks ist dabei gleich der Track¬ 
nummer (also zum Beispiel Track 3, Block 3). Also beschrei¬ 
ben Sie bei der späteren Verwendung dieser Diskette nie¬ 
mals einen dieser Blöcke auf den Spuren 1 bis 6! 

Sind die Blöcke präpariert, wird auf Track 1, Sektor 0 noch 
die Kopfpositionierungsroutine und ein Abfrageprogramm 
unter dem Namen »C.OBJ« auf die Diskette geschrieben. 

Wenn Sie nun überprüfen möchten, ob die Diskette kopiert 
wurde, laden Sie dieses Programm mit LOAD"C.OBJ '',8,1 in 
den C 64 und starten es mit SYS 28672. Die Diskettenstation 
arbeitet einige Sekunden (rote Leuchtdiode brennt) und das 
Programm meldet sich wieder mit READY. Durch PRINT 
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lb 
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0C 
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4b 
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71B0 

7188 


04 

e0 

c9 

05 

04 

d0 

b0 

ee 

02 


02 

e8 

bl 

7308 


85 

43 

85 

35 

20 

07 

d3 

4c 

59 
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01 

71 

20 

lf 

71 

20 

b5 

6b 

: 

a5 

02 

c9 

04 

96 

7310 
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da 

c8 

00 

00 

00 

00 

00 

00 

4f 

7008 
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ad 

aB 

73 

c9 

05 

d0 

la 

24 

7190 
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b0 

03 

a9 

tf 

2c 

a9 

7f 

85 

45 
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00 

00 

00 

00 

00 

00 

00 

00 

19 
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e2 
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1B 
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03 

5d 
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a9 
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a0 
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B5 

e7 
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00 

20 

0e 

fe 

20 

00 

fe 

d9 

7018 

: ee 

e3 

70 

8d 

b2 

70 

20 

0d 

12 

71a0 

: 

a2 

aa 

9d 

a2 

73 

a0 

60 

eB 

e3 

7328 
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a5 

35 

85 

43 

a9 

09 

8d 

26 

97 

7020 
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b5 
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20 

01 
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4c 

85 
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d0 

fB 
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20 

01 
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29 
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06 
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00 

Bd 

2B 

06 
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00 
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7028 
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71 
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01 

71 

20 

0d 

71 

7c 
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70 

ee 

a7 

70 

a9 
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85 
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0e 

7338 
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3d 

a5 

39 

99 

00 

03 
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45 
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: 
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2710 2bal 

2898 

: 

20 

20 

20 

20 

20 

20 

20 

20 

98 

2a30 


a9 

02 

a2 

08 

a0 

61 

20 

ba 

8f 












28ä0 

: 

20 

20 

ad 

C3 

c3 

c3 

c3 

c3 

a5 

2a38 


ff 

a2 

86 

a0 

2a 

a9 

05 

20 

B2 

2710 

s 

20 

44 

e5 

a9 

0b 

Bd 

20 

d0 

40 

2BaB 

: 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

a7 

2a40 


bd 

44 

20 

C0 

ff 

a9 

0B 

20 

cb 

271B 

8 

78 

a2 

06 

a0 

00 

cc 

12 

dB 

c7 

2Bb0 

: 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

a4 

2a4B 


bl 

ff 

a9 

61 

20 

93 

ff 

a9 

Bl 

2720 

: 

d0 

f b 

8e 

21 

d0 

ad 

11 

dB 

16 

28bB 

: 

c3 

c3 

c3 

c3 

c3 

c3 

bd 

20 

58 

2a50 


00 

85 

fe 

a9 

70 

B5 

ff 

a9 

8e 

2728 

: 

10 

f b 

a9 

0c 

Bd 

21 

d0 

c8 

d8 

2Bc0 

3 

20 

20 

20 

20 

20 

20 

u 

11 

66 

2a5B 


00 

20 

dd 

ed 

a9 

70 

20 

dd 

f 8 

2730 

■ 

ea 

ea 

dB 

e9 

78 

a0 

fd 

a2 

ca 

28c B 

: 

11 

9B 

20 

20 

20 

20 

49 

4e 

f 6 

2a60 


ed 

a9 

03 

B5 

4c 

a2 

00 

al 

bb 

2738 

8 

0b 

cc 

12 

dB 

d0 

fb 

Be 

21 

bl 

28d0 

: 

53 

45 

52 

54 

20 

54 

41 

52 

33 

2a68 


4e 

20 

dd 

ed 

e6 

fe 

dB 

f5 

41 

2740 

8 

d0 

ea 

ad 

11 

dB 

10 

4b 

ee 

6e 

2Bd8 

: 

47 

45 

54 

20 

44 

49 

53 

4b 

4d 

2a70 


c6 

4c 

40 

05 

e6 

ff 

4c 

65 

f b 

2748 

8 

21 

d0 

88 

d0 

ec 

a9 

0b 

Bd 

71 

28e0 

: 

20 

41 

4e 

44 

20 

50 

52 

45 

15 

2a7B 


2a 

a9 

08 

20 

ae 

ff 

a9 

02 

13 

2750 

8 

21 

d0 

20 

66 

e5 

a9 

03 

85 

71 

28e8 

3 

53 

53 

20 

41 

4e 

59 

20 

4b 

de 

2a80 


20 

c3 

44 

4c 

94 

e3 

43 

2e 

dd 

2758 

8 

9a 

a9 

dl 

a0 

27 

B5 

22 

B4 

74 

28f 0 

3 

45 

59 

20 

0d 

11 

ii 

20 

20 

e6 

2a88 


4f 

42 

4a 

0a 

09 

ad 

04 

lc 

13 

2760 

8 

23 

a9 

f 2 

20 

24 

ab 

a9 

c6 

ec 

2B4B 

S 

20 

9b 

48 

49 

54 

20 

52 

55 

5b 

2a90 


ad 

0c 

lc 

09 

0e 

Bd 

0c 

lc 

21 

2768 

8 

a0 

28 

85 

22 

B4 

23 

a9 

2c 

22 

2900 

3 

4e 

2f 

53 

54 

4f 

50 

20 

54 

e6 

2a9B 


a0 

05 

b9 

00 

00 

10 

2e 

c9 

f 6 

2770 

3 

20 

24 

ab 

•a 

00 

84 

c6 

a5 

2c 

2908 

3 

4f 

20 

53 

54 

4f 

50 

20 

43 

45 

2aa0 


d0 

d0 

04 

9B 

4c 

bd 

03 

29 

fe 

2778 

8 

cb 

c9 

40 

f0 

fa 

a9 

43 

a0 

64 

2910 

8 

4f 

55 

4e 

54 

44 

44 

57 

4e 

el 

2aaB 


01 

40 

07 

84 

3f 

a9 

0f 

4c 

Ba 

2780 

8 

28 

85 

22 

84 

23 

a9 

28 

20 

e4 

2918 

3 

3a 

20 

05 

ii 

11 

11 

9B 

20 

02 

2ab0 


69 

49 

aa 

85 

3d 

c5 
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f0 

4e 

278B 

8 

24 

ab 

a2 

09 

86 

02 

a9 

00 

6b 

2920 

3 

20 

20 

20 

20 

20 

20 

20 

20 

20 

2abB 


0a 

20 

7e 

f 9 

aS 

3d 

85 

3e 

88 

2790 

3 

20 

cd 

bd 

20 

a5 

27 

a9 

9d 

B0 

2928 

: 

20 

20 

20 

20 

20 

20 

20 

12 

0C 

2ac0 


4c 

9c 

f 9 

a5 

20 

30 

03 

0a 

31 

2798 

8 

20 

47 

ab 

a6 

02 

ca 

e0 

44 

15 

2930 

3 

ac 

a2 

a2 

a2 

a2 

a2 

a2 

a2 

39 

2acB 


10 

09 

4c 

9c 

49 

88 

10 

ca 

bd 

27a0 

8 

d0 

ea 

4c 

c 1 

27 

a9 

04 

85 

0b 

2938 

3 

a2 

a2 

a2 

a2 

a2 

a2 

bb 

92 

7c 

2ad0 


4c 

9c 

49 

a9 

20 

B5 

20 

aB 

0e 

27aB 

8 

ff 

a2 

cB 

a0 

64 

a5 

cb 

c9 

75 

2940 

3 

20 

20 

20 

20 

20 

20 

20 

20 

40 

2adB 


05 

84 

3f 

20 

93 

43 

30 

la 

cl 

27b0 

8 

3f 

ffl 

0b 

88 

dB 

*7 

ca 

dB 

d5 

2948 

8 

20 

20 

20 

20 

20 

20 

20 

20 

48 

2ae0 


c6 

34 

10 

f 7 

a4 

41 

20 

95 

49 

27bB 

8 

f 2 

c6 

ff 

d0 

ec 

60 

4c 

10 

4a 

2950 

3 

20 

20 

20 

20 

20 

20 

20 

20 

50 

2aeB 


43 

a5 

42 

85 

4a 

06 

4a 

a9 

40 

27c0 

8 

27 

a9 

lb 

a0 

29 

B5 

22 

B4 

e7 

2958 

3 

20 

al 

90 

20 

50 

4c 

45 

41 

70 

2a40 


60 

85 

20 

bl 

32 

85 

?? 

4c 

c? 

27c8 

8 

23 

a9 

7d 

20 

24 

ab 

4c 

ld 

2e 

2960 

8 

53 

45 

20 

57 

41 

49 

54 

20 

39 

2af B 


9c 

f 9 

29 

01 

c5 

3d 

cJ0 

■B 

47 

27d0 

8 

2a 

11 

11 

98 

20 

20 

20 

20 

9b 

2968 

8 

98 

12 

al 

92 

20 

20 

20 

20 

8B 

2b00 


a5 

22 

f0 

12 

38 

fl 

32 

f 0 

f 2 

27d8 

8 

20 

20 

20 

d5 

c3 

c3 

c3 

c3 

bc 

2970 

3 

20 

20 

20 

20 

20 

20 

20 

20 

70 

2b0B 


0d 

49 

ff 

85 

42 


42 

a5 

la 

27e0 

3 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

df 

2978 

3 

20 

20 

20 

20 

20 

20 

20 

20 

78 

2bl0 


3f 

85 

41 

4c 

53 

03 

a2 

04 


27e8 

8 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

e7 

2980 

3 

20 

20 

20 

20 

20 

12 

bc 

92 

67 

2b 1B 


bl 

32 

85 

40 

dd 

d6 

f p 


72 

27f 0 

8 

c3 

c9 

20 

20 

20 

20 

20 

20 

6B 

2988 

: 

a2 

a2 

a2 

a2 

a2 

a2 

a2 

a2 

87 

2b20 


b0 

fa 

bd 

dl 

fe 

85 

43 

Ba 

3S 

27f 8 

: 

20 

20 

20 

20 

20 

20 

20 

20 

48 

2990 

3 

a2 

a2 

a2 

a2 

a2 

12 

be 

92 

5b 

2b 28 


0a 

0a 

0a 

0a 

0a 

85 

44 


34 

2800 

3 

20 

20 

20 

c2 

20 

90 

44 

49 

bb 

2998 

3 

a9 

8d 

85 

4b 

a9 

2a 

85 

44 

4b 

2b30 


00 

lc 

29 

9f 

05 

44 

8d 

00 

25 

280B 

8 

53 

4b 

20 

50 

52 

4f 

54 

45 

Be 

29a0 

3 

a9 

00 

Bd 

bB 

29 

20 

12 

2a 

44 

2b38 


lc 

a6 

3d 

a5 

45 

c9 

40 

f 0 

31 

2810 

8 

43 

54 

2d 

53 

59 

53 

54 

45 

34 

29a8 

3 

a9 

4d 

20 

dd 

ed 

a9 

2d 

20 

dd 

2b40 


15 

c9 

60 

f 0 

03 

4c 

bb 

03 

f H 

2818 

8 

4d 

98 

20 

c2 

20 

20 

20 

20 

d6 

29b0 


dd 

ed 

a9 

57 

20 

dd 

ed 

a9 

d5 

2b4B 


a5 

3f 

18 

69 

03 

85 

31 

a9 

35 

2820 

8 

20 

20 

20 

20 

20 

20 

20 

20 

20 

29bB 

3 

00 

20 

dd 

ed 

a9 

05 

20 

dd 

’4c 

2b 50 


00 

CD 

Ul 

30 

6c 

30 

00 

a9 

60 

17 

2828 

3 

20 

20 

20 

20 

20 

ca 

c3 

c3 

53 

29c0 

: 

ed 

a9 

14 

20 

dd 

ed 

a0 

00 

ld 

2b 58 


85 

20 

ad 

00 

lc 

29 

fr 

8d 

73 

2830 

8 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

24 

29c8 

: 

bl 

4e 

20 

dd 

ed 

C8 

C0 

lf 

22 

2b60 


00 

lc 

a9 

a4 

85 

4a 

a9 

01 

r-1 

2838 

3 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

37 

29d0 

: 

dB 

46 

18 

98 

6d 

bB 

29 

90 

97 

2b 68 


85 

22 

4c 

69 

f 9 

a4 

3f 

h9 

74 

2840 

8 

c3 

c3 

c3 

cb 

20 

20 

20 

20 

13 

29d8 

: 

03 

ee 

bd 

29 

Bd 

bB 

29 

20 

6a 

2b70 


00 

00 

48 

10 

10 

29 

TR 

ns 


2B48 

8 

20 

20 

20 

20 

20 

20 

20 

20 

48 

29e0 

3 

4e 

ed 

18 

a5 

fc 

69 

lf 

90 

68 

2b78 


45 

98 

0a 

69 

06 

85 

32 

98 

40 

2850 

8 

20 

20 

b0 

c3 

c3 

c3 

c3 

c3 

16 

29e8 

3 

02 

e6 

ff 

85 

4e 

ce 

8b 

2a 

47 

2bB0 


18 

69 

03 

B5 

31 

a0 

00 

84 

df 

2858 

8 

c3 

CO 

c3 

c3 

c3 

c3 

c3 

c3 

57 
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3 

d0 

b3 

20 

12 

2a 

a9 

4d 

20 

4a 
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30 

68 

60 

a2 

5a 

20 

00 

cl 

R3 

2860 

8 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

c3 

54 

2948 

3 

dd 

ed 

a9 

2d 

20 

dd 

ed 

a9 

dB 

2b90 


a9 

01 

85 

0a 

a9 

00 

B5 

0b 

23 

2868 

8 

c3 

c3 

c3 

c3 

c3 

c3 

ae 

20 

cb 

2a00 

3 

45 

20 

dd 

ed 

a9 

00 

20 

dd 

61 

2b 98 


a9 

90 

B5 

02 

a5 

02 

30 

f c 

50 

2870 

8 

20 

20 

20 

20 

20 

20 

20 

20 

70 

2a08 

3 

ed 

a9 

06 

20 

dd 

ed 

20 

fe 

lb 

2ba0 


60 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

00 

28/8 

8 

20 

20 

c2 

20 

43 

4f 

50 

59 

00 

2a 10 

; 

ed 

60 

a9 

08 

20 

0c 

ed 

a9 

06 












2880 

8 

52 

49 

47 

48 

54 

20 

31 

39 

cf 

2a 18 

- 

64 2B b9 

ed 

60 

a9 Z- 

Ö 5 

3e 












2888 

8 

38 

36 

20 

42 

59 

20 

44 

2e 

30 

2a 20 

- 

02 

a5 

02 

Bd 

e0 

71 

20 

ab 

98 

Listing 

3. »PROTECT2«, 

zweiter Teil 

2890 

8 

49 

52 

49 

4f 

4e 

20 

c2 

20 

70 

2a28 

3 

71 

c6 

02 

dB 

44 

20 

98 

29 

9c 

des Schutzprogramms 






PEEK(2) erfahren Sie nun das Ergebnis des Tests: Enthält 
diese Adresse den Wert 127, so handelt es sich um ein Origi¬ 
nal. 255 bedeutet, daß die Diskette kopiert wurde. 

Achtung: 

1. Beim erstmaligen Starten der Routine wird noch keine 
Abfrage vorgenommen, sondern lediglich die Vergleichs¬ 
werte in den Block 16, Track 35 geschrieben. Sie erkennen 
das an einer Null in der Speicherstelle 2 des C64. 

2. Vor jedem (!) Starten der Routine muß sie neu von der 
Diskette geladen werden. 

3. Ein Punkt, den Sie sich immer vor Augen führen sollten: 
Durch den Kopierschutz wird Ihre Diskette zwar so gut wie 
nicht kopierbar, aber nicht »unknackbar«. Das heißt, Sie müs¬ 
sen die Abfrage in Ihrem Programm so gut wie möglich vor 
fremden Augen schützen, um einen wirkungsvollen Schutz 
zu erreichen. 

4. Die markierten Blöcke auf den Spuren 1 bis 6 und der 
Block 35/16, der die Zeitwerte enthält, sind aus Sicherheits¬ 
gründen für den Schutzmechanismus in der BAM nicht 
belegt! Das heißt, daß sie aus Versehen durch andere Pro¬ 
gramme überschrieben werden könnten. Wenn Sie also eine 
präparierte Diskette mit Programmen füllen möchten, müs¬ 
sen Sie zuerst die Blöcke in der BAM belegen. Dabei hilft 
Ihnen Listing 4. Wenn die Diskette fertig ist, sollten Sie die 
Blöcke durch ein Validate wieder freigeben. 

Wie baut man nun das Abfragefile in ein Hauptprogramm 
ein? Eine simple Variante ist es, das File von einem Basic- 
Lader aus nachladen zu lassen. Im Hauptprogramm sollten 
dann an verschiedenen Stelle einige Speicherstellen des 
Abfrageprogramms überprüft werden. Damit verhindern Sie, 
daß das Programm einfach durch Weglassen der Laderoutine 
kopiert werden kann. 


Eine weitere, wirklich geschickte Methode ist es, die bei¬ 
den Echtzeituhren der CIAs des C64 (Adressen 56328 bis 
56331 und 56584 bis 56587 im BCD-Förmat) vom Ladepro¬ 
gramm aus mit verschiedenen Uhrzeiten zu belegen. Die Dif¬ 
ferenz merken Sie sich irgendwo im Speicher. Versucht nun 
jemand, das Ladeprogramm einfach wegzulassen, entfällt 
iogischerweise auch das Stellen dieser Uhren. Im Hauptpro¬ 
gramm können Sie dann darauf entsprechend reagieren. 
Dies ist wahrscheinlich auch die einzige Möglichkeit, die 
berühmt-berüchtigten Kopiermodule auszutricksen. Denn 
diese können den gesamten Speicherinhalt des C64, nicht 
jedoch den Inhalt der Portbausteine speichern. 

Nun folgen noch einige Informationen zum Programm: 
$71 DD: Hier befinden sich einige wichtige Informationen 
über die Abfragedaten. 

- Track und Sektor des Blockes, auf den die Abfragedaten 
gespeichert werden (normal: 35/16) 


1 PRINT"tCLRJDISKETTE MIT SCHUTZ EINLEGEN 
UND TASTE T2SPftCE > DRUECKEN" 

<009> 

2 P0KE 198,0:WAIT 198,1:P0KE 198,0 

<105> 

3 OPEN 1,8,15 

< 171 > 

4 TR=1:SE=0:GOSUB 12 

<052> 

5 FOR 1=1 TO 6 

<234> 

6 TR=I:SE=I:GOSUB 12 

<158> 

7 NEXT 

<017> 

8 TR=35:SE=16:GOSUB 12 

<237> 

10 CLOSE 1 

<021 > 

11 5 

<243 > 

12 PRINT#1,"B—A 0",TR,SE 

<053> 

13 RETURN 

<071 > 

Listing 4. »BAM NEU«, belegt in der BAM die vom Kopier- 

schütz reservierten Blöcke 
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- Track, auf dem die erste Abfrage vorgenommen wird 

- Tracks, die formatiert und mit einer Abfragemarke verse¬ 
hen werden sollen. 

Die Abfrageroutine 


Für den Profi soll nun der genaue Ablauf der Abfrageroutine 
erklärt werden. Diese ist im Programm »protectl« enthalten 
und steht nach dem Laden des kompletten Systems ab 
Adresse $7228 im Speicher des C 64. Nach dem Start wird 
sie zum Diskettenlaufwerk in den RAM-Bereich ab $0500 
gesandt. Der Einsprungpunkt liegt bei $72B2 ($058A). 

Als erstes wird der Durchlaufszähler in Adresse $35 in der 
Floppy auf Null gesetzt und Block 0 von Spur 1 der fertig prä¬ 
parierten Diskette gelesen. Er enthält die komplette Routine 
zum Wechseln einer Spur ohne automatischem Lesen der 
Sync-Markierung. Sie wird im 1541-Speicher ab Adresse 
$0300 abgelegt. Diese Routine ist aus dem Markt & Technik- 
Floppybuch, Seite 334, entnommen. 

Sollte beim Einlesen dieses Blocks ein Fehler auftreten, 
wird in der Floppy sicherheitshalber ein Reset ausgeführt 
(JMP $EAA0). 

Als erstes wird nun der Schreib-/Lesekopf auf Track 1 
gesetzt (hier steht zuerst ein LDA # $00, das aber kurz nach 
dem Start in ein LDA # $01 geändert wird). Gleichzeitig wird 
der Laufwerksmotor eingeschaltet und zum Interrupt- 
Programm ab Adresse $7228 ($0500) gesprungen. Dort 
angelangt, wird der Inhalt der Adresse $1B geprüft. Beim 
ersten Durchlauf enthält sie den Wert Null. Das Programm 
läuft also ohne zu verzweigen weiter. Die nächsten drei 
Befehle laden den Interrupttimer mit dem neuen Wert $FA 
(Normalwert: $3A) zur Erhöhung des Wirkungsgrades. 


Nun folgt das eigentliche Kernstück der Abfrageroutine: 
Zuerst werden die Speicherstellen $0 A und $0B mit den nöti¬ 
gen Werten für Track und Sektor beschrieben. Danach 
scheint sich das Programm in einer Endlosschleife zu befin¬ 
den (SEC:BCS...). Diese Annahme ist falsch, denn der Aufruf 
der Routine ab Adresse $0300 bewirkt ja ein Wechseln des 
Tracks. 

Ist der Wechsel nach mehrmaligem Durchlauf der »Endlos¬ 
schleife« erfolgt, wird an den Pufferanfang verzweigt 
($0500). Da aber nun die Adresse $1B einen höheren Wert 
besitzt, verzweigt das Programm zur Adresse $0529 
(=$7251 im Speicher des C 64). Dort werden zunächst die 
Rücksprung-Bytes des »JSR $0300« vom Stapel geholt 
(PLA:PLA) und die erwähnte Marke auf dem Track gesucht. 
Dabei muß, wie schon erwähnt, auf die Werte $55 und $AA 
geprüft werden. Jetzt wird der Trackwert neu gesetzt (in 
unserem Fall um eins erhöht) und zur Adresse $051E ver¬ 
zweigt (C64: $727A). Dort beginnt der eigentliche Teil der 
Zeitmessung: Der Timer wird neu gestellt und die gleiche 
Prozedur zum Suchen der Marken wiederholt. Ist die Marke 
gefunden, merkt sich das Programm den aktuellen Timer- 
Wert ab $0400. Die folgenden Befehle setzen die Interrupt- 
Zeit auf Normalwert, schalten den Laufwerksmotor aus, set¬ 
zen den Stackpointer zurück und verlassen schließlich die 
Interruptroutine. 

Wieder bei Adresse $05B5 (C64: 72DD) angelangt, wer¬ 
den die Werte der anzufahrenden Tracks um eins erhöht. Das 
Programm wird insgesamt noch sechsmal aufgerufen. Die 
daraus resultierenden Werte sind danach ab Adresse $0400 
zu finden. Zum Schluß löscht sich das Programm durch Über¬ 
schreiben selbst und endet mit einem RTS. 

(Dominik Irion/tr) 
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C64 


32 Funktionstesten 


Das endgültige Wort in Sachen »Funktionstasten¬ 
belegung« ist gesprochen: Mit dem Programm 
»key-32« können Sie insgesamt 32 Texte mit je 31 
Zeichen über die Funktionstasten abrufen. 


N un werden sich manche sicher fragen, wie man denn 
mit vier Tasten (<Fl >, <F3>, <F5> und <F7>) 
32 Funktionen abrufen können soll. Diese enorme Viel¬ 
zahl wird durch Kombination der vier Funktionstasten des 
C64 mit den Tasten <SHIFT>, <Commodore> und 
<CTRL> erreicht. 

Zuerst einmal müssen Sie allerdings Listing 1 und Listing 
2 abtippen. Beachten Sie hierbei bitte unsere Eingabehin¬ 
weise auf Seite 92. 

Am Anfang wird das Basic-Programm »key-32« geladen 
und mit RUN gestartet. Das Maschinenprogramm wird auto¬ 
matisch nachgeladen. Nun erscheint die Eingabemaske mit 
dem Eingabefeld. Die Eingabefolge wird auf dem Bildschirm 
erklärt. Hier jedoch zusätzlich einige Beispiele. 

Zuerst wird eine Zahl von 1 bis 4 eingegeben: 

eine 1 für <F1 > 

eine 2 für < F3 > 

eine 3 für < F5 > 

eine 4 für < F7 > 

Danach eine Zahl von 0 bis 7 für die Sondertasten: 
eine 0 für keine Sondertaste 
eine 1 für <SH1FT> 
eine 2 für <Commodore> 
eine 3 für cCommodore + SHIFT> 
eine 4 für <CTRL> 
eine 5 für <CTRL + SHIFT > 
eine 6 für <CTRL + Commodore> 
eine 7 für <CTRL + Commodore + SHIFT> 

Will man zum Beispiel eine Belegung der Tastenkombina¬ 
tion <F3> mit < Commodore > und < SHIFT> erreichen, 
so gibt man die Zahl 23 ein. Dieses Feld mit den beiden Zah¬ 
len wird revers dargestellt. Eine eventuelle Falscheingabe 
wird angezeigt und verhindert. 

Nun gibt es zwei Möglichkeiten, um fortzufahren. Entweder 
gibt man direkt nach den zwei Zahlen einen Klammeraffen 
(@) ein, oder man tippt für diese Tastenkombination den 
Belegtext mit einem abschließenden Klammeraffen ein. 
Ersteres listet die Tastenbelegung (man kann also sehen, ob 
die Taste belegt ist). Die zweite Möglichkeit speichert den 
eingegebenen Text mit der definierten Tastenkombination. 

Beispiel: Belegung der < Fl >-Taste ohne Sondertaste. 
Belegen: 10load"$",8@ 

Listen : 10@ 


Mit der Cursor-Taste bewegt man sich im Eingabefeld. Die 
< — >-Taste löscht die angezeigte Eingabe (nicht aber die 
schon gespeicherte Tastenbelegung) und setzt den Cursor 
an den Textbeginn. 

Will man die gesamte Tastenbelegung betrachten, drückt 
man <£>. Dies zeigt aus Platzgründen nur die ersten 16 
Tasten. Drückt man nun < 2 >, so kann man das zweite Blatt 
mit den Tasten 17 bis 32 betrachten. Das Tippen der Taste 
<H> führt uns wieder in das Hauptprogramm. Will man die 
fertige Tastenbelegung auf Diskette speichern, so verwendet 
man die Tasten <SHIFT+£>. Dadurch wird das eigentliche 
Anwenderprogramm (m-key-32) erzeugt. Der Druck-auf die 
Tasten <CTRL> und < — > ruft dieses Programm auf. Die 
neue Bildschirmanzeige und der Piepston bei Tastendruck 
geben die Funktionsbereitschaft an. 

Für den Gebrauch (Tasten wurden schon belegt) 

Das Maschinenprogramm wie folgt laden: 

LOAD"M-KEY-32",8,1 

Danach den Befehl NEW < RETURN > eingeben und das 
Programm durch SYS 52000 starten. 

Programmhinweise 

Die Programmfunktionen werden durch die REM- 
Anweisungen in den Listings ausgiebig beschrieben. Die 
Variablen haben folgende Bedeutung: 

A$,B$ = Ein- und Ausgabevariablen 
SP = Cursorspalte 

CR = Zeiger, der die zur Eingabe anstehende Bild¬ 
schirmposition anzeigt 
FR - "üinktionstastenrubrik (-spalte) 

SR = Sondertastenrubrik (-spalte) 

I = Schleifenzähler 

T1.T2 = Die ersten zwei Werte im Eingabefeld (F+S) 

Kf = Klammeraffenabfrage im dritten Eingabefeld 
FZ.SZ = Funktionstastenzahl (-wert) Sondertasten (-zahl) 
PB = POKE und PEEK Basisadresse des Tasten¬ 
textes 

PE = POKE und PEEK Endadresse des Tastentextes 
ZE = Zeichen in dieser Adresse 

FL = Flag für Textende 

SA = Startadresse (-position) des Ausgabetextes 
LO = Schleife für 31 einzelne Zeichen des Ausgabe¬ 
textes 

Hl = Schleife für 16 verschiedene Tasten 

PS = POKEstelle (-position) 

PW = PEEK-und POKEwert 

Soviel zu dem Basic-Programm key-32. 

Das Maschinenprogramm m-key-32 belegt den Speicher 
von SCB20 bis CFFF. Im Bereich $CC00 bis SCFFF sind die 
Inhalte der einzelnen Tasten abgelegt. 

(Siegbert Werner/tr) 


10 REM -KEY 32- <003> 

20 REM COPYRIGHT: SIEGBERT WERNER <192> 

30 REM BEETHOVENSTR. 59 SIEGEN 31 <022> 

40 POKE 53280,0:POKE 53281,0:POKE 646,15 <066> 

42 A=A+1 < 121 > 

44 IF A<2 THEN LOAD"M-KEY-32",8,1 <147> 

50 SP=3:REM-CURSOR IN SPALTE 3 <151> 

60 GOSUB 580:REM BILDSCHIRMAUFBAU <1B0> 

70 GOTO 190:REM-CURSOR SETZEN <020> 

78 REM-TASTATURABFRAGE <127> 

80 POKE 198,0:WAIT 198,1 <052> 


90 GET A* <044> 

97 REM-UNERWUENSCHTE TASTE? <000> 

98 REM-Z.B. :RETURN,HOME,ECT. <044> 

99 REM-DANN NICHT REAGIEREN <133> 

100 IF ASC(A*)=17 OR ASC(A*>=145 OR ASCCA* 

>=14B OR ASC<A*>=20 OR ASC(A*>=147 OR 
ASC<A*>=19 THEN 190 <239> 

105 IF ASC(A*)=13 THEN 190 <119> 

107 REM-ABFRAGE DER ERLAUBTEN <064> 

108 REM-TASTEN <065> 

109 REM-CURSOR LINKS-TASTE? <021 > 


Listing 1. »key-32«, das Basic-Programm zum Belegen der Funktionstasten 
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na 

120 

129 

130 

135 

137 

140 

150 

160 

170 

180 

189 

190 
200 
210 
218 

219 

220 
230 

238 

239 

240 
250 
260 
270 

279 

280 

289 

290 
300 
310 
320 
330 

339 

340 
350 

359 

360 
370 

380 

382 

384 

388 

390 

398 

399 

400 
402 
404 
408 
410 
420 

429 

430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 

579 

580 
590 

600 

610 

620 

630 


IF ASC(A*>=157 THEN SP=SP-2 

IF SP<2 THEN SP=2:REM—CURSQRFELDANFANG 

REM-CTRL MIT + TASTE? 

IF ASC(A*)=6 THEN G8T8 340 :REM PRG-S 

TART! 

IF A*="£"THEN 880 
IF A*="£"THEN 1810 
IF A*="+"THEN GOTO 290 
PRINT A* 

IF A*="@"THEN GOSUB 400 

IF SP=36 THEN 190:REM-CURSORFELDENDE 

SP=SP+1:REM-CURSOR EINS RECHTS 

REM-CURSOR SETZEN 

POKE 211,SP 
POKE 214,23 
SYS 58732 

REM- 

REM- 


-SETZEN DES ZEIGERS 
-AUF DAS EINGABEFELD 


CR=1024+ (PEEK (214) +1) «40+PEEK (211 > 
POKE CR,30:POKE CR-1,67:POKE CR+1,67 

REM-INVERTIEREN DER 

REM-ZAHLEN FUER F+STASTE 

FR=PEEK<1947):SR=PEEK(1948) 

IF FR<=127 THEN FR=FR+12B 
IF SR< = 127 THEN SR=SR+12B 
POKE 1947,FR:POKE 1948,SR 

REM-NEUE TASTE ABFRAGEN 

GOTO 80 
REM- 


-EINGABEFELD LOESCHEN 

POKE CR,67:POKE CR-l,67:POKE CR+1,67 

SP=3 

A*=" " 

FOR 1=0 TO 33:POKE 1947+1,32:NEXT I 
GOTO 190 

REM-MASCHINENPRG. -START ! 

:A$=" “ 

SYS 52000:REM-IRQ AUF NEUE ROUTINE! 

REM-BEREITSCHAFTSBILD 

PRINT"TCLR>" 

PRINT"C14SPACEJK E Y<3SPACE>3 2C13SPAC 
E>" 

PRINT”- 


<061 > 
<235> 

< 142> 

<056> 

<034> 

< 196> 
<084> 
<072> 
<105> 
<067> 
<024> 
<170> 
<234> 

< 167> 
<067> 

< 131 > 
<111> 
<053> 
<157> 

< 193> 
<036> 

< 179> 

< 115> 

< 146> 
<255> 
< 100 > 
<004> 
<071 > 
<031 > 

< 142> 
<0B5> 

< 145> 

< 148> 
<092> 

< 121 > 
< 135> 
< 020 > 
<094> 


POKE 211,0:POKE 214,23:SYS 58732 
PRINT"- 


POKE 211,0:POKE 214,2:SYS 58732 
END 

REM-FUER F+S NUR ZAHLEN 


REM- 


-ERLAUBEN! 


T1 =PEEK < 1947 ) -128: T2=PEEK < 1948) -128 

IF Tl<49 OR TI>52 THEN 840 

IF T2<48 OR T2>55 THEN 840:REM-FEHLER 

REM-SPEICHERN? - ZEIGEN? 

KF=PEEK(1949) 

IF KFO0 THEN 510 

REM-KEYBELEGUNG ZEIGEN 

FZ=PEEK(1947):SZ=PEEK(1948) 

PB=5196B+(FZ—176)*256+(SZ-176)*32 
FOR 1=0 TO 31:PE=PB+1:ZE=PEEK < PE) 

IF ZE=0 THEN 490:REM—TEXTENDE=®=0 
POKE 1949+1,ZE:REM-ZEICHENAUSGABE 
NEXT I 
SP=4:RETURN 

REM-KEYBELEG. SPEICHERN 

FZ=PEEK <1947):SZ=PEEK <1948) 

PB=51968+(F Z-176)*256+(SZ-176)*32 

FOR 1=0 TO 31:PE=1949+1:ZE=PEEK(PE) 

POKE PB+I.ZE 

IF ZE=0 THEN 290 

NEXT I 

GOTO 290 

REM-BILDSCHIRMAUFBAU 

PRINT"CCLR,RVSON,40SPACE>“; 

PRINT"{RVSON,14SPACE>K E YC3SPACE>3 2{ 
15SPACE >"; 

PRINT"{RVSON,40SPACE,RVOFF >"; 

PRINT 

PRINT" ,u.c.c.gc.gggc.i. ilECCCCCCfiBC C BCBa c cc C 
PRINT" 2F-TASTEN2 SS-TASTENCI7SPACE>3 


<106> 

<227> 

< 110 > 

< 022 > 

< 13B> 
<023> 
<032> 
<067> 

< 113> 
<249> 
<007> 
<238> 
<226> 
<045> 

< 181 > 

< 103> 
<205> 
<097 > 
<068 > 
<054> 
<065> 
<213> 
<005> 

< 1B5> 
<038> 

< 197> 
<023> 

< 136> 

< 142> 
<008> 
<095> 

<072> 

< 107> 
<204> 

<1B8> 

<062> 


640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

785 


PRINT“ 2={7SPACE>2 2=<24SPACE>2 
PRINT" 21= F1+F22 33= OHNE SONDERTASTE 
<6SPACE>2 "5 

PRINT" 22= F3+F42 21= SHIFT-C17SPACEJ2 

“S 


23= F5+F62 22= COMMODORE{13SPAC 


SHIFT+COMMODORE{ 


CTRLC18SPACEJ2 


SHIFT+CTRL { 


PRINT" 

E>2 "; 

PRINT" 24= F7+FB2 23= 

7SPACEJ2 "5 

PRINT" JC- gCC.CC.CqK 34: 

5 

PRINT" {3SPACE>2<8SPACE>25= 

12SPACE>2 "; 

PRINT"{3SPACE >2<BSPACE >26= COMMODORE+C 
TRL(8SPACE >2 ”| 

PRINT" (3SPACE> fltgggcggCT T7= SHIFT+COMMO 
DORE+CTRL{2SPACE >2 "; 

PRINT"<5SPACE>F2{7SPACE> JgcCCCCCCCgcCC 
CCCCCCCCCCCCK "- 

PRINT" C3SPACE >25 {7SPACE > .u.c.gc_gc cgc.c.cgc.c 

P.C.C.C.C.C.C.C.C.C.C.C.I. 

T @ BEENDEN2 "; 

PRINT"<3SPACE>222<6SPACE>2NUR 8 HINTER 
F+S= AUSGABE2 "5 

PRINT"{3SPACE>222<6SPACE>2CTRL/+ =STAR 
T{2SPACE>£= KEYLIST2 "j 
PRINT"{3SPACE >222<6SPACE >2SHIFT/£=SAVE 
N<2SPACE>+= L0ESCH.2 
PRINT' 


790 PRINT" .uc+++.c.c.c.c.c.cc.c.c.c.c.c.c.c.c.c.c.c.c.c.c. c .c.c.cg 

.C.C.C.C.C.C.I." 

800 PRINT” £{36SPACE>£" 

810 print" ■J.ggcggggcgcggggcg.cggcgi 


820 RETURN 

830 REM- 

831 REM- 


-EINGABEFEHLER 
-KENNTLICH MACHEN! 


840 FOR 1=0 TO 31:READ Q:POKE 1949+1,Q:NEX 

<172> 

845 POKE CR,67:POKE CR-1,67:POKE CR+1,67 
850 RESTORE:SP=3:GOTO 190 

860 DATA 14,21,18,32,6,5,19,20,7,5,12,5,7, 
20,5,32,26,1,8,12,5,14 
870 DATA 32,9,14,32,6,43,19,33,32,32 

879 REM-KEYLIST ING BLATT 1 

880 GOSUB 900:SA=52224:GOSUB 1600 


890 GOTO 1360 
899 REM- 


-KEYLISTING BILD 


900 PRINT"{CLR,RVSON,40SPACE>"; 

910 PRINT"{RVSON,2SPACE>K E Y{3SPACE>3 2{3 
SPACE >-BLATT 1-{2SPACE >WERNER—MADE{2SP 
ACE>"; 

920 PRINT"{RVSON,40SPACE,RVOFF >"; 

930 PRINT 

940 PR I NT " {4SPACE > T.cgcS H I FT {5SPACE > 1 / 2=S 
EITENWAHL“ 

950 PRINT" {4SPACE> At_C_CC 0MMQD0RE H{4SPACE>= 
RUECKSPRUNG" 

960 PRINT" {4SPACE> 22t_CC TRL {6SPACE>CTRL/ +=S 
TART HAUPTPRG."; 

970 PRINT"{4SPACE>222" 

1000 PRINT" F1+KHM=. 


1010 

PRINT" 

Fl+ÄMH-. 

1020 

PRINT" 

Fl+HäH-. 

1030 

PRINT" 

Fl+aaü“. 

1040 

PRINT" 

Fl+HHS-. 

• 1 

1050 

PRINT" 

Fi+aaa-. 

1060 

PRINT" 

Fl+KB.B-. 

1070 

PRINT" 

F 1+0BO—. 

1080 

PRINT" 

F2+MHH-. 

•1 


< 002 > 

< 138> 
<160> 
<067> 

< 197> 

< 187> 
<061 > 
< 220 > 

< 139> 

< 147> 
<056> 
<246> 

< 175> 

< 146> 

<08B> 

<214> 

<049> 

<092> 

<071 > 

< 116> 
<076> 

< 151 > 

<249> 

<078> 

<18B> 

< 179> 
<20B> 

< 109> 

< 15B> 
<052> 
<083> 

< 161 > 

<232> 

< 173> 

<014> 

< 134> 
<069> 

<007> 

< 140> 

< 222 > 

<229> 

<236> 

<245> 

<252> 

<003> 

< 010 > 

<017> 

< 080 > 


1090 PRINT" F2+£HH=. 
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C 64 


liaa 

1110 

1120 

1130 

1140 


1150 

1152 

1350 

1360 

1370 

1380 

1390 

1400 

1405 

1410 

1498 

1499 

1500 
1502 


PRINT" F2+üäH= 


PRINT" F?+ BBM = 
PRINT" F2+ MHB- 


PRINT" F2+äHfi=. 

M 

PRINT" F2+HSS=. 


PRINT“ 


RETURN 
REM- 


F2+aaa= 


-WELCHE AUSWAHL TASTE? 


POKE 198,0:WAIT 198,1 
BET B* 

IF ASC(B*)=6 THEN 340 
IF B*="H"THEN 50 
IF B*="1"THEN 880 
IF B*="2"THEN 1500 
GOTO 1360 

REM-KEYLISTINB BLATT2 


REM- 


-AENDERUNB D. BILDES 


POKE 1087,178 
FOR 1=0 TO 7:POKE 1346+1*40,53:NEXT I <080> 


<087> 

1504 


1507 

<094> 

1508 


1510 

<101> 

1599 


1600 

<108> 

1610 


1620 

< 115> 

1630 


1640 

< 122> 

1650 

<090> 

1660 

< 194> 

1670 

< 144> 

1680 

<062> 

1690 

<062> 

1700 

<215> 

1800 

<194> 

1810 

< 143> 

1820 

<231 > 

1830 

<064> 

1840 

<249> 


<068> 

1950 

<057> 

1960 


FOR 1=0 TO 7:POKE 1666+1*40,55:NEXT I <202> 

REM-LESEADRESSE AENDERN <074> 

SA=52736:GOSUB 1600 <045> 

GOTO 1360 < 164 > 

REM-AUSGABESCHLEIFE <254> 

FL=1:FOR HI=0 TO 15 <072> 

FOR LO=0 TO 30 <249> 

PW=PEEK < SA+HI*32+L0) <049> 

PS=1352+HI«40+LO <137> 

IF PW=0 THEN FL=0 <247> 

IF FL=0 THEN PW=46:REM PUNKTE NACH TE 
XT <207> 

POKE PS,PW <225> 

NEXT LO <242> 

FL=1 < 104 > 

NEXT HI <134> 

RETURN <234> 

REM SAVEN DER BELEGUNG <076> 

OPEN 1,8,1,"@:M—KEY—32" <244> 

A*=CHR*(32):B*=CHR*(203) <216> 

PRINT#1,A*;B*; <037> 

FOR 1=52000 TO 53248:A*=CHR*(PEEK(I>) 
:PRINT#1,A*;:NEXT I <042> 

CLOSE 1 <183> 

GOTO 50:REM-ZURUECK ZUM PRB. <047> 


Listing 1. »key-32«, das Basic-Programm zum Belegen der Funktionstasten (Schluß) 


Name 

: 

m-key- 

32 




cb20 d001 

ccb8 

3 

00 

29 

10 

fe 

08 

20 

65 

cc 

20 

ce60 


3f 

10 

05 

05 

0b 

28 

34 

33 

b3 












CCC0 


0C 

0f 

ei 

04 

22 

00 

bc 

02 

2e 

ce68 


29 

2b 

10 

05 

05 

0b 

28 

34 

7d 

cb20 

: 

a9 

00 

8d 

20 

d0 

8d 

21 

d0 

d0 

CCC8 


50 

lf 

3B 

ad 

a9 

02 

ed 

bd 

49 

ce70 


34 

29 

2a 

32 

35 

36 

00 

aa 

64 

cb28 

: 

20 

44 

e5 

a9 

04 

85 

ff 

a9 

d9 

ccd0 


02 

8d 

bl 

02 

ad 

aB 

02 

ed 

49 

ce78 


81 

fb 

cl 

fb 

dB 

ee 

20 

67 

ba 

cb30 

: 

0e 

85 

fe 

a9 

3c 

85 

fc 

a9 

2d 

ccd8 


be 

02 

0d 

bl 

02 

d0 

67 

ad 

b0 

ceB0 


3f 

10 

05 

05 

0b 

28 

34 

35 

d7 

cb3B 

: 

cb 

85 

fd 

d0 

39 

2d 

Ob 

05 

8f 

cce0 


3f 

22 

36 

34 

27 

05 

12 

22 

6c 

ce88 


29 

2b 

10 

05 

05 

0b 

28 

34 

9d 

cb40 

: 

19 

20 

20 

33 

32 

2d 

a0 

09 

f 9 

cceB 


00 

30 12 

4e bc 



.. i 

08 

ce90 


36 

29 

2a 

32 

35 

36 

00 

a9 

84 

Cb48 

: 

bl 

fc 

91 

fe 

88 

d0 

f 9 

a9 

06 

ccf 0 


ae 

ae 

02 

9a 

a9 

cc 

48 

o9 

3f 

ce98 


21 

20 

d2 

ff 

20 

23 

c3 

a0 

e9 

Cb50 

s 

ff 

8d 

06 

d4 

8d 

18 

d4 

a9 

72 

ccf 8 

3 

70 

48 

4c 

ba 

cd 

20 

65 

CC 

04 

cea0 


3f 

22 

03 

Bf 

10 

19 

12 

09 

b7 

cb58 


00 

8d 

05 

d4 

a9 

0d 

Bd 

01 

36 

cd00 


08 

01 

0C 

0c 

0f 

20 

36 

34 

41 

cea8 


07 

08 

14 

3a 

20 

13 

09 

05 

c9 

cb60 

: 

d4 

a9 

0a 

8d 

00 

d4 

78 

a9 

19 

cd0B 


27 

05 

12 

20 

06 

12 

05 

01 

42 

ceb0 


07 

02 

05 

12 

14 

20 

17 

05 

e5 

cb68 

: 

73 

Bd 

14 

03 

a9 

cb 

8d 

15 

61 

cd 10 


0b 

13 

21 

00 

20 

08 

09 

10 

74 

ceb8 


12 

Be 

05 

12 

22 

00 

cl 

fb 

76 

cb70 

: 

03 

58 

60 

a5 

cb 

c9 

40 

d0 

la 

cdlS 


10 

05 

0c 

00 

39 

30 

31 

32 

ec 

cec0 


13 

19 

13 

36 

34 

37 

33 

38 

26 

cb78 

: 

07 

a9 

00 

8d 

04 

d4 

f0 

lb 

e6 

cd20 


0C 

09 

13 

14 

00 

02 

85 

fb 

16 

cecB 


20 

20 

3a 

12 

05 

0d 

20 

20 

43 

cbB0 


48 

a9 

21 

8d 

04 

d4 

6E 

c9 

b3 

cd2B 

3 

86 

fc 

20 

49 

c3 

20 

cb 

c4 

54 

ced0 


12 

05 

13 

05 

14 

00 

3c 

cf 

9c 

cb88 

: 

5c 

f0 

10 

c9 

03 

f0 

0f 

c9 

21 

cd30 

3 

20 

c7 

c5 

20 

e4 

ff 

f0 

fb 

b3 

ced8 


a9 

14 

85 

fb 

a9 

02 

05 

ff 

2b 

cb90 

s 

04 

^0 

ob 

c9 

05 

fa 

07 

c9 

90 

cd38 

3 

c9 

4a 

d0 

0a 

a9 

01 

Bd 

bc 

ee 

cee0 


10 

4f 

35 

33 

32 

38 

30 

2c 

4a 

cb9B 

s 

06 

f0 

03 

4c 

31 

ea 

aa 

bd 

fl 

cd40 

3 

0f 

10 

05 

0e 

31 

2c 

34 

3a 

14 

cee8 


30 

3a 

10 

4f 

35 

33 

32 

38 

4a 

cba0 

s 

ed 

cb 

85 

ff 

ad 

Bd 

02 

aa 

79 

cd48 


03 

0d 

04 

31 

3a 

0c 

09 

13 

47 

cef 0 


31 

2c 

30 

3a 

10 

4f 

36 

34 

47 

cba8 

: 

bd 

+ 4 

cb 

85 

f e 

a5 

d6 

aa 

51 

cd50 

3 

14 

00 

a9 

40 

d0 

0a 

20 

f 2 

9a 

cef 8 


36 

2c 

37 

00 

f 2 

cf 

85 

fb 

ce 

cbb0 

s 

20 

ff 

e9 

a9 

00 

85 

d3 

20 

3b 

cd5B 

3 

cd 

08 

6B 

Bd 

aa 

02 

a9 

80 

57 

cf 00 


0f 

50 

31 

2c 

38 

2c 

31 

35 

ld 

cbbS 

3 

6c 

e5 

a5 

d6 

85 

2B 

a9 

28 

ec 

cd60 

3 

06 

09 

0e 

04 

00 

0C 

00 

20 

90 

cf 0B 


2c 

22 

13 

3a 

20 

20 

20 

20 

15 

cbc0 

: 

85 

71 

a9 

00 

85 

29 

85 

72 

05 

cd68 

3 

49 

c2 

20 

65 

cc 

ad 

bc 

02 

f 8 

cf 10 


20 

20 

20 

20 

20 

20 

20 

22 

14 

cbc8 

3 

20 

57 

b3 

86 

fc 

84 

fd 

a9 

91 

cd70 

3 

f0 

37 

a2 

00 

ad 

n 

d0 

a8 

9c 

cf 18 


3a 

03 

0C 

4f 

31 

00 

fb 

BB 

d5 

cbd0 

3 

04 

18 

65 

fd 

85 

fd 

a0 

00 

c4 

cd7B 

3 

29 

10 

f0 

10 

9B 

29 

ef 

8d 

95 

cf 20 


0f 

50 

31 

2c 

38 

2c 

31 

35 

3d 

cbdB 

8 

bl 

f e 

c9 

00 

f0 

09 

91 

fc 

12 

cdB0 

3 

04 

15 

0d 

10 

00 

0C 

ca 

dB 

81 

cf 2B 


2c 

22 

0e 

3a 

20 

20 

20 

20 

f 4 

cbe0 

8 

c8 

C0 

20 

f0 

02 

d0 

fl 

98 

ce 

cdB8 

3 

fd 

BB 

d0 

fa 

78 

a9 

47 

8d 

6a 

cf 30 


20 

20 

20 

20 

20 

20 

20 

20 

30 

cbe8 

8 

85 

d3 

20 

6c 

e5 

d0 

ac 

ea 

Sa 

cd90 

8 

04 

de 

Se 

05 

de 

ad 

0e 

de 

74 

cf 3B 


22 

3a 

03 

0c 

4f 

31 

00 

a9 

8c 

cbf 0 

: 

cf 

CC 

cd 

ce 

00 

20 

40 

60 

35 

Cd98 

3 

29 

80 

09 

11 

8d 

0e 

de 

a9 

76 

cf 40 


10 

4f 

32 

31 

31 

2c 

20 

20 

e0 

cbf 8 

3 

80 

a0 

C0 

e0 

00 

8b 

85 

99 

ba 

cda0 

: 

01 

15 

14 

0f 

31 

30 

2c 

31 

bb 

cf 48 


20 

3a 

10 

4f 

32 

31 

34 

2c 

49 

CC00 

3 

0C 

0* 

01 

04 

22 

24 

22 

2c 

79 

cda8 

3 

30 

00 

ae 

02 

03 

78 

ad 

bb 

57 

cf 50 


20 

20 

20 

3a 

13 

19 

13 

35 

80 

cc08 

3 

38 

00 

Bd 

02 

aa 

bd 

f 4 

cb 

eB 

cdb0 

3 

02 

ae 

ba 

02 

8d 

14 

03 

Be 

9b 

cf 5B 


38 

37 

33 

32 

00 

c7 

c9 

20 

eS 

cc 10 

8 

85 

fe 

a5 

d6 

aa 

20 

ff 

e9 

dB 

cdb8 

3 

15 

03 

ad 

aB 

02 

48 

ad 

a9 

3c 

cf 60 


13 

19 

13 

31 

36 

le 

33 

2a 

60 

cclB 

3 

a9 

00 

85 

d3 

20 

6c 

e5 

a5 

e5 

cdc0 

8 

12 

05 

0e 

15 

0d 

02 

05 

12 

94 

cf 68 


00 

fe 

7B 

a9 

03 

85 

01 

a2 

e0 

cc20 

s 

0C 

0f 

01 

04 

22 

3a 

2a 

22 

56 

cdc8 

3 

30 

2c 

31 

00 

ac 

ad 

02 

40 

lb 

cf 70 


10 

bl 

fd 

91 

fb 

c8 

dB 

f 9 

48 

cc2B 

3 

2c 

38 

2c 

31 

00 

20 

57 

b3 

67 

cdd0 

3 

20 

8d 

c2 

Bd 

be 

02 

20 

Bd 

bl 

cf 78 


e6 

fc 

e6 

fe 

ca 

d0 

f 2 

a9 

cB 

cc30 

3 

B6 

fc 

84 

fd 

a9 

04 

18 

65 

fb 

cddB 

3 

c2 

Bd 

bd 

02 

20 

8d 

c2 

8d 

a5 

cf 80 


13 

19 

13 

00 

60 

48 

c9 

4a 

e9 

cc3B 

3 

fd 

85 

fd 

30 

00 

10 

f 9 

68 

c4 

cde0 

3 

12 

05 

0e 

15 

0d 

02 

05 

12 

b4 

cf 88 


d0 

10 

aB 

27 

b9 

00 

02 

91 

34 

CC40 

3 

0c 

4f 

22 

20 

20 

20 

20 

20 

44 

cde8 


31 

30 

30 

2c 

31 

30 

00 

15 

82 

cf 90 


dl 

88 

10 

f 8 

68 

c6 

d6 

4c 

79 

cc4B 

3 

2a 

22 

2c 

3B 

2c 

31 

00 

ad 

3d 

cdf 0 

3 

03 

60 

ad 

14 

03 

ae 

15 

03 

11 

cf 98 


d6 

c2 

a0 

06 

d9 

d7 

cf 

d0 

fS 

cc50 

3 

bc 

02 

a0 

00 

91 

fb 

a9 

14 

fd 

cdf 8 

3 

Bd 

bB 

02 

Be 

b9 

0b 

05 

19 

6e 

cfa0 


04 

01 

13 

20 

17 

01 

12 

20 

fB 

cc5B 

3 

Bd 

16 

03 

a9 

c2 

Bd 

17 

03 

el 

ce00 

3 

13 

19 

13 

34 

39 

31 

35 

32 

42 

cf aB 


04 

09 

05 

20 

06 

01 

0c 

13 

35 

Cc60 

3 

0c 

4f 

22 

00 

3a 

00 

51 

c3 

0d 

ce08 

3 

20 

3a 

12 

05 

0d 

20 

24 

03 

d3 

cfb0 


03 

0B 

05 

20 

14 

01 

13 

14 

ba 

cc68 

3 

ad 

n 

d0 

09 

10 

Bd 

11 

d0 

46 

cel0 

3 

30 

30 

30 

00 

ab 

10 

03 

32 

fl 

cf bB 


05 

00 

dB 

f 8 

4c 

dl 

c2 

20 

af 

Cc70 

3 

60 

Bd 

ab 

02 

08 

68 

29 

ef 

0a 

cel8 

3 

29 

2c 

a2 

28 

20 

40 

c3 

20 

58 

cf C0 


0c 

Bf 

01 

04 

22 

24 

22 

2c 

39 

cc78 

3 

Bd 

aa 

02 

Be 

ac 

02 

Bc 

ad 

15 

ce20 

8 

13 

19 

13 

33 

36 

38 

36 

34 

52 

cf c8 


38 

00 

0c 

49 

00 

de 

cf 

48 

e3 

ccS0 

3 

05 

13 

20 

06 

15 

0e 

0b 

14 

ee 

c©28 

3 

20 

3a 

12 

05 

0d 

20 

24 

39 

5f 

cfd0 


60 

28 

29 

21 

45 

59 

51 

48 

a8 

ccB8 

3 

09 

0f 

0e 

09 

05 

12 

14 

20 

2f 

ce30 

3 

30 

30 

30 

00 

86 

02 

91 

f 3 

2b 

cf dB 


5a 

4e 

55 

44 

4b 

4d 

52 

ce 

3d 

cc90 

3 

04 

0f 

03 

08 

20 

10 

12 

09 

bb 

ce38 

3 

68 

cB 

eB 

e0 

08 

d0 

e9 

20 

49 

cfe0 


05 

0e 

04 

05 

20 

05 

0e 

04 

f 9 

cc98 

: 

0d 

01 

20 

0f 

04 

05 

12 

00 

c 1 

ce40 

8 

13 

19 

13 

38 

2a 

31 

36 

le 

ed 

cf eB 


05 

20 

05 

0e 

04 

05 

20 

05 

f 3 

cca0 

s 

0C 

4f 

22 

20 

20 

20 

20 

20 

a4 

ce48 

3 

33 

20 

3a 

12 

05 

0d 

20 

24 

de 

cff0 


0e 

04 

05 

20 

05 

0e 

04 

05 

21 

ccaB 

3 

20 

20 

20 

20 

20 

20 

20 

20 

aB 

ce50 


38 

30 

30 

30 

00 

20 

7e 

c2 

33 

cf f 8 


20 

05 

0e 

04 

05 

20 

00 

ff 

f0 

ccb0 

3 

20 

20 

20 

22 

2c 

38 

2c 

31 

c4 

ce58 

8 

20 

b8 

c2 

a2 

08 

a9 

00 

B5 

b2 

d000 


00 

00 

00 

00 

00 

00 

00 

00 

01 
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TIPS & TRICKS 


Acht Meine Hilfsprogramme 


Kurze, leistungsstarke Maschinensprache-Rou¬ 
tinen sind das Lebensbalsam eines jeden Pro¬ 
grammierers. Wir stellen Ihnen acht Minipro¬ 
gramme zum Lesen von Speicherstellen unter 
dem ROM, zum schnellen Durchsuchen von Va¬ 
riablenfeldern und vielem mehr vor. 


B ' 1 
! 


|itte beachten Sie beim Eintippen unserer Listings 
. unsere Eingabehinweise auf Seite 92. Die vorgestellten 
Programme können Sie entweder einzeln abtippen und 
bei Bedarf laden oder aber sich aus allen Routinen ein kleines 
Utility-Programm zusammenstellen: 

Tippen Sie die Listings 1 bis 8 ab und speichern sie. Dann 
laden Sie die Programme nacheinander (den Zusatz »,8,1« 
nicht vergessen), geben jedesmal NEW ein und speichern 
schließlich mit einem Maschinensprache-Monitor den Spei¬ 
cherbereich von $C000 bis SC6AE zum Beispiel unter dem 
Namen »Toolkit« auf Diskette. Bei Bedarf laden Sie dann diese 
Zusammenstellung aller Programme, die Sie wie nachfolgend 
bedienen. Unsere Programmservice-Diskette zu diesem 
Sonderheft enthält dieses File bereits. 

Pause (Listing 1) 

Format: SYS 49152,Sekundenzahl*60 
Das laufende Programm wird für eine definierte Zeitspanne 
angehalten. 

SYS 49152,102 entspricht einer Pause von 1,75Sekunden. 


Name 

s 

arrayseek 



C05B cl5c 

C05B 

: 

20 

22 

cl 

20 

57 

e2 

a6 

22 

69 

C060 


86 

a6 

a6 

23 

86 

a7 

85 

a5 

4e 

C068 

: 

20 

be 

C0 

a5 

9f 

85 

fa 

a5 

29 

C070 

s 

9e 

18 

69 

07 

85 

f 9 

d0 

02 

c5 

C078 

s 

e6 

fa 

a2 

01 

86 

fb 

ca 

86 

25 

C0B0 

: 

f c 

20 

06 

cl 

B5 

a8 

86 

a9 

51 

C088 

: 

84 

aa 

a4 

aS 

c4 

a8 

d0 

15 

3e 

C090 


88 

bl 

a6 

dl 

a9 

d0 

0e 

88 

3f 

C09B 

3 

C0 

ff 

d0 

fS 

a6 

fb 

86 

b0 

10 

c0a0 

8 

a6 

fc 

B6 

bl 

60 

e6 

fb 

d0 

6b 

c0aB 

3 

02 

e6 

fc 

a6 

fb 

e4 

fd 

d0 

b2 

c0b0 


d0 

a6 

fc 

e4 

fe 

d0 

ca 

a2 

96 

C0b8 

8 

00 

86 

b0 

86 

bl 

60 

a5 

2f 

0b 

C0C0 

: 

85 

9e 

aS 

30 

85 

9f 

aS 

31 

52 

C0C8 

3 

85 

f 9 

a5 

32 

85 

fa 

e6 

f 9 

b9 

C0Ö0 

3 

a0 

00 

bl 

9e 

d9 

ea 

07 

d0 

63 

C0d8 

: 

16 

cB 

bl 

9e 

29 

7f 

d9 

ea 

5e 

C0e0 

: 

07 

d0 

0c 

a0 

06 

bl 

9e 

85 

da 

c0eB 

3 

fd 

88 

bl 

9e 

85 

fe 

60 

e6 

09 

C0f0 

3 

9e 

d0 

02 

b6 

9 f 

a6 

9e 

e4 

c7 

c0f8 

3 

♦ 9 

d0 

d5 

a6 

9 f 

e4 

fa 

d0 

52 

C100 


cf 

a2 

64 

20 

37 

a4 

a5 

f 9 

61 

c 108 

3 

1B 

69 

03 

85 

f 9 

90 

02 

e6 

40 

C110 

3 

fa 

a0 

00 

bl 

f 9 

48 

cB 

bl 

f 9 

c 1 18 

3 

♦ 9 

4B 

cB 

bl 

f 9 

a8 

68 

aa 

79 

c 120 

3 

68 

60 

a0 

00 

8c 

ea 

07 

8c 

36 

c 128 

3 

eb 

07 

a0 

00 

20 

fd 

ae 

20 

ac 

c 130 

3 

79 

00 

B5 

02 

20 

73 

00 

a5 

34 

c 138 

3 

02 

c9 

2c 

f0 

18 

c9 

41 

90 

3e 

c 140 

: 

0f 

c9 

5b 

b0 

0b 

cB 

C0 

03 

21 

Cl4S 

: 

b0 

06 

99 

e9 

07 

4c 

2f 

cl 

b2 

cl50 

: 

a2 

64 

4c 

37 

a4 

60 

a2 

64 

bf 

c 158 

s 

4c 

37 

a4 

60 

00 

a9 

0c 

86 

00 


Name ; 

: pause 





C000 c02f 

c000 : 

: 20 

fd 

ae 

20 

Ba 

ad 

20 

f 7 

55 

c00B : 

: b7 

a2 

00 

86 

al 

86 

a2 

a6 

07 

C010 : 

: a2 

e4 

14 

d0 

fa 

a6 

al 

e4 

79 

C018 : 

i 15 

d0 

f 4 

60 

fd 

ff 

00 

02 

c2 

C020 ; 

: fd 

ff 

00 

02 

fd 

ff 

00 

02 

41 

c028 : 

: fd 

ff 

00 

02 

f d 

ff 

00 

2c 

9d 


G46R C 


Listing 1. »pause«, definierte Pause für Basic-Programme 

Underromread (Listing 2) 

Format: SYS 49200,Adresse 
Dieses Programm dient zum Auslesen von Speicherstellen 
»unter« dem Basic-Interpreter oder dem Betriebssystem. In 
Basic können diese nämlich nicht ausgelesen werden, weil 
dazu der Interpreter abgeschaltet werden müßte. 

SYS 49200,60000 liest Speicherstelle 60000 unter dem 
Betriebssystem aus und übergibt den Wert an Adresse 2. 


Listing 3. »arrayseek« durchsucht ein Variablenfeld nach Text 
Scrccn-Tool (Listing 4) 

Screen-Tool umfaßt einige Routinen, die das Arbeiten mit dem 
Bildschirm etwas erleichtern. 

1) Cursor setzen: 

SYS 49500,Zeilen-Nr,Spalten-Nr 

2) Zeilen löschen 

SYS 49503,erste Zeile,letzte Zeile 

3) Bildschirmteil invertieren/reinvertieren 

SYS 49506,Zeilen-Nr,Spalten-Nr,Anzahl Zeichen 
SYS 49521,Zeilen-Nr,Spalten-Nr,Anzahl Zeichen 
Entgegen der normalen Betriebssystempraxis beginnt 
Screen-Tool bei der Numerierung der Zeilen beziehungs¬ 
weise Spalten nicht mit 0, sondern mit 1. 


Name 

3 

underromread 


C030 c057 

C030 

3 

20 fd ae 20 8a 

ad 

20 f7 85 

C03B 

3 

b7 a6 14 86 f7 

a6 

15 86 2e 

C040 

8 

f8 78 a2 35 86 

01 

a0 00 b7 

C04B 

: 

bl f7 85 02 a2 

37 

86 01 96 

C050 

3 

60 ff 00 02 fd 

ff 

00 05 da 


Listing 2. »underromread« liest Speicherinhalte unterm ROM 


Arrayseek (Listing 3) 

Format: SYS 49240,Arrayname,gesuchter Text 
Ein eindimensionales Stringarray wird nach einem 
bestimmten String durchsucht. Die Stringnummer steht 
nachher in 176/177. Wurde der String nicht gefunden, 
erscheint hier 0. 

SYS 49240,Ml, "64'ER" durchsucht das Array Ml$ nach 
dem String »64’ER«. 


Name 

X 

screen-tool 



c15c c224 

clSc 

X 

4c 

c6 

cl 

4c 

de 

cl 

20 

80 

63 

c 164 

3 

cl 

bl 

f 7 

09 

80 

91 

f 7 

BB 

a2 

cl6c 

8 

C0 

ff 

dB 

f 5 

60 

20 

80 

cl 

ab 

c 174 

3 

bl 

f 7 

29 

7f 

91 

f 7 

88 

C0 

dB 

Cl7c 

3 

ff 

d0 

f 5 

60 

20 

fd 

ae 

20 

5a 

cl84 

X 

9e 

b7 

Be 

b2 

02 

20 

fd 

ae 

6e 

c 18c 


20 

9e 

b7 

Be 

b3 

02 

ce 

b2 

a7 

cl94 

3 

02 

ce 

b3 

02 

a9 

00 

85 

f 7 

cb 

c 19c 

3 

a9 

04 

85 

fB 

a5 

f 7 

1B 

69 

15 

cla4 

3 

28 

85 

f 7 

90 

02 

e6 

fB 

ce 

78 

clac 

3 

b2 

02 

d0 

fB 

a5 

f 7 

18 

6d 

07 

clb4 

3 

b3 

02 

85 

f 7 

90 

02 

e6 

fB 

6f 

clbc 

3 

20 

fd 

ae 

20 

9e 

b7 

ca 

8a 

72 

clc4 

3 

a8 

60 

20 

fd 

ae 

20 

9e 

b7 

3a 

clcc 

X 

ca 

86 

d6 

20 

fd 

ae 

20 

9e 

a6 

cld4 

3 

b7 

ca 

86 

d3 

20 

10 

e5 

60 

e7 

cldc 

: 

20 

fd 

ae 

20 

9e 

b7 

ca 

ca 

13 

cle4 

3 

8e 

aa 

02 

20 

fd 

ae 

20 

9e 

5f 

clec 

X 

b7 

ca 

Be 

ab 

02 

20 

ff 

e9 

16 

cif 4 

3 

ca 

ec 

aa 

02 

d0 

f 7 

60 

fd 

69 

clfc 

3 

02 

00 

ff 

dd 

fd 

ff 

m 

02 

9e 

c204 

3 

fd 

ff 

04 

02 

fd 

ff 

00 

02 

26 

c20c 


fd 

ff 

00 

02 

fd 

df 

00 

02 

2c 

c214 

3 

fd 

ft 

00 

02 

fd 

ff 

00 

02 

35 

c21c 

3 

fd 

ff 

00 

02 

fd 

ff 

00 

02 

3d 


Listing 4. »screen-tool« hilft bei der Bildschirmgestaltung 
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TIPS & TRICKS 


C 64 


Spriteset(Listing 5) 

Format: SYS 49700,Sprite-Nr,Block-Nr,X-Pos,Y-Pos,Farbe, 
Expand (jn) 

Spriteset setzt die Parameter für ein Sprite. 

SYS 49700,0,11,100,50,6,1 setzt für Sprite Nr. 0 den Block 
11 (ab 704) als Datenspeicher fest, positioniert ihn auf die 
Koordinaten 100/50, färbt ihn blau und vergrößert ihn in X- 
und Y-Richtung. 



General Input (Listing 6) 

Daß das INPUT-Statement des C64-Basic sehr unkomfor¬ 
tabel ist, darf als altbekannte Tatsache angesehen werden. 
Man denke nur an die Reaktion des Computers, wenn man 
Kommata oder Doppelpunkte eingibt. Außerdem kann das 
Eingabefeld beliebig verlassen, die Maske zerstört werden. 

Diese Routine schafft Abhilfe. 

Format: SYS 50500,Maximallänge (1 bis 79) 

Der Text steht nachher im als erstes definierten String. In 
der ersten Programmzeile sollte also immer ein Leerstring 
definiert werden, etwa: 0 IN$= " " 

Welche Zeichen akzeptiert werden, hängt von der Bitstel¬ 
lung im Kontrollregister (189) ab. 

Bit 0 (Wert 1) : Buchstaben A bis Z sind erlaubt 

Bit 1 (Wert 2) : Ziffern 0 bis 9 werden akzeptiert 

Bit 2 (Wert 4) : Grafikzeichen dürfen eingegeben werden 

Bit 3 (Wert 8) : Interpunktionszeichen (.,;:+-*/ etc.) 

Bit 4 (Wert 16): kontrolliert, ob während der Eingabe der 
Cursor blinkt 

<DEL> löscht das letzte Zeichen, <HOME> die ganze 
Eingabe. Dabei wird ein Maskenteil, der sich eventuell rechts 
vom Eingabefeld befindet, nicht - wie zu erwarten wäre - 
nach links verschoben, da nicht CHR$(20), sondern 
CHR$(32)CHR$(157)CHR$(157)CHR$(32)CHR$(157) 
benutzt wird. 

Da der String nicht im Stringspeicher abgelegt wird, son¬ 
dern direkt nach dem Programm, sollte man ihn nur auslesen, 
aber hier nicht MID$, RIGHTS oder LEFTS benutzen. Sollten 
diese Funktionen dennoch nötig sein, empfiehlt es sich, 
einen neuen String anzulegen, der dem alten gleich ist, aber 
aus Teilen des alten zusammengesetzt wird. 

Beispiel: X$=LEFT$(IN$,1)+MID$(IN$,2) 

Menü (Listing 7) 

Format: SYS 50000, "PUNKT1.PUNKT2,..." 

Der Bildschirm zeigt ein Menü mit den Menüpunkten, die im 
Parameterstring - durch Kommata getrennt - angegeben 
wurden. Rechts vom ersten Punkt steht ein Pfeil, der mit dem 


Name 


general 

mput 


c544 c6ae 

c544 

s 

4c 

7b 

c5 

ac 

ef 

07 

f 0 

57 

fe 

c54c 

: 

ce 

ef 

07 

20 

65 

c5 

4c 

a3 

d5 

c554 

: 

c5 

ac 

ef 

07 

f0 

49 

20 

65 

f 1 

c55c 

: 

c5 

ce 

ei 

07 

d0 

f 8 

4c 

a3 

b2 

c564 

: 

c5 

a6 

cc 

a9 

01 

85 

cc 

a9 

a7 

c56c 

3 

75 

a0 

c5 

20 

le 

ab 

86 

CC 

9a 

c574 

: 

60 

20 

9d 

9d 

20 

9d 

00 

a5 

3a 

c57c 

B 

bd 

29 

10 

+ 0 

04 

a9 

00 

85 

89 

c584 

: 

cc 

a2 

00 

Be 

ef 

07 

8e 

ee 

c2 

c58c 

a 

07 

20 

td 

ae 

20 

9e 

b7 

Be 

eb 

c594 

3 

ee 

07 

e0 

01 

90 

04 

E0 

50 

ab 

c59c 

: 

90 

05 

a2 

0e 

20 

37 

a4 

a6 

b5 

c5a4 

3 

c6 

<0 

tc 

ae 

77 

02 

a0 

00 

01 

c5ac 

3 

84 

c6 

8c 

77 

02 

e0 

14 

f 0 

ff 

c5b4 

3 

92 

e0 

13 

t0 

9c 

e0 

20 

t0 

CC 

c5bc 

3 

57 

e0 

0d 

d0 

03 

4c 

2f 

c6 

be 

c5c4 

3 

a5 

bd 

29 

01 

f 0 

0b 

e0 

41 

20 

cSce 

3 

90 

07 

B0 

5b 

b0 

03 

4c 

14 

00 

c5d4 

3 

c6 

a5 

bd 

29 

02 

ta 

0b 

B0 

97 

cSdc 

3 

30 

90 

07 

e0 

3a 

b0 

03 

4c 

00 

c5e4 

3 

14 

c6 

a5 

bd 

29 

04 

f 0 

0f 

u 

cSec 

3 

e0 

al 

Ö0 

24 

e0 

60 

90 

07 

af 

c5t4 

3 

e0 

80 

b0 

03 

4c 

14 

c6 

a5 

6d 

c5tc 

3 

bd 

29 

08 

f0 

10 

e0 

21 

90 

lc 

c604 

3 

0c 

B0 

41 

b0 

08 

E0 

30 

90 

50 

c60c 

: 

07 

e0 

3a 

b0 

03 

4c 

a3 

c5 

d5 

c614 

3 

ac 

st 

07 

CC 

ee 

07 

f0 

87 

0d 

c61c 

: 

Ba 

20 

d2 

ff 

ee 

ef 

07 

ac 

4t 

c624 

8 

Bt 

07 

99 

5d 

c6 

4c 

a3 

c5 

92 

c62c 

3 

4c 

a3 

c5 

a0 

02 

ad 

et 

07 

2b 

c634 

: 

91 

2d 

a9 

00 

Bd 

ei 

07 

c8 

cc 

c63c 

3 

a9 

5e 

91 

2d 

c8 

a9 

c6 

91 

36 

c644 

3 

2d 

c8 

a9 

00 

91 

2d 

cB 

a9 

39 

c64c 

8 

00 

91 

2d 

a9 

01 

85 

cc 

a9 

58 

c654 

3 

00 

85 

cf 

a9 

20 

a4 

d3 

91 

d9 

c65c 

: 

dl 

60 

20 

20 

20 

20 

20 

20 

2d 

c664 

: 

20 

20 

20 

20 

20 

20 

20 

20 

64 

c66c 

: 

20 

20 

20 

20 

20 

20 

20 

20 

6c 

c674 

3 

20 

20 

20 

20 

20 

20 

20 

20 

74 

c67c 

S 

20 

20 

20 

20 

20 

20 

20 

20 

7c 

c684 

3 

20 

20 

20 

20 

20 

20 

20 

20 

84 

c68c 

: 

20 

20 

20 

20 

20 

20 

20 

20 

Bc 

c694 


20 

20 

20 

20 

20 

20 

20 

20 

94 

c69c 


20 

20 

20 

20 

20 

20 

20 

20 

9c 

c6a4 

3 

20 

20 

20 

20 

20 

20 

20 

20 

a4 

c6ac 


20 

20 

20 

20 

20 

20 

20 

20 

ac 


INPUT-Routine 


Joystick (Port # 2) bewegt werden kann. Ein Druck auf den 
Feuerknopf übernimmt einen Menüpunkt. 

Dessen Nummer steht nachher in 702. 

SYS 50000, "EINGABE, AUSGABE, DISKETTE, DIENST, 
ENDE" wäre zum Beispiel für eine Dateiverwaltung zu 
gebrauchen. 


Name : menue c350 c43d 


c350 


20 

td 

ae 

20 

57 

e2 

8d 

bc 

5b 

C35B 

3 

02 

a6 

22 

86 

9e 

a6 

23 

B6 

bt 

c 360 

3 

9t 

a9 

20 

20 

d2 

ff 

20 

d2 

33 

c368 

3 

ff 

a 0 

01 

8c 

bd 

02 

88 

bl 

tb 

C370 

3 

9e 

c9 

2c 

dB 

17 

ee 

bd 

02 

tc 

c378 

3 

8c 

bt 

02 

a9 

38 

a0 

c4 

20 

75 

c 380 

: 

le 

ab 

ac 

bt 

02 

cB 

ce 

bc 

b2 

c388 

: 

02 

4c 

6t 

c3 

cB 

20 

d2 

ff 

dd 

c390 

: 

ce 

bc 

02 

d0 

da 

a6 

dl 

B6 

8e 

c398 

3 

tb 

a6 

d2 

86 

tc 

a5 

tb 

38 

c9 

c3a0 

3 

e9 

50 

85 

tb 

d0 

02 

c6 

fc 

c4 

c3aB 

: 

a6 

tb 

86 

t9 

a6 

tc 

86 

ta 

Bt 

c3b0 

: 

ae 

bd 

02 

a5 

19 

38 

e9 

50 

lc 

c3bB 

3 

85 

f 9 

b0 

02 

c6 

ta 

ca 

B0 

d7 

c3c0 

3 

02 

d0 

f0 

a6 

f 9 

86 

f 7 

a6 

3c 

c3cB 

3 

ta 

86 

t8 

a9 

01 

8d 

be 

02 

14 

c3d0 

3 

a0 

00 

a9 

3b 

91 

f 7 

20 

2b 

52 

c3d8 

3 

c4 

ad 

00 

de 

c9 

7e 

d0 

le 

le 

c3e0 

3 

ad 

be 

02 

c9 

02 

90 

17 

a9 

fa 

c3e8 

3 

20 

a0 

00 

91 

f 7 

ce 

be 

02 

7f 

c3f 0 

: 

a5 

17 

38 

e9 

50 

85 

f 7 

b0 

4t 

c3f 8 

3 

02 

c6 

tB 

4c 

d0 

c3 

ad 

00 

07 

c400 

3 

de 

c9 

7d 

dB 

lf 

ad 

be 

02 

99 

c408 


cd 

bd 

02 

b0 

17 

a9 

20 

a0 

cb 

c410 

3 

00 

91 

f 7 

ee 

be 

02 

a5 

f 7 

37 

C418 

3 

18 

69 

50 

85 

f 7 

90 

02 

e6 

83 

C420 

3 

f 8 

4c 

dB 

c3 

ad 

00 

de 

c9 

cd 

C42B 

3 

6f 

d0 

ae 

a0 

ff 

88 

d0 

td 

42 

c430 

3 

ad 

00 

de 

c9 

7f 

dB 

f 9 

60 

75 

c438 

3 

0d 

0d 

20 

20 

00 

c5 

a9 

0B 

bd 


Listing 7. »menue«, Auswahlmenü leichtgemacht 
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C 64 


TIPS & TRICKS 


Disk-Tool (Listing 8) 

Disk-Tool umfaßt einige Routinen, die den Umgang mit der 
Floppy erleichtern. 

1) Programm absolut speichern 

SYS 50250,"NAME",Startadresse,Endadresse 

2) Programm absolut laden 

SYS 50253,"NAME"Startadresse 

3) Disk-Kommando senden 
SYS 50256,"Kommando" 

Anschließend wird der Diskstatus ausgelesen 

4) Disk-Status auslesen 
SYS 50256," " 


Name : disk-tool c44a c4ec 


c44a 

: 

4c 

53 

c4 

4c 

91 

c4 

4c 

b9 

de 

c452 

: 

c4 

20 

fd 

ae 

20 

57 

e2 

a6 

u 

c45a 

: 

22 

a4 

23 

20 

bd 

ff 

a9 

31 

80 

c462 

: 

a2 

0B 

a0 

01 

20 

ba 

ff 

20 

69 

c46a 

: 

C0 

ff 

20 

fd 

ae 

20 

Ba 

ad 

63 

c472 

: 

20 

f 7 

b7 

a5 

14 

85 

cl 

a5 

f 0 

c47a 

: 

15 

85 

c2 

20 

fd 

ae 

20 

Ba 

fi 

C482 

: 

ad 

20 

i 7 

b7 

a5 

14 

B5 

ae 

a3 

c4Ba 

: 

a5 

15 

B5 

af 

4c 

ed 

f 5 

20 

Sd 

c492 

: 

fd 

ae 

20 

57 

e2 

a6 

22 

a4 

0 f 

c49a 

: 

23 

20 

bd 

ff 

a9 

31 

a2 

08 

fb 

c4a2 

: 

a0 

01 

20 

ba 

ff 

20 

C0 

ff 

26 

c4aa 

: 

20 

8 a 

ad 

20 

f 7 

b7 

a6 

14 

7f 

C4b2 

: 

a4 

15 

a9 

00 

4c 

9e 

f 4 

20 

19 

c4ba 

: 

fd 

ae 

20 

57 

e2 

a6 

22 

a4 

37 

c4c2 

: 

23 

20 

bd 

ff 

a9 

31 

a2 

08 

23 

c4ca 

: 

a0 

0f 

20 

ba 

ff 

20 

c0 

ff 

55 

c4d2 

: 

a2 

31 

20 

c6 

ff 

20 

cf 

ff 

2e 

c4da 

: 

20 

d2 

ff 

a5 

90 

29 

40 

f0 

4d 

c4e2 

: 

f 4 

20 

cc 

ff 

a9 

31 

20 

c3 

45 

c4ea 

: 

ff 

60 

20 

20 

d2 

ff 

4c 

B5 

50 


Listing 8. »disk-tool« erleichtert die Arbeit mit der Floppy 


Programmiertips 


Soll eine Variable ihren Wert in Abhängigkeit von einer ande¬ 
ren erhalten, ohne daß eine Proportion besteht, benötigt man 
für jede Möglichkeit eine Zeile, zum Beispiel: 

10 IFA= 5THENB=326l 
20 IFA= 8THENB=7901 
30 IFA= 9THENB=2079 
40 IFA=17THENB= 681 
50 IFA=99THENB= 3 

Durch clevere Anwendung des Vergleiches (»PRINT A=5« 
liefert 0 wenn A nicht 5 ist, beziehungsweise -1, wenn A 
gleich 5 ist) kann man auch dieses kleine Programm auf eine 
Zeile verkürzen: 

10 B=0-326l#(A=5)-7901#(A=8)-2079*(A=9)-681*(A=17)- 
3*(A=99) 

Diese Methode spart Zeit, Speicherplatz und Tipparbeit 
und erhöht darüber hinaus die Übersichtlichkeit des Listings, 
da der Lesende durch die fünf Zeilen nicht aus dem Zusam¬ 
menhang gerissen wird. 

Oft will man den Wert einer Variablen abhängig vom alten 
Wert ändern. Zum Beispiel: Wenn X vorher gleich 8 war, soll 
es jetzt 5 werden und umgekehrt. 

Normalerweise benötigt der Programmierer zwei Zeilen: 
10 IFX=8THENX=5:G0T030 
20 IFX=5THENX=8 

Wendet man die ABS-Funktion geschickt an, reicht eine 
Zeile schon aus: 

10 IFX=5 0R X=8THENX=ABS(X-8)+5 

(Stefan Meierhofer/tr) 
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